Delphi中WebBrowser控件到底该怎么用？

你是不是刚学Delphi的时候，看到别人用WebBrowser控件加载网页特别酷炫，结果自己拖了个控件到窗体上，双击运行却只看到一片空白？哎，这玩意儿看起来简单，实际用起来坑可真不少。今天咱们就来掰开了揉碎了，手把手教你怎么玩转这个控件。

第一步：把控件拖进你的程序 打开Delphi，随便新建个VCL工程。在组件面板里找到”Internet”分类，里头那个叫TWebBrowser的家伙就是咱们今天的主角。直接鼠标拖到窗体上，它会自动铺满整个窗体——不过你要是想控制大小，记得提前调好Align属性或者手动拉伸。

对了，这里有个新手必踩的坑：WebBrowser默认用的是系统自带的IE内核。现在都2023年了，IE早退休了，所以你可能得先处理下兼容性问题。别急，后面会说到这个。

第二步：加载你的第一个网页 在窗体上加个按钮，双击写代码。最简单的加载方式就是这一行： delphi WebBrowser1.Navigate(‘https://www.baidu.com’); 点运行，哎？怎么还是白屏？这时候要检查两件事：第一，你的程序有没有申请管理员权限（特别是Win10之后），第二，网页是不是被系统安全策略拦截了。建议先试着加载http开头的本地测试页面。

第三步：处理加载过程 想让网页加载时有进度条提示？得用上这几个事件： – OnBeforeNavigate：开始导航前触发 – OnDocumentComplete：网页完全加载完成 – OnNavigateError：加载失败时触发

举个栗子，在OnDocumentComplete事件里可以这样写： delphi ShowMessage(‘网页加载完成啦！’);

第四步：玩点高级的 现在咱们来搞点有用的。比如自动点击网页上的按钮，或者填写表单。这就需要用到WebBrowser的OLE接口了。虽然听着吓人，但代码其实不复杂： delphi var Doc: IHTMLDocument2; begin Doc := WebBrowser1.Document as IHTMLDocument2; (Doc.getElementById(‘username’) as IHTMLInputElement).value := ‘admin’; 不过要注意，这个写法需要引用MSHTML单元，记得在uses部分加上。

常见问题集中营 问：为什么在Win10/Win11上显示空白？ 答：微软从Win10 1703开始默认禁用IE，得修改注册表或者改用EdgeWebView。推荐安装Microsoft.Web.WebView2这个新控件。

问：怎么执行JavaScript代码？ 答：用这个套路： delphi (WebBrowser1.Document as IHTMLDocument2).parentWindow.execScript(‘alert(“Hello”)’, ‘JavaScript’);

问：网页弹出了新窗口怎么办？ 答：处理OnNewWindow2事件，把新网址赋值给NewWindow参数，或者自己新建个WebBrowser控件来加载。

性能优化小技巧 – 设置Silent属性为True可以屏蔽脚本错误提示 – 用Stop方法可以随时中断加载 – 记得在FormClose时调用WebBrowser1.Navigate(‘about:blank’)清空内容

现在说点个人经验吧。WebBrowser这个控件吧，用来做简单的网页展示还行，真要搞复杂交互建议换CEF4Delphi或者Edge浏览器组件。特别是现在很多网站都用HTTPS，老旧的IE内核动不动就报证书错误，处理起来能让人抓狂。不过对于新手来说，先用WebBrowser练手确实成本低，毕竟不用装额外组件。

最后提醒一句，调试的时候经常会出现”拒绝访问”的错误。这时候八成是跨线程操作了，记住所有对WebBrowser的操作都要在主线程里执行。要是还不行，试试在代码前加个CoInitialize(nil)，用完记得CoUninitialize。好了，今天的分享就到这，赶紧动手试试吧！