Delphi使用IdHttp 获取 HttpsURL内容

最新推荐文章于 2024-09-05 23:14:53 发布

weixin_34381687

最新推荐文章于 2024-09-05 23:14:53 发布

阅读量411

点赞数

文章标签：爬虫

原文链接：http://www.cnblogs.com/klaus/archive/2011/06/14/2080651.html

版权

uses IdHTTP, IdSSLOpenSSL;

function HttpsGet(const aURL, aContentFile: string): Boolean;
var
  vIdHTTP: TIdHTTP;
  vSSL: TIdSSLIOHandlerSocket;
  vMemory: TMemoryStream;
begin
try
    vIdHTTP := TIdHTTP.Create(nil);
    vSSL := TIdSSLIOHandlerSocket.Create(nil);
    vMemory := TMemoryStream.Create;
try
      vIdHTTP.IOHandler := vSSL;
      vSSL.SSLOptions.Method := sslvSSLv3;
      vIdHTTP.Get(aURL, vMemory);
      vMemory.SaveToFile(aContentFile);
      Result := True;
finally
      vMemory.Free;
      vSSL.Free;
      vIdHTTP.Free;
end;
except
    Result := False;
end;
end;