On Wed, 22 May 2019, Dave Connolly wrote:

Hi all,

Would it be possible to add the following function to openssl.pas?

_OpenSSLVersion := GetProcAddr(SSLLibHandle, 'OpenSSL_version');

.
.
.

function OpenSSLGetVersion(t: cint):String;
begin
 if InitSSLInterface and Assigned(_OpenSSLVersion) then
   Result := _OpenSSL_version(t)
 else
   Result := '';
end;

Added, revision 42113. Please test and let me know if it is ok.

Michael.

_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel

Reply via email to