Download einer Datei liefert EidOSSLCreatingContextError - Fehler beim Anlegeb eines

[erich.wanker]

Ich bekomme folgende Zeilen einfach nicht zum laufen
Ziel ist der Download div. CSV Dateien von der Statistik Österreich

Hat jemand eine Idee - woran es liegen könnte?
LiGrü Erich


Delphi XE 4
Indy version 10.6.0.4975
libeay32.dll version 1.0.2.17
ssleay32.dll version 1.0.2.17

PS. Infos vom Betreiber:

Zitat:

„Die Bundesanstalt Statistik Österreich erlaubt aus Sicherheitsgründen kein SSLv3, TLS1.0 und TLS1.1 mehr“.
Als Hinweis: Es darf für den SSL Handshake kein SSLv3 verwendet werden.

Delphi-Quellcode:

var
  IdHTTP1: TIdHTTP;
  IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
  Stream: TMemoryStream;
  Url, FileName: String;
begin
  try


    UnLoadOpenSSLLibrary;
    IdOpenSSLSetLibPath(mainform.datenpfad + 'index_download\');
    LoadOpenSSLLibrary;

    Url := 'https://data.statistik.gv.at/data/OGD_vpi96_VPI_1996_1.csv';
    FileName := mainform.datenpfad + 'index_download/' + 'OGD_vpi96_VPI_1996_1.csv';
    IdHTTP1 := TIdHTTP.Create(self);
    IdSSLIOHandlerSocketOpenSSL:= TIdSSLIOHandlerSocketOpenSSL.Create(self);
    IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method:=sslvSSLv2;
    IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL;

    Stream := TMemoryStream.Create;
    try
      IdHTTP1.Get(Url, Stream);
      Stream.SaveToFile(FileName);
    finally
      IdHTTP1.IOHandler.Free;
      Stream.Free;
      IdHTTP1.Free;
    end;

   
    end;