本文整理自网络，侵删。
方法一：
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);
相关阅读 >>
Delphi android windows ios通用获取程序版本
更多相关阅读请进入《Delphi》频道 >>
