delphi webbrowser 跨域访问

在 Delphi 中使用 WebBrowser 控件进行跨域访问，可以使用以下方法：

1. 设置 WebBrowser 的安全选项

在 WebBrowser 控件加载网页前，可以通过设置其安全选项来允许跨域访问。具体方法如下：

var
  vEmpty: OleVariant;
begin
  vEmpty := EmptyParam;
  WebBrowser1.Silent := True; // 静默模式
  WebBrowser1.Navigate('about:blank', vEmpty, vEmpty, vEmpty, vEmpty); // 加载空页面
  while WebBrowser1.ReadyState < READYSTATE_INTERACTIVE do // 等待加载完成
    Application.ProcessMessages;
  (WebBrowser1.Document as IHTMLDocument2).parentWindow.execScript(
    'document.domain = "example.com";', 'JavaScript'); // 设置跨域域名
end;

上述代码中，`WebBrowser1.Silent` 属性设置为 True，表示在加载网页时不显示任何消息框。接着，通过调用 `Navigate` 方法加载一个空页面，并通过 `while` 循环等待 WebBrowser 控件的 `ReadyState` 属性达到 `READYSTATE_INTERACTIVE` 状态，即网页已经加载完成。最后，通过调用 `execScript` 方法执行 JavaScript 脚本来设置跨域域名。

2. 使用 IInternetSecurityManager 接口

另一种方法是通过使用 Delphi 提供的 `IInternetSecurityManager` 接口来实现跨域访问。具体方法如下：

uses
  UrlMon;

var
  vEmpty: OleVariant;
  pSecMgr: IInternetSecurityManager;
begin
  vEmpty := EmptyParam;
  WebBrowser1.Silent := True; // 静默模式
  CoInternetCreateSecurityManager(nil, pSecMgr, 0); // 创建安全管理器
  pSecMgr.SetSecuritySite(nil); // 设置安全站点
  pSecMgr.ProcessUrlAction('http://example.com', URLACTION_SCRIPT_RUN, nil, 0, nil, 0, PUAF_NOUI, 0); // 设置跨域域名
  WebBrowser1.Navigate('http://example.com', vEmpty, vEmpty, vEmpty, vEmpty); // 加载目标页面
end;

上述代码中，首先通过调用 `CoInternetCreateSecurityManager` 函数创建一个安全管理器，然后通过调用 `SetSecuritySite` 方法设置安全站点。接着，调用 `ProcessUrlAction` 方法设置跨域域名。最后，通过调用 `Navigate` 方法加载目标页面。

以上两种方法都可以实现 Delphi WebBrowser 控件的跨域访问。具体使用哪种方法，可以根据实际情况选择。