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

  Alt 20. Jul 2017, 12: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 = 'httpsthen
  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
  Mit Zitat antworten Zitat