• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

2015.2.16关于delphiweb控件打开新网页时弹出关闭页面(js代码)出错的解决办法研究 ...

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

参考网址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欢迎遇到同样问题的伙伴们交流

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
减小DelphiXE5编译出来的程序体积发布时间:2022-07-18
下一篇:
Delphi10.3.3THTTPClientPost问题发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap