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;
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;