用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;

 

点评：

优点：简单快捷。

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