Frag mal bitte im Exceptionblock weitere Fehler ab, die da u. a. wären:
Delphi-Quellcode:
except
on e:
Exception do begin
case http.ResponseCode
of
301, 302 : sMessage := sMessage + #13 + http.ResponseText;
403 :
begin
sMessage := http.ResponseText;
Result := Ord(myIdSSLVersion);
break;
end;
else
sMessage := sMessage + #13 + http.ResponseText + #13 + AnsiReplaceText(e.
Message, #13#10, '
');
end;
http.Disconnect(True);
http.IOHandler.InputBuffer.Clear;
end;
end;
Das Problem der Routine scheint nicht (nur) das Nichtfinden der SSL-Version zu sein, sondern bei erfolgreich gefundener SSL-Version folgt anschließend Fehler 403 und man landet damit auch in der Fehlerbehandlung.
Jedenfalls funktionieren bei mir sslvTLSv1_1 und sslvTLSv1_2, wie zu erwarten wäre.