Delphi中WebBbrowser应用

av := 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; • 点击“提交”按钮 　　如同程序里每个窗体上有一个“缺省”按钮一样，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 = 1000000; { 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接口来实现，