您现在的位置:首页 >> VCL >> VCL >> 内容

WebBrower控件接口表

时间:2011/9/3 16:26:00 点击:

  核心提示:The OLECMDID enumeration specifies which command to execute. (The commands in this enumeration are t...

The OLECMDID enumeration specifies which command to execute. (The commands in this enumeration are the standard commands defined by Office 95.) A single value from this enumeration is passed in the nCmdID argument of IOleCommandTarget::Exec.

typedef enum  
{
     OLECMDID_OPEN              = 1,
     OLECMDID_NEW               = 2,
     OLECMDID_SAVE              = 3,
     OLECMDID_SAVEAS            = 4,
     OLECMDID_SAVECOPYAS        = 5,
     OLECMDID_PRINT             = 6,
     OLECMDID_PRINTPREVIEW      = 7,
     OLECMDID_PAGESETUP         = 8,
     OLECMDID_SPELL             = 9,
     OLECMDID_PROPERTIES        = 10,
     OLECMDID_CUT               = 11,
     OLECMDID_COPY              = 12,
     OLECMDID_PASTE             = 13,
     OLECMDID_PASTESPECIAL      = 14,
     OLECMDID_UNDO              = 15,
     OLECMDID_REDO              = 16,
     OLECMDID_SelectALL         = 17,
     OLECMDID_CLEARSelectION    = 18,
     OLECMDID_ZOOM              = 19,
     OLECMDID_GETZOOMRANGE      = 20
     OLECMDID_UpdateCOMMANDS    = 21
     OLECMDID_REFRESH           = 22
     OLECMDID_STOP              = 23
     OLECMDID_HIDETOOLBARS      = 24
     OLECMDID_SETPROGRESSMAX    = 25
     OLECMDID_SETPROGRESSPOS    = 26
     OLECMDID_SETPROGRESSTEXT   = 27
     OLECMDID_SETTITLE          = 28
     OLECMDID_SETDOWNLOADSTATE  = 29
     OLECMDID_STOPDOWNLOAD      = 30
} OLECMDID;
 
Elements
OLECMDID_OPEN
File menu, Open command
OLECMDID_NEW
File menu, New command
OLECMDID_SAVE
File menu, Save command
OLECMDID_SAVEAS
File menu, Save As command
OLECMDID_SAVECOPYAS
File menu, Save Copy As command
OLECMDID_PRINT
File menu, Print command
OLECMDID_PRINTPREVIEW
File menu, Print Preview command
OLECMDID_PAGESETUP
File menu, Page Setup command
OLECMDID_SPELL
Tools menu, Spelling command
OLECMDID_PROPERTIES
File menu, Properties command
OLECMDID_CUT
Edit menu, Cut command
OLECMDID_COPY
Edit menu, Copy command
OLECMDID_PASTE
Edit menu, Paste command
OLECMDID_PASTESPECIAL
Edit menu, Paste Special command
OLECMDID_UNDO
Edit menu, Undo command
OLECMDID_REDO
Edit menu, Redo command
OLECMDID_SelectALL
Edit menu, Select All command
OLECMDID_CLEARSelectION
Edit menu, Clear command
OLECMDID_ZOOM
View menu, Zoom command (see below for details)
OLECMDID_GETZOOMRANGE
Retrieves zoom range applicable to View Zoom. (See below for details.)
OLECMDID_UpdateCOMMANDS
Informs the receiver, usually a frame, of state changes. The receiver can then query the status of the commands whenever convenient.
OLECMDID_REFRESH
Asks the receiver to refresh its display. Implemented by the document/object.
OLECMDID_STOP
Stops all current processing. Implemented by the document/object.
OLECMDID_HIDETOOLBARS
View Menu, Toolbars command. Implemented by the document/object to hide its toolbars.
OLECMDID_SETPROGRESSMAX
Sets the maximum value of a progress indicator if one is owned by the receiving object, usually a frame. The minimum value is always zero.
OLECMDID_SETPROGRESSPOS
Sets the current value of a progress indicator if one is owned by the receiving object, usually a frame.
OLECMDID_SETPROGRESSTEXT
Sets the text contained in a progress indicator if one is owned by the receiving object, usually a frame. If the receiver currently has no progress indicator, this text should be displayed in the status bar (if one exists) as with IOleInPlaceFrame::SetStatusText.
OLECMDID_SETTITLE
Sets the title bar text of the receiving object, usually a frame.
OLECMDID_SETDOWNLOADSTATE
Called by the object when downloading state changes. Takes a VT_BOOL parameter, which is TRUE if the object is downloading data and FALSE if it not. Primarily implemented by the frame.
OLECMDID_STOPDOWNLOAD
Stops the download when executed. Typically, this command is propagated to all contained objects. When queried, sets MSOCMDF_ENABLED. Implemented by the document/object.
调用实例:ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT, EmptyParam,EmptyParam);

