New

SSL path

  Saturday, 02 December 2023
  3 Replies
  339 Visits
  Subscribe
Hi Sergio, on SSL load error, this code is called, but nothing comes back from GetOpenSSLLibPath and GetOpenSSLLibVersion. Would be great to see this for troubleshooting.

Thanks,
James

constructor TIdSSLContext.Create;
var
vError: string;
{$IFNDEF IOS}
vFailedToLoad: string;
{$ENDIF}
begin
inherited Create;
// an exception here probably means that you are using the wrong version
// of the openssl libraries. refer to comments at the top of this file.
if not LoadOpenSSLLibrary then
begin
//-->sgc
vError := RSOSSLCouldNotLoadSSLLibrary;
{$IFNDEF IOS}
vFailedToLoad := WhichFailedToLoad;
if vFailedToLoad <> '' then
begin
vError := vError + #13#10 + '***PATH*** ' + GetOpenSSLLibPath;
vError := vError + #13#10 + '***VERSION*** ' + GetOpenSSLLibVersion;