Laden einer XML-RSS-Feeds mit tIdHTTP endet mit 'Socket-Fehler # 10054'

[Guido R.]

Setzen von TLS hatte keine Wirkung.

Ich habe Deine Funktion MyGetSSLMethod mal in Delphi XE2 und XE10.2 bei ansonsten gleichen Einstellungen umgesetzt.

Ergebnis XE2 :

Code:

sslvSSLv23

Ergebnis XE10.2 :

Code:

Fehler beim Verbinden mit SSL.
error:00000006:lib(0):func(0):EVP lib
Socket-Fehler # 10054Die Verbindung wurde von Peer zurückgesetzt.

Fehler beim Verbinden mit SSL.
EOF festgestellt, das gegen das Protokoll verstößt
Socket-Fehler # 10054Die Verbindung wurde von Peer zurückgesetzt.

Socket-Fehler # 10054Die Verbindung wurde von Peer zurückgesetzt.

Socket-Fehler # 10054Die Verbindung wurde von Peer zurückgesetzt.

[nahpets]

Zu den Indys gibt es OpenSSL-Dlls (hier im Forum zu finden: http://www.delphipraxis.net/1308662-post40.html (momentan aktuell) bzw. http://www.delphipraxis.net/114945-i...tsupdates.html (ganzer Thread)).

Schau bitte mal, ob die unterschiedlichen Programme die gleichen Dlls nutzen oder ob Du da eventuell in unterschiedlichen Pfaden unterschiedliche DLLs hast oder die mit XE10.2 erstelle Programmversion eventuell keine DLLs findet.

Die libeay32.dll und die ssleay32.dll haben bei mit die Versionsnr. 1.0.2.12.

Indy ist, wie Delphi 7, schon ein bisserl antiquiert: gsIdVersion = '10.2.3';

[Guido R.]

Bin eben a.G. eines polnischen Video-Tutorials auf eine ähnliche Idee gekommen und habe mir von https://indy.fulgan.com/SSL/ die aktuellen DLLs gezogen und in das EXE-Verzeichnis entpackt.

Und was soll ich sagen? - Es funktioniert. :wall: ---> :hello:

Danke für die Tipps !

[ManBu]

Hi,

dass es mit sslvTLSv1 nicht funktioniert hat ist klar, ich habe auch sslvTLSv1_2 geschrieben.

Die ELSTER-Domain unterstützt laut:
https://www.ssllabs.com/ssltest/anal...ults=on&latest

auch nur TLS 1.2.

Wenn ich mir den Indy-Quellcode so anschauen verstehe ich auch warum das mit sslvSSLv23 funktioniert hat:

Code:

procedure TIdSSLOptions.SetMethod(const AValue: TIdSSLVersion);
begin
(...)
    sslvSSLv23 : fSSLVersions := [sslvSSLv2,sslvSSLv3,sslvTLSv1,sslvTLSv1_1,sslvTLSv1_2];
(...)
end;

Hauptsache es funktioniert jetzt.