webbrowser socket 问题

Question

我是新手，这2天看了delphi中的webbrowse
我想用webbrowser他和IE兼容的很好，可是我又想看发送出去的数据，就像SOCKET。
不知道该如何应用？HOOK SEND？
如果是一个程序里头有多个webbrowser呢？
大家给我些建议哈。

Answer 1

富农的贴子给分就是多啊，呵呵！解决代码如下：
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, StdCtrls,ActiveX,mshtml;type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    Memo1: TMemo;
    Edit1: TEdit;
    Button3: TButton;
    procedure WebBrowser1DocumentComplete(Sender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  memo1.Lines.Text:=(WebBrowser1.document as ihtmldocument2).cookie;end;procedure TForm1.Button3Click(Sender: TObject);
begin
  WebBrowser1.Navigate(EDIT1.Text);
end;end.