TEdgeBrowser 组件：从嵌入式网页上的脚本运行调用本机代码

Question

目前我们使用 TWebBrowser 组件将 IE 嵌入到我们的桌面应用程序中。为了在嵌入式浏览器中从脚本运行调用 Delphi 代码，我们实现了对 window.external 对象的支持，如下所述：http://www.delphidabbler.com/articles/article-22

现在，出于多种原因，我们需要切换到现代浏览器。我们已经升级到 Delphi 10.4，它引入了新的 TEdgeBrowser 组件（基于 Chromium 的 MS Edge）。是否可以将 window.external 也用于 TEdgeBrowser？如果是这样，如何？或者还有其他方法如何从嵌入式浏览器中的脚本调用本机代码？

Answer 1

终于很简单了。感谢 TOndrej 提供的“入门指南”link，它帮助我解决了这个问题。我还意识到它适用于 MS Edge Beta (84.0.522.28)，因此不需要 Canary，如 Marco Cantu 在此处所述：https://blog.marcocantu.com/blog/2020-may-edge-browser-component.html。我希望它能尽快与官方 MS Edge 一起使用。以下是一些代码片段：

Delphi:

procedure TForm1.Button1Click(Sender: TObject);
begin
  EdgeBrowser1.Navigate(ExtractFilePath(ParamStr(0))  + 'index.html');
end;

procedure TForm1.EdgeBrowser1WebMessageReceived(Sender: TCustomEdgeBrowser; Args: TWebMessageReceivedEventArgs);
var
  Msg: PChar;
begin
  Args.ArgsInterface.Get_webMessageAsJson(Msg);
  MessageBox(Handle, Msg, PChar(EmptyStr), MB_OK);
end;

HTML:

<!DOCTYPE html>
<html>
<body>
    <p onclick="handleClick()">Click me</p>
    <script>
        function handleClick() {
            window.chrome.webview.postMessage({ data: 'Message from Edge Chromium', url: window.document.URL });
        }
    </script>
</body>
</html>

TEdgeBrowser 组件：从嵌入式网页上的脚本运行调用本机代码

TEdgeBrowser component: calling native code from a script running on the embedded web page

delphi

tedgebrowser

TEdgeBrowser 组件：从嵌入式网页上的脚本 运行 调用本机代码

TEdgeBrowser component: calling native code from a script running on the embedded web page

delphi

tedgebrowser

TEdgeBrowser 组件：从嵌入式网页上的脚本运行调用本机代码