paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 01:38:07 +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);
function IsSSLloaded: Boolean;
function InitSSLInterface(Const aSSLName, acryptoName : String) : Boolean; overload;
function InitSSLInterface: Boolean; overload;
function DestroySSLInterface: Boolean;
@ -5613,13 +5614,15 @@ begin
end;
{$ENDIF}
Function LoadLibraries : Boolean;
Function LoadLibraries(Const aSSLName, aCryptoName : String) : Boolean;
var
Idx: Integer;
begin
Result:=False;
if (aSSLName<>'') and (aCryptoName<>'') then
Exit(TryLoadLibPair(aSSLName,aCryptoName));
{$IF DEFINED(WINDOWS) OR DEFINED(OS2)}
Assert(Low(SSL_DLL_Names) = Low(Crypto_DLL_Names));
Assert(High(SSL_DLL_Names) = High(Crypto_DLL_Names));
@ -5640,6 +5643,13 @@ begin
end;
function InitSSLInterface: Boolean;
begin
Result:=InitSSLInterface('','');
end;
function InitSSLInterface(Const aSSLName, acryptoName : String) : Boolean;
begin
Result:=SSLLoaded;
if Result then
@ -5648,7 +5658,7 @@ begin
try
if SSLloaded then
Exit;
Result:=LoadLibraries;
Result:=LoadLibraries(aSSLName,aCryptoName);
if Not Result then
begin
UnloadLibraries;