初始化和终止化(Initialization & Finalization)
     大家在执行TWebBrowser的某个方法以进行期望的操作,如ExecWB等的时候可能都碰到过“试图激活未注册的丢失目标”或“OLE对象未注册”等错误,或者并没有出错但是得不到希望的结果,比如不能将选中的网页内容复制到剪贴板等。以前用它编程的时候,我发现ExecWB有时侯起作用但有时侯又不行,在Delphi生成的缺省工程主窗口上加入TWebBrowser,运行时并不会出现“OLE对象未注册”的错误。同样是一个偶然的机会,我才知道OLE对象需要初始化和终止化(懂得的东东实在太少了)。
     我用我的前一篇文章《Delphi程序窗口动画&正常排列平铺的解决》所说的方法编程,运行时出了上面所说的错误,我便猜想应该有OleInitialize之类的语句,于是,找到并加上了下面几句话,终于搞定!究其原因,我想大概是由于TWebBrowser是一个嵌入的OLE对象而不算是用Delphi编写的VCL吧。
     initialization
      OleInitialize(nil);
     finalization
      try
       OleUninitialize;
      except
      end;
     这几句话放在主窗口所有语句之后,“end.”之前。
   -----------------------------------------------------------------------------------
   2、EmptyParam
     在Delphi 5中TWebBrowser的Navigate方法被多次重载:
     procedure Navigate(const URL: WideString); overload;
     procedure Navigate(const URL: WideString; var Flags:
   OleVariant); overload;
     procedure Navigate(const URL: WideString; var Flags:
   OleVariant; var TargetFrameName:     OleVariant); overload;
     procedure Navigate(const URL: WideString; var Flags:
   OleVariant; var TargetFrameName:     OleVariant; var PostData:
   OleVariant); overload;
     procedure Navigate(const URL: WideString; var Flags:
   OleVariant; var TargetFrameName:     OleVariant; var PostData:
   OleVariant; var Headers: OleVariant); overload;
     而在实际应用中,使用后几种方法调用时,由于我们很少用到后面几个参数,但函数声明又要求是变量参数,一般的做法如下:
     var
      t:OleVariant;
     begin
      webbrowser1.Navigate(edit1.text,t,t,t,t);
     end;
     需要定义变量t(还有很多地方要用到它),很麻烦。其实我们可以用EmptyParam来代替(EmptyParam是一个公用的Variant空变量,不要对它赋值),只需一句话就可以了:
     webbrowser1.Navigate(edit1.text,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
     虽然长一点,但比每次都定义变量方便得多。当然,也可以使用第一种方式。
     webbrowser1.Navigate(edit1.text)
   -----------------------------------------------------------------------------------
   3、命令操作   常用的命令操作用ExecWB方法即可完成,ExecWB同样多次被重载:
     procedure ExecWB(cmdID: OLECMDID; cmdexecopt:
   OLECMDEXECOPT); overload;
     procedure ExecWB(cmdID: OLECMDID; cmdexecopt: OLECMDEXECOPT;
   var pvaIn:
       OleVariant); overload;
     procedure ExecWB(cmdID: rOLECMDID; cmdexecopt:
   OLECMDEXECOPT; var pvaIn:
       OleVariant; var pvaOut: OleVariant); overload;
     打开: 弹出“打开Internet地址”对话框,CommandID为OLECMDID_OPEN(若浏览器版本为IE5.0,
         则此命令不可用)。
     另存为:调用“另存为”对话框。
         ExecWB(OLECMDID_SAVEAS,OLECMDEXECOPT_DODEFAULT,
   EmptyParam,
              EmptyParam);
  
  
     打印、打印预览和页面设置: 调用“打印”、“打印预览”和“页面设置”对话框(IE5.5及以上版本才支持打
                   印预览,故实现应该检查此命令是否可用)。
         ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT,
   EmptyParam,
              EmptyParam);
         if QueryStatusWB(OLECMDID_PRINTPREVIEW)=3 then
          ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT,
              EmptyParam,EmptyParam);
         ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT,
   EmptyParam,
              EmptyParam);

