设为首页 加入收藏

TOP

2015.2.16 关于delphi web控件打开新网页时弹出关闭页面(js代码)出错的解决办法研究
2017-10-10 12:06:49 】 浏览:10243
Tags:2015.2.16 关于 delphi web 控件 打开 网页 时弹出 关闭 页面 代码 出错 解决 办法 研究

参考网址1:http://www.csharpwin.com/csharpspace/2360.shtml
...参考网址2:http://www.oschina.net/question/234345_53939
网址1、2都是c语言中对于web控件的解决办法,对于两者我都只是借鉴了一下方法,最终都只是对网页中js代码中的widow.open和window.close进行处理。

大概有两种方法:
一种对js代码进行替换,换成web控件可执行不出错的程序,
另一种是对于web控件在执行js代码widow.open后,进行事件判定....

下面最终我采用第二种方法对其进行解决,但是我这里只对window.open进行处理,并没有对window.close进行处理,后面如果有机会会对程序进行进一步的完善....

最终参考网址:http://www.360doc.com/content/12/1109/11/7389824_246775000.shtml

解决办法的程序:
procedure TForm1.WebBrowserNewWindow2(Sender: TObject;

  var ppDisp: IDispatch; var Cancel: WordBool);
begin
   WebBrowser.RegisterAsBrowser := true;//当前浏览器为最高级别浏览器
  ppDisp :=  WebBrowser.ControlInterface;//新窗口对象允许web浏览器操作
end;

程序说明:
首先选建立一个web控件,然后使用web控件的onnewwindow事件,再将web控件的RegisterAsBrowser 属性设为真,使得事件的ppDisp参数等于web控件ControlInterface属性。
onnewwindow事件是响应一个导航到新网址或一个脚本的 window.open方法;

ppDisp为程序创建新窗口的对象;

RegisterAsBrowser属性
设置该属性为True时,当前使用的Web浏览器组件成为最高级别浏览器。
语法:
property RegisterAsBrowser: WordBool;
 
ControlInterface属性
访问WebBrowser组件接口,这个接口允许一个Automation控制器访问Web浏览器的属性、方法和事件。
语法:
property ControlInterface: IWebBrowser2;
示例:
显示WebBrowser1组件的名称,代码如下:
Showmessage(WebBrowser1.ControlInterface.Name); 
 
qq:673890989欢迎遇到同样问题的伙伴们交流
】【打印繁体】【投稿】【收藏】 【推荐】【举报】【评论】 【关闭】 【返回顶部
上一篇2015.1.25 Delphi打开网址链接的.. 下一篇delphi WebBrowser控件上网页验证..

最新文章

热门文章

Hot 文章

Python

C 语言

C++基础

大数据基础

linux编程基础

C/C++面试题目