用TWebBrowser抓取页面

用DELPHI开发工具，在窗体上放一个TWebBrowser和Memo1控件。

USES MSHTML;

procedure TForm1.RzButton1Click(Sender: TObject);
begin

//打开页面地址
WebBrowser1.Navigate('http://www.gooooal.com/live/live.html');
Application.ProcessMessages;

//SLEEP(100); 此处最好设置一下延迟。
end;

procedure TForm1.RzButton2Click(Sender: TObject);
var
HTMLDOC : IHTMLDocument2;
begin
HTMLDOC := (WebBrowser1.Document as IHTMLDocument2);

//把页面文字信息导入MEMO1中
Memo1.Lines.Clear;
Memo1.Lines.Add(HTMLDOC.body.innerHTML);
end;

点评：

优点：简单快捷。

缺点：似乎不能后台操作，适合于开发客户端。