delphi 网页数据抓取


方法一:
WebBrowser1.Silent := True;
WebBrowser1.Navigate(URL);
repeat
 Application.ProcessMessages;
until WebBrowser1.ReadyState = READYSTATE_COMPLETE;
WebBrowser1.Navigate(
 'javascript:document.getElementById("detailFormid").submit();');
repeat
 Application.ProcessMessages;
until WebBrowser1.ReadyState = READYSTATE_COMPLETE;
memo1.clear;
Memo1.Text:= WebBrowser1.OleObject.Document.documentElement.innerHtml;

方法二:
 URL := 'http://www.14a.cn/';
 IdHTTP := TIdHTTP.Create(Application);
 IdHttp.Request.UserAgent := 'Mozilla/3.0';
 IdHttp.HandleRedirects := True;
 IdHTTP.ReadTimeout := cTimeOut;
 Params := TStringList.Create;
Params.Add('tracknumbers=' + TrackId);
 Params.Add('cntry_code=us');
Html := IdHTTP.Post(URL, Params);

联系电话:
020-00000000
联系电话:
020-00000000
联系电话:
020-12345678