Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.277 Beiträge
Delphi 10.4 Sydney
|
AW: HTTPS-Download, Fehler 12157
20. Jul 2017, 11:05
Hallo,
also mit Indy geht es.
Delphi-Quellcode:
function DownloadFile2( URL: string; Path: string): Boolean;
var
URI : TIdURI;
IOHandler : TIdSSLIOHandlerSocketOpenSSL;
HTTP : TIdHTTP;
FileStream: TFileStream;
begin
URI := TIdURI.Create( URL);
//URI.Username := ParamUserName;
//URI.Password := ParamPassword;
HTTP := TIdHTTP.Create( nil);
if URI.Protocol = ' https' then
begin
IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create( nil);
//IOHandler.SSLOptions.Method := sslvSSLv3;
HTTP.IOHandler := IOHandler;
end;
FileStream:= TFileStream.Create(Path, fmCreate);
HTTP.Get( URI.GetFullURI([ofAuthInfo]), FileStream);
FileStream.Free;
end;
Heiko
|
|
Zitat
|