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;
关键字词:
