Delphi 10.4.1 EdgeBrowser 模拟操作网页方法

最新推荐文章于 2024-08-10 15:17:20 发布

Memoselect

最新推荐文章于 2024-08-10 15:17:20 发布

阅读量6.3k

点赞数 3

分类专栏： Delphi 10++

本文链接：https://blog.csdn.net/zhou752947/article/details/109542365

版权

本文介绍了如何在Delphi 10.4.1中使用TEdgeBrowser控件替代TWebBrowser进行网页模拟操作。由于IE内核即将停止更新，作者转向了微软的Edge浏览器。TEdgeBrowser不直接支持IHTMLDocument2，但可以通过OnExecuteScript事件回调执行JavaScript，并获取返回值。文中详细阐述了如何设置EdgeBrowser、执行JavaScript脚本以及处理回调数据的方法。

摘要由CSDN通过智能技术生成

Delphi 10.4.1 EdgeBrowser 模拟操作网页方法

以往一直用TWebBrowser 或者 C++ Builder 中的TCcpWebBrowser来写网页模拟操作
这两个控件可以使用WebBrowser.OleObject.document、WebBrowser.Document As IHTMLDocument2来实现大部分的操作
发现这两者都是依赖于IE内核，虽然可以设定IE 11内核，但是今年微软公布11月底停止更新了
所以可以考虑使用微软推出的Edge浏览器

进入正题：

Delphi 10.4.1 新增的TEdgeBrowser控件
研究了一下发现该控件似乎不再支持像TWebBrowser那样使用IHTMLDocument2方法了
Google一下发现几乎没有资料可寻，在GW某个论坛看到说被其他方式代理了，翻了一下Edge类，在类中有这么一个方法：

    /// <summary>
    ///   Execute JavaScript code from the javascript parameter in the current top level document rendered in the
    ///   WebView, even if ScriptEnabled is False
    /// </summary>
    procedure ExecuteScript(const JavaScript: string);

对应回调事件

  当 ExecuteScript 执行完成后回调结果给 OnExecuteScript 
  /// <summary>
  ///   Event handler type for the OnExecuteScript event
  /// </summary>
  TExecuteScriptEvent = procedure (Sender: TCustomEdgeBrowser; AResult: HResult; const AResultObjectAsJson: string) of object;

OnExecuteScript 包含两个参数，AResult 返回状态，AResultObjectAsJson 返回数据
经过测试发现，AResultObjectAsJson 默认回调过来的数据如果不是Json而是字符串，那么该字符串会被加上双引号，如 “button click success”，AResultObjectAsJson 的返回值经过测试，好像只返回最后一次被赋值的变量或被修改过的元素值

方法：
下载WebView2的dll支持库放入程序目录下
链接：https://pan.baidu.com/s/1ASnrkr8v893egwSoCVNcjg
提取码：igjt

下载MicrosoftEdgeDev浏览器，安装好桌面会出现Microsoft Edge Dev图标
链接：https://pan.baidu.com/s/1OrGtyYpNdM1ph5qNyHFU1Q
提取码：acap

在这里插入图片描述