Delphi下TWebBrowser控件的使用

程序需要访问网页时，delphi一般可以两种方式实现。一种是通过Tidhttp，这种方式post数据需要通过网页抓包等方式，模拟网页的post提交。

第二种是通过Twebbrowser控件访问，这种方式比较简单，现在将近期一个程序的关键部分记录下来，以备各位朋友参考。

一、访问网页

WebBrowser1.Navigate('http://www.baidu.com');

二、防止弹出的对话框或页面关闭webrowser控件

procedure TMyForm.WebBrowser1WindowClosing(ASender: TObject; IsChildWindow: WordBool; var Cancel: WordBool); begin Cancel := true; end;

三、得到frameset中frame内容为src 网址的document，因为如果用webbrowser1.documnent.frames取不到他的document

procedure TMyForm.WebBrowser1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant); begin if RightPosEx('input.php',URL) > 0 then//判断URL是需要的地址 begin myDocument := (pDisp as IWebBrowser2).Document as IHTMLDocument2; end end;