剪切、复制、粘贴、全选: 功能无须多说,需要注意的是:剪切和粘贴不仅对编辑框文字,而且对网页上的非编
                  辑框文字同样有效,用得好的话,也许可以做出功能特殊的东东。获得其命令使能状
                  态和执行命令的方法有两种(以复制为例,剪切、粘贴和全选分别将各自的关键字替
                  换即可,分别为CUT,PASTE和SelectALL):
      A、用TWebBrowser的QueryStatusWB方法。
        if(QueryStatusWB(OLECMDID_COPY)=OLECMDF_ENABLED) or
         OLECMDF_SUPPORTED) then
         ExecWB(OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT,
   EmptyParam,
              EmptyParam);
      B、用IHTMLDocument2的QueryCommandEnabled方法。
        var
         Doc: IHTMLDocument2;
        begin
         Doc :=WebBrowser1.Document as IHTMLDocument2;
         if Doc.QueryCommandEnabled('Copy') then
          Doc.ExecCommand('Copy',false,EmptyParam);
        end;
     查找: 参考第九条“查找”功能。

字体大小
     类似“字体”菜单上的从“最大”到“最小”五项(对应整数0~4,Largest等假设为五个菜单项的名字,Tag
   属性分别设为0~4)。
      A、读取当前页面字体大小。
        var
         t: OleVariant;
        Begin
         WebBrowser1.ExecWB(OLECMDID_ZOOM,
   OLECMDEXECOPT_DONTPROMPTUSER,
          EmptyParam,t);
         case t of
         4: Largest.Checked :=true;
         3: Larger.Checked :=true;
         2: Middle.Checked :=true;
         1: Small.Checked :=true;
         0: Smallest.Checked :=true;
         end;
        end;
      B、设置页面字体大小。
        Largest.Checked :=false;
        Larger.Checked :=false;
        Middle.Checked :=false;
        Small.Checked :=false;
        Smallest.Checked :=false;
        TMenuItem(Sender).Checked :=true;
        t :=TMenuItem(Sender).Tag;
        WebBrowser1.ExecWB(OLECMDID_ZOOM,
   OLECMDEXECOPT_DONTPROMPTUSER,
         t,t);

添加到收藏夹和整理收藏夹
        const
        CLSID_ShellUIHelper: TGUID =
   '{64AB4BB7-111E-11D1-8F79-00C04FC2FBE1}';
       var
        p:procedure(Handle: THandle; Path: PChar); stdcall;
       procedure TForm1.OrganizeFavorite(Sender: Tobject);
       var
        H: HWnd;
       begin
        H := LoadLibrary(PChar('shdocvw.dll'));
        if H <> 0 then
        begin
       p := GetProcAddress(H, PChar('DoOrganizeFavDlg'));
         if Assigned(p) then p(Application.Handle,
   PChar(FavFolder));
        end;
        FreeLibrary(h);
       end;
       
       procedure TForm1.AddFavorite(Sender: TObject);
       var
        ShellUIHelper: ISHellUIHelper;
        url, title: Olevariant;
       begin
        Title := Webbrowser1.LocationName;
        Url := Webbrowser1.LocationUrl;
        if Url <> '' then
        begin
         ShellUIHelper := CreateComObject(CLSID_SHELLUIHELPER) as
   IShellUIHelper;
         ShellUIHelper.AddFavorite(url, title);
        end;
       end;
     用上面的通过ISHellUIHelper接口来打开“添加到收藏夹”对话框的方法比较简单,但是有个缺陷,就是打开的窗口不是模式窗口,而是独立于应用程序的。可以想象,如果使用与OrganizeFavorite过程同样的方法来打开对话框,由于可以指定父窗口的句柄,自然可以实现模式窗口(效果与在资源管理器和IE中打开“添加到收藏夹”对话框相同)。问题显然是这样的,上面两个过程的作者当时只知道shdocvw.dll中DoOrganizeFavDlg的原型而不知道DoAddToFavDlg的原型,所以只好用ISHellUIHelper接口来实现(或许是他不够严谨,认为是否是模式窗口无所谓?)。
     下面的过程就告诉你DoAddToFavDlg的函数原型。需要注意的是,这样打开的对话框并不执行“添加到收藏夹”的操作,它只是告诉应用程序用户是否选择了“确定”,同时在DoAddToFavDlg的第二个参数中返回用户希望放置Internet快捷方式的路径,建立.Url文件的工作由应用程序自己来完成。
       procedure TForm1.AddFavorite(IE: TEmbeddedWB);
        procedure CreateUrl(AUrlPath, AUrl: PChar);
        var
         URLfile: TIniFile;
        begin
         URLfile := TIniFile.Create(String(AUrlPath));
        RLfile.WriteString('InternetShortcut', 'URL',
   String(AUrl));
        RLfile.Free;
        end;
       var
        AddFav: function(Handle: THandle;
         UrlPath: PChar; UrlPathSize: Cardinal;
         Title: PChar; TitleSize: Cardinal;
         FavIDLIST: pItemIDList): Bool; stdcall;
        FDoc: IHTMLDocument2;
        UrlPath, url, title: array[0..MAX_PATH] of char;
        H: HWnd;
        pidl: pItemIDList;
        FRetOK: Bool;
       begin
        FDoc := IHTMLDocument2(IE.Document);
        if FDoc = nil then exit;
        StrPCopy(Title, FDoc.Get_title);
        StrPCopy(url, FDoc.Get_url);
        if Url <> '' then
        begin
         H := LoadLibrary(PChar('shdocvw.dll'));
         if H <> 0 then
         begin
          SHGetSpecialFolderLocation(0, CSIDL_FAVORITES, pidl);
          AddFav := GetProcAddress(H, PChar('DoAddToFavDlg'));
          if Assigned(AddFav) then
           FRetOK :=AddFav(Handle, UrlPath, Sizeof(UrlPath),
   Title, Sizeof(Title), pidl)
         end;
         FreeLibrary(h);
         if FRetOK then
          CreateUrl(UrlPath, Url);
        end
       end;

