delphi webbrowser 跨域访问

在 Delphi 中使用 WebBrowser 访问跨域网页需要在代码中添加以下语句：

uses
  MSHTML;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject; const pDisp: IDispatch; var URL: OleVariant);
var
  Doc: IHTMLDocument2;
  Win: IHTMLWindow2;
begin
  Doc := WebBrowser1.Document as IHTMLDocument2;
  Win := Doc.parentWindow;
  Win.execScript('document.domain = "example.com";', 'JavaScript');
end;

其中，`example.com` 为你所访问的网页所在的域名。这段代码将通过 JavaScript 修改文档的域名，以实现跨域访问。