DELPHI盒子
!实时搜索: 盒子论坛 | 注册用户 | 修改信息 | 退出
检举帖 | 全文检索 | 关闭广告 | 捐赠
技术论坛
 用户名
 密  码
自动登陆(30天有效)
忘了密码
≡技术区≡
DELPHI技术
移动应用开发
Web应用开发
数据库专区
报表专区
网络通讯
开源项目
论坛精华贴
≡发布区≡
发布代码
发布控件
文档资料
经典工具
≡事务区≡
网站意见
盒子之家
招聘应聘
信息交换
论坛信息
最新加入: qqh077
今日帖子: 0
在线用户: 5
导航: 论坛 -> 发布代码 斑竹:liumazi,ruralboy  
作者:
男 letianwuji (乐天无极) ▲▲▲▲△ -
注册会员
2021/1/1 9:31:14
标题:
用libcurl.dll获取网页源码—— 浏览:782
加入我的收藏
楼主: https://github.com/Mercury13/curl4delphi

示例:
uses
Curl.Interfaces, Curl.Easy, Curl.Lib, Curl.Encoders, Curl.Slist;

function GetCuilHtmlText(Url:string);
var
  curl : ICurl;
  HTML:string;
begin
  curl := CurlGet;
  curl.SetOpt(CURLOPT_SSL_VERIFYPEER, 0);
  curl.SetOpt(CURLOPT_SSL_VERIFYHOST, 0);

  curl.SetUserAgent(FirefoxUserAgent)
      .SetProxyFromIe
//      .SetCustomHeaders(CurlGetSlist
//          .AddRaw('Alpha: Bravo')
//          .AddRaw('Charlie: Delta'))
      .SetUrl(CurlGetBuilder(Url))
      .SetFollowLocation(true)
//          .Param('a', edA.Text)
//          .Param('b', edB.Text))
      .SwitchRecvToString
      .Perform;
  HTML:=UTF8ToString(curl.ResponseBody);
Result:=HTML;

end;
----------------------------------------------
相信自己,若自己都不相信,那还有谁可信。
信息
登陆以后才能回复
Copyright © 2CCC.Com 盒子论坛 v2.1 版权所有 页面执行32.95898毫秒 RSS