IDHTTP und SSL

[Steven2]

Hallo Zusammen,
ich habe nun echt Studen damit verbracht und komme nicht weiter.
ich möchte den Inhalt einer Webseite mit IDHTTP auslesen.
Leider scheitere ich an dem SSL Protokoll.
Es steht dann dort:
---------------------------
Form1
---------------------------
SSL.-Bibliothek konnte nicht geladen werden.
---------------------------
OK
---------------------------

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  lHTTP: TIdHTTP;
begin
  lHTTP := TIdHTTP.Create(nil);
  try
    lHTTP.IOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(lHTTP);
    lHTTP.HandleRedirects := True;
    s := lHTTP.Get('https://xxxxxx.de/ip.php');
    Edit1.Text := s;
  finally
    lHTTP.Free;
  end;
end;

Gibt es eine Möglichkeit das unkompliziert zu realisieren?
Könnte das auch über den TWebbrowser machen aber das ist irgendwie schwerfällig.

Beste Grüße,
Steven

[ConstantGardener]

,,,hast du denn die OpenSSl DLL's im Programmpfad?

[Mavarik]

Oder einfach die SSL Funktionalität vom Betriebssystem verwenden..

MVP Kollege Paul Toth hat da was gebaut.

https://github.com/tothpaul/Delphi/t.../Indy.SChannel

Funktioniert prima.

Mavarik :coder:

PS.: Er freut sich über jede Spende...

[Steven2]

Hallo Andreas,
Dankeschön
ja, nun schon :roll:
Habe die DLL's von hier:
https://www.ghisler.com/openssl/indexd.htm

Das ist nun die Meldung:
---------------------------
Form1
---------------------------
Fehler beim Verbinden mit SSL.

error:1409442E:SSL routines:ssl3_read_bytes:tlsv1 alert protocol version.
---------------------------
OK
---------------------------

[Steven2]

Zitat:

Zitat von Mavarik (Beitrag 1507101)

Oder einfach die SSL Funktionalität vom Betriebssystem verwenden..

MVP Kollege Paul Toth hat da was gebaut.

https://github.com/tothpaul/Delphi/t.../Indy.SChannel

Funktioniert prima.

Mavarik :coder:

PS.: Er freut sich über jede Spende...

Dankeschön, das schaue ich mir auch an :))

[mjustin]

Zitat:

Zitat von Steven2 (Beitrag 1507104)

error:1409442E:SSL routines:ssl3_read_bytes:tlsv1 alert protocol version.

Siehe hier: https://github.com/IndySockets/Indy/issues/181

Indy aktiviert standardmäßig anscheinend nur Support für TLS 1.0, dabei stellten viele Server auf höhere Version um.

Nach https://stackoverflow.com/a/60578981/80901 sieht die Lösung so aus:

Code:

lHTTP.IOHandler.SSLOptions.SSLVersions := [sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];

Wobei sslvTLSv1 allerdings nicht mehr sicher ist (BEAST atttack)

[Steven2]

Vielen, vielen Dank euch allen für die Hilfe. So komme ich nun weiter. 🙏🏼😊