[fpc-devel] OpenSSL

[Michael Van Canneyt]

Indeed. Silly me...
Added to interface, revision 42114.

Michael.

On Wed, 22 May 2019, Dave Connolly wrote:

> Just missing the function definition
>
> function OpenSSLGetVersion(t: cint):String;
>
>
>
> On Wed, 22 May 2019 at 11:53, Michael Van Canneyt <michael at freepascal.org>
> wrote:
>
>>
>>
>> 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 at lists.freepascal.org
>> http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
>>
>