INDY: sslv3 alert handshake failure

[erich.wanker]

Hallo
ich möchte texte von einem php file in ein Memo speichern
(der Server ist meiner - gehostet bei ionos)

ich bekomme aber immer den Fehler: sslv3 alert handshake failure

Eine Idee - woran es liegen könnte? (SSLOptions.Method hab ich schon alle durchprobiert)


Danke für Hinweise
Erich

Delphi-Quellcode:

uses
  IdBaseComponent, IdComponent, IdIOHandler, IdIOHandlerSocket,
  IdIOHandlerStack, IdSSL, IdSSLOpenSSL,IdTCPConnection, IdTCPClient,
  IdHTTP, IdSSLOpenSSLHeaders;

Delphi-Quellcode:

function GetPage(URL: string): string;
var
  IdHTTP1: TIdHTTP;
  IdSSLIOHandlerSocketOpenSSL: TIdSSLIOHandlerSocketOpenSSL;
  Stream: TMemoryStream;
  FileName: String;
begin
  try

    UnLoadOpenSSLLibrary;
    IdOpenSSLSetLibPath( UniServerModule.StartPath);
    LoadOpenSSLLibrary;

    IdHTTP1 := TIdHTTP.Create(self);
    IdHTTP1.HandleRedirects := True;
    IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(self);
    IdSSLIOHandlerSocketOpenSSL.SSLOptions.SSLVersions := [sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2, sslvSSLv2,sslvSSLv23,sslvSSLv3];
    IdSSLIOHandlerSocketOpenSSL.SSLOptions.Method := sslvSSLv3;
    IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL;




    Stream := TMemoryStream.Create;
    try
      IdHTTP1.Get(URL, Stream);
      UniMemo1.Lines.LoadFromStream(Stream);
    finally
      IdHTTP1.IOHandler.Free;
      Stream.Free;
      IdHTTP1.Free;
    end;
  finally

  end;
end;

Delphi-Quellcode:

procedure UniFrameCreate(Sender: TObject);
begin
     GetPage('https://seilbahn.net/sn/bericht_mo.php');
end;