delphi使用IdHttp 获取 HttpsURL内容

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;

推荐分享