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

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>

function handleClick() {

window.chrome.webview.postMessage({ data: 'Message from Edge Chromium', url: window.document.URL });

}

</script>

</body>

</html>

推荐分享