Thema
:
HTTPS-Download, Fehler 12157
Einzelnen Beitrag anzeigen
hoika
Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.276 Beiträge
Delphi 10.4 Sydney
#
3
AW: HTTPS-Download, Fehler 12157
20. Jul 2017, 12:05
Hallo,
also mit
Indy
geht es.
zusammenfalten
·
markieren
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
hoika
Öffentliches Profil ansehen
Mehr Beiträge von hoika finden