用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;
点评：
优点：简单快捷。
缺点：似乎不能后台操作，适合于开发客户端。