delphi WebBrowser执行脚本

本文整理自网络，侵删。

 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 application.processmessages的作用

Delphi tidhttp 登录网页封装

Delphi sysutils.lastdelimiter - 判断一个字符串在另一个字符串中最后出现的位置

Delphi vcl图像的二值化

Delphi andorid应用程序检查wifi有效还是无效

Delphi 去除 tstringlist 重复项

Delphi xe5 for android 地理定位gps

Delphi开发的app如何调用外部app

Delphi编程启动服务停止服务新建服务的方法

Delphi 解决idtcpclient和idtcpserver通信中文乱码问题

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi WebBrowser执行脚本