zoukankan      html  css  js  c++  java
  • Delphi中WebBrowser拦截网页Alert对话框消息(转)

    interface 
       
    uses 
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
      Dialogs, OleCtrls, SHDocVw, ActiveX;  
       
    type 
      IDocHostShowUI = interface(IUnknown)  
        ['{c4d244b0-d43e-11cf-893b-00aa00bdce1a}']  
        function ShowMessage(hwnd: THandle; lpstrText: POLESTR; lpstrCaption: POLESTR;dwType: longint; lpstrHelpfile: POLESTR; dwHelpContext: longint;var plResult: LRESULT): HRESULT; stdcall;  
        function ShowHelp(hwnd: THandle; pszHelpfile: POLESTR; uCommand: integer;dwData: longint; ptMouse: TPoint; var pDispatchObjectHit: IDispatch): HRESULT; stdcall;  
      end;  
       
      TWebBrowser = class(SHDocVw.TWebBrowser,IDocHostShowUI)  
      protected 
        function ShowMessage(hwnd: THandle; lpstrText: POLESTR; lpstrCaption: POLESTR;dwType: longint; lpstrHelpfile: POLESTR; dwHelpContext: longint;var plResult: LRESULT): HRESULT; stdcall;  
        function ShowHelp(hwnd: THandle; pszHelpfile: POLESTR; uCommand: integer;dwData: longint; ptMouse: TPoint; var pDispatchObjectHit: IDispatch): HRESULT; stdcall;  
      end;  
       
       
    type 
      TForm1 = class(TForm)  
        WebBrowser1: TWebBrowser;  
        procedure FormCreate(Sender: TObject);  
      private 
        { Private declarations } 
      public 
        { Public declarations } 
      end;  
       
    var 
      Form1: TForm1;  
       
    implementation 
       
    {$R *.dfm} 
       
    { TWebBrowser } 
       
    function TWebBrowser.ShowHelp(hwnd: THandle; pszHelpfile: POLESTR; uCommand,  
      dwData: Integer; ptMouse: TPoint; var pDispatchObjectHit: IDispatch): HRESULT;  
    begin 
      Result := S_FALSE;  
    end;  
       
    function TWebBrowser.ShowMessage(hwnd: THandle; lpstrText,  
      lpstrCaption: POLESTR; dwType: Integer; lpstrHelpfile: POLESTR;  
      dwHelpContext: Integer; var plResult: LRESULT): HRESULT;  
    begin 
      //plResult := MessageBoxW(hwnd,PWChar(lpstrText),'Title',64);//这里屏蔽了alert  
      Result := S_OK;  
    end;  
       
    procedure TForm1.FormCreate(Sender: TObject);  
    begin 
      WebBrowser1.Navigate('E:/alert.htm');  
    end;  
       
    end.

    方法是实现了IDocHostShowUI接口,重写了弹出消息的方法。

  • 相关阅读:
    OpenGL 混合功能
    Android之Project、Module的区别
    Android之基于监听的事件处理机制
    Android之布局
    You may experience an access violation when you access an STL object through a pointer or reference in a different DLL or EXE
    导出类成员里含有stl对象
    从html代码里提取字符编码
    libcurl-7.54.1附加zlib1.2.11的编译
    libcurl同时下载多个文件
    在内存中运行可执行程序(转)
  • 原文地址:https://www.cnblogs.com/delphi7456/p/5349619.html
Copyright © 2011-2022 走看看