使WebBrowser获得焦点
     TWebBrowser非常特殊,它从TWinControl继承来的SetFocus方法并不能使得它所包含的文档获得焦点,从而不能立即使用Internet
   Explorer本身具有得快捷键,解决方法如下:<
     procedure TForm1.SetFocusToDoc;
     begin
      if WebBrowser1.Document <> nil then
       with WebBrowser1.Application as IOleobject do
        DoVerb(OLEIVERB_UIACTIVATE, nil, WebBrowser1, 0, Handle,
   GetClientRect);
     end;
     除此之外,我还找到一种更简单的方法,这里一并列出:
     if WebBrowser1.Document <> nil then
      IHTMLWindow2(IHTMLDocument2(WebBrowser1.Document).ParentWindow).focus
  
  
     刚找到了更简单的方法,也许是最简单的:
     if WebBrowser1.Document <> nil then
      IHTMLWindow4(WebBrowser1.Document).focus
     还有,需要判断文档是否获得焦点这样来做:
     if IHTMLWindow4(WebBrowser1.Document).hasfocus then

点击“提交”按钮
     如同程序里每个窗体上有一个“缺省”按钮一样,Web页面上的每个Form也有一个“缺省”按钮——即属性为“Submit”的按钮,当用户按下回车键时就相当于鼠标单击了“Submit”。但是TWebBrowser似乎并不响应回车键,并且,即使把包含TWebBrowser的窗体的KeyPreview设为True,在窗体的KeyPress事件里还是不能截获用户向TWebBrowser发出的按键。
     我的解决办法是用ApplicatinEvents构件或者自己编写TApplication对象的OnMessage事件,在其中判断消息类型,对键盘消息做出响应。至于点击“提交”按钮,可以通过分析网页源代码的方法来实现,不过我找到了更为简单快捷的方法,有两种,第一种是我自己想出来的,另一种是别人写的代码,这里都提供给大家,以做参考。
     A、用SendKeys函数向WebBrowser发送回车键
       在Delphi
   5光盘上的Info\Extras\SendKeys目录下有一个SndKey32.pas文件,其中包含了两个函数SendKeys和AppActivate,我们可以用SendKeys函数来向WebBrowser发送回车键,我现在用的就是这个方法,使用很简单,在WebBrowser获得焦点的情况下(不要求WebBrowser所包含的文档获得焦点),用一条语句即可:
      Sendkeys('~',true);// press RETURN key
      SendKeys函数的详细参数说明等,均包含在SndKey32.pas文件中。
     B、在OnMessage事件中将接受到的键盘消息传递给WebBrowser。
      procedure TForm1.ApplicationEvents1Message(var Msg: TMsg;
   var Handled: Boolean);
      {fixes the malfunction of some keys within webbrowser
   control}
      const
       StdKeys = [VK_TAB, VK_RETURN]; { standard keys }
       ExtKeys = [VK_Delete, VK_BACK, VK_LEFT, VK_RIGHT]; {
   extended keys }
       fExtended = $01000000; { extended key flag }
      begin
       Handled := False;
       with Msg do
       if ((Message >= WM_KEYFIRST) and (Message <= WM_KEYLAST))
   and
        ((wParam in StdKeys) or
        {$IFDEF VER120}(GetKeyState(VK_CONTROL) < 0) or {$ENDIF}
        (wParam in ExtKeys) and
        ((lParam and fExtended) = fExtended)) then
       try
        if IsChild(Handle, hWnd) then { handles all browser
   related messages }
        begin
         with {$IFDEF
   VER120}Application_{$ELSE}Application{$ENDIF} as
           IOleInPlaceActiveObject do
          Handled := TranslateAccelerator(Msg) = S_OK;
          if not Handled then
          begin
           Handled := True;
           TranslateMessage(Msg);
           DispatchMessage(Msg);
          end;
          end;
       except
       end;
      end; // MessageHandler
     (此方法来自EmbeddedWB.pas)

