Browse Source

* Merging revisions r45504 from trunk:
------------------------------------------------------------------------
r45504 | michael | 2020-05-26 09:48:23 +0200 (Tue, 26 May 2020) | 1 line

* Patch to try more 1.1 library names on windows (bug ID 37137)
------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46575 -

michael 5 years ago
parent
commit
e64257da96
1 changed files with 6 additions and 0 deletions
  1. 6 0
      packages/openssl/src/openssl.pas

+ 6 - 0
packages/openssl/src/openssl.pas

@@ -88,7 +88,9 @@ var
   {$IFDEF WINDOWS}
   {$IFDEF WINDOWS}
   DLLSSLName: string = 'ssleay32.dll';
   DLLSSLName: string = 'ssleay32.dll';
   DLLSSLName2: string = 'libssl32.dll';
   DLLSSLName2: string = 'libssl32.dll';
+  DLLSSLName3: string = {$IFDEF WIN64}'libssl-1_1-x64.dll'{$ELSE}'libssl-1_1.dll'{$ENDIF};
   DLLUtilName: string = 'libeay32.dll';
   DLLUtilName: string = 'libeay32.dll';
+  DLLUtilName2: string = {$IFDEF WIN64}'libcrypto-1_1-x64.dll'{$ELSE}'libcrypto-1_1.dll'{$ENDIF};
   {$ELSE}
   {$ELSE}
    {$IFDEF OS2}
    {$IFDEF OS2}
     {$IFDEF OS2GCC}
     {$IFDEF OS2GCC}
@@ -5630,8 +5632,12 @@ begin
   SSLUtilHandle := LoadLib(DLLUtilName);
   SSLUtilHandle := LoadLib(DLLUtilName);
   SSLLibHandle := LoadLib(DLLSSLName);
   SSLLibHandle := LoadLib(DLLSSLName);
   {$IFDEF MSWINDOWS}
   {$IFDEF MSWINDOWS}
+  if (SSLUtilHandle = 0) then
+    SSLUtilHandle := LoadLib(DLLUtilName2);
   if (SSLLibHandle = 0) then
   if (SSLLibHandle = 0) then
     SSLLibHandle := LoadLib(DLLSSLName2);
     SSLLibHandle := LoadLib(DLLSSLName2);
+  if (SSLLibHandle = 0) then
+    SSLLibHandle := LoadLib(DLLSSLName3);
   {$ELSE MSWINDOWS}
   {$ELSE MSWINDOWS}
    {$IFDEF OS2}
    {$IFDEF OS2}
   if (SSLUtilHandle = 0) then
   if (SSLUtilHandle = 0) then