盒子论坛 v2.1

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;
----------------------------------------------
相信自己，若自己都不相信，那还有谁可信。

信息

登陆以后才能回复