Ich verwende diesen Code, um mal prinzipiell die Verfügbarkeit von SSL zu testen:
Code: Alles auswählen
function TMainForm.SSLVersionInfo: String;
var
TestSocket:TTCPBlockSocket;
begin
TestSocket := TTCPBlockSocket.Create;
Try
result := Format('SSL Support: %s (%s)',[TestSocket.SSL.LibVersion,TestSocket.SSL.LibName]);
finally
FreeAndNil(TestSocket);
end;
end;
Versuche ich dennoch, eine SSL Connection entgegen zu nehmen, läuft ConnectionSocket.SSLAcceptConnection auf eine Exception -1 "SSL/TLS support is not compiled!". Nach meiner Windows Erfahrung ist die Meldung ziemlich irreführend, mit "compiled" hat sie nichts zu tun, sie weist darauf hin dass SSL aus irgendeinem Grund nicht anspringt, z.B. wenn ich eine SSL Verbindung verlange, obwohl mein Test bereits ergeben hat, dass die dlls nicht vorhanden sind.
Verwendete Packages: laz_openssl und laz_synapse.
Wer kann mir verraten, wie ich SSL unter Linux ans Laufen bekomme?
Thnx, Armin.