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

相关阅读 >>

Delphi ipnumberipv4

Delphi动态复选框源码

Delphi 判断字符是否是数字

Delphi 获取指定当前目录下指定文件扩展名所有文件

Delphi xe5 Delphi 解析 json

Delphi hook 指定程序窗体和控件的 wndproc

Delphi 检查父进程

Delphi实现阿里云印刷文字识别_身份证识别

Delphi 先加载原内容在写入增加新内容

Delphi [数据库连接字符串] access 连接字符串

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...