paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 09:29:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added InitSSLInterface overload where the library names can be specified

Browse Source 
git-svn-id: trunk@47174 -
This commit is contained in:
michael 2020-10-24 16:29:33 +00:00
parent 297f468cd6
commit b5148304b7
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
packages/openssl/src/openssl.pas
View File

@ -1467,6 +1467,7 @@ var
procedure BN_free(a:PBIGNUM); procedure BN_free(a:PBIGNUM);
function IsSSLloaded: Boolean; function IsSSLloaded: Boolean;
function InitSSLInterface(Const aSSLName, acryptoName : String) : Boolean; overload;
function InitSSLInterface: Boolean; overload; function InitSSLInterface: Boolean; overload;
function DestroySSLInterface: Boolean; function DestroySSLInterface: Boolean;
@ -5613,13 +5614,15 @@ begin
end; end;
{$ENDIF} {$ENDIF}
Function LoadLibraries : Boolean; Function LoadLibraries(Const aSSLName, aCryptoName : String) : Boolean;
var var
Idx: Integer; Idx: Integer;
begin begin
Result:=False; Result:=False;
if (aSSLName<>'') and (aCryptoName<>'') then
Exit(TryLoadLibPair(aSSLName,aCryptoName));
{$IF DEFINED(WINDOWS) OR DEFINED(OS2)} {$IF DEFINED(WINDOWS) OR DEFINED(OS2)}
Assert(Low(SSL_DLL_Names) = Low(Crypto_DLL_Names)); Assert(Low(SSL_DLL_Names) = Low(Crypto_DLL_Names));
Assert(High(SSL_DLL_Names) = High(Crypto_DLL_Names)); Assert(High(SSL_DLL_Names) = High(Crypto_DLL_Names));
@ -5640,6 +5643,13 @@ begin
end; end;
function InitSSLInterface: Boolean; function InitSSLInterface: Boolean;
begin
Result:=InitSSLInterface('','');
end;
function InitSSLInterface(Const aSSLName, acryptoName : String) : Boolean;
begin begin
Result:=SSLLoaded; Result:=SSLLoaded;
if Result then if Result then
@ -5648,7 +5658,7 @@ begin
try try
if SSLloaded then if SSLloaded then
Exit; Exit;
Result:=LoadLibraries; Result:=LoadLibraries(aSSLName,aCryptoName);
if Not Result then if Not Result then
begin begin
UnloadLibraries; UnloadLibraries;