Delphi中TEdgeBrowser控件初探

1、组件库安装

Delphi IDE中的TEdgeBrowser虽然可以直接拖拽到界面TForm上来，但是却是无法直接使用的，究其原因是因为缺少相关的库文件，这里介绍最简单直接有效的方法：

1、下载 nuget。nuget是一个开源项目的客户端下载工具，想要了解更多，请问度娘。

2、打开终端，在命令行执行：

.\nuget install Microsoft.Web.WebView2

若要指定WebView2版本，可用如下指令

.\nuget install Microsoft.Web.WebView2 -version xxx.xxx.xxx

不指定版本会自动下载最新的。

3、虽然第2步安装了WebView2组件，但是要顺利运行这个组件还需要附加库文件，请从微软官方下载 Webview 2 运行时库文件。下载地址：https://go.microsoft.com/fwlink/p/?LinkId=2124703

4、在 nuget 目录下，搜索对应架构的 webview2loader.dll 并复制到你程序目录下，然后运行你编译好的程序就可以成功调用和访问TEdgeBrowser控件了。

2、脚本基本用法

1、获取网页内容

var result = null;
result = document.body.innerText;

2、获取网页源码

var result = null;
result = encodeURI(document.documentElement.outerHTML);

调用脚本方法：

TThread.Synchronize(TThread.CurrentThread, procedure begin
    EdgeBrowser1.ExecuteScript(AScript);
  end);

接受脚本返回内容：

procedure TFormMain.WBTaobaoTetailExecuteScript(Sender: TCustomEdgeBrowser;
  AResult: HRESULT; const AResultObjectAsJson: string);
begin
    FWebSCriptRespond := TNetEncoding.URL.Decode(AResultObjectAsJson);
end;