[fpc-devel] OpenSSL

[Michael Van Canneyt]

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.