关闭

Delphi_WebBrowser禁止弹出Alert对话框

3135人阅读 评论(0) 收藏 举报
分类:

Webbrowser1的OnDocumentComplete事件响应代码可以拦截网页Alert弹出的对话框,代码:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;  const pDisp: IDispatch; var URL: OleVariant);
begin
  ((Sender as TWebBrowser).Document as IHtmlDocument2).parentWindow.execScript('window.alert=function(){}''javascript');
end;

此方法对于含有框架的网页子框架网页脚本弹出的Alert对话框无法拦截,因为虽然每个框架网页文档加载完成都会引发OnDocumentComplete事件,但传入的Sender参数始终是WebBrowser1本身,该事件响应代码对子框架中的网页文档无效。注意到传入的第二个参数pDisp是包含了加载完成的框架的接口,通过这个接口可以获取框架网页的文档的引用,所以利用该参数进行处理就能真正拦截网页弹出的Alert对话框,具体代码:

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  iWB: IWebBrowser2;
begin
  if
 pDisp.QueryInterface(IID_IWebBrowser2, iWB) = s_ok then
  begin

    (iWB.Document as IHTmlDocument2).parentWindow.execScript('window.alert=function(){}','javascript');
  end;
end;

引用单元:MsHtml

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:558944次
    • 积分:7382
    • 等级:
    • 排名:第2949名
    • 原创:144篇
    • 转载:174篇
    • 译文:1篇
    • 评论:55条
    文章分类
    最新评论