本文整理自网络,侵删。
1、控制WebBrowser实际上就是控制IE,最简单的方法就是执行javascript或vbscript,省去了接口的转换。
如何执行脚本?以前我一直用mshtml中IHTMLWindow2接口的execScript()方法,在Delphi中需要uses MSHTML单元:
usesMSHTML;
procedureTForm1.Button1Click(Sender: TObject);
begin
(WebBrowser1.DocumentasIHTMLDocument2).parentWindow.execScript('alert("hello");','javascript')
end;
2、用WebBrowser的Navigate()方法更简单:
procedureTForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('javascript:alert("hello");')
end;
省去了添加引用的麻烦。
相关阅读 >>
Delphi webservices 字节数组 base64编码
Delphi 资源文件管理 resources and images
Delphi twebbrowser流程讲解及如何判断下载网页成功
Delphi shellexecute执行cmd命令窗口不关闭
更多相关阅读请进入《Delphi》频道 >>