直接从TWebBrowser得到网页源码及Html
     下面先介绍一种极其简单的得到TWebBrowser正在访问的网页源码的方法。一般方法是利用TWebBrowser控件中的Document对象提供的IPersistStreamInit接口来实现,具体就是:先检查WebBrowser.Document对象是否有效,无效则退出;然后取得IPersistStreamInit接口,接着取得HTML源码的大小,分配全局堆内存块,建立流,再将HTML文本写到流中。程序虽然不算复杂,但是有更简单的方法,所以实现代码不再给出。其实基本上所有IE的功能TWebBrowser都应该有较为简单的方法来实现,获取网页源码也是一样。下面的代码将网页源码显示在Memo1中。
      Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterHtml);
  
  
     同时,在用TWebBrowser浏览HTML文件的时候要将其保存为文本文件就很简单了,不需要任何的语法解析工具,因为TWebBrowser也完成了,如下:
      Memo1.Lines.Add(IHtmlDocument2(WebBrowser1.Document).Body.OuterText);

查找对话框可以在文档获得焦点的时候通过按键Ctrl-F来调出,程序中则调用IOleCommandTarget对象的成员函数Exec执行OLECMDID_FIND操作来调用,下面给出的方法是如何在程序中用代码来做出文字选择,即你可以自己设计查找对话框。
      var
       Doc: IHtmlDocument2;
       TxtRange: IHtmlTxtRange;
      begin
       Doc :=WebBrowser1.Document as IHtmlDocument2;
       Doc.SelectAll;    //此处为简写,选择全部文档的方法请参见第三条命令操作
                   //这句话尤为重要,因为IHtmlTxtRange对象的方法能够操作的前提是
                   //Document已经有一个文字选择区域。由于接着执行下面的语句,所以不会
                   //看到文档全选的过程。
       TxtRange :=Doc.Selection.CreateRange as IHtmlTxtRange;
       TxtRange.FindText('Text to be searched',0.0);
       TxtRange.Select;
      end;
     还有,从Txt.Get_text可以得到当前选中的文字内容,某些时候是有用的。

提取网页中所有链接
     这个方法来自大富翁论坛hopfield朋友的对一个问题的回答,我本想自己试验,但总是没成功。
     var
      doc:IHTMLDocument2;
      all:IHTMLElementCollection;
      len,i:integer;
      item:OleVariant;
     begin
      doc:=WebBrowser1 .Document as IHTMLDocument2;
      all:=doc.Get_links;             //doc.Links亦可
      len:=all.length;
      for i:=0 to len-1 do begin
       item:=all.item(i,varempty);        //EmpryParam亦可
       memo1.lines.add(item.href);
      end;
     end;

设置TWebBrowser的编码
     为什么我总是错过很多机会?其实早就该想到的,但是一念之差,便即天壤之别。当时我要是肯再多考虑一下,多试验一下,这就不会排到第11条了。下面给出一个函数,搞定,难以想象的简单。
     procedure SetCharSet(AWebBrowser: TWebBrowser; ACharSet:
   String);
     var
      RefreshLevel: OleVariant;
     Begin
      IHTMLDocument2(AWebBrowser.Document).Set_CharSet(ACharSet);
      RefreshLevel :=7;              //这个7应该从注册表来,帮助有Bug。
      AWebBrowser.Refresh2(RefreshLevel);  

作者:网络 来源:转载
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有
本类固顶
  • 没有
  • 盒子文章(www.2ccc.com) © 2020 版权所有 All Rights Reserved.
  • 沪ICP备05001939号