<div dir="ltr"><div>Perfect - thank you.</div><div><br></div><div><br></div></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Wed, 22 May 2019 at 12:35, Michael Van Canneyt <<a href="mailto:michael@freepascal.org">michael@freepascal.org</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><br>
<br>
Indeed. Silly me...<br>
Added to interface, revision 42114.<br>
<br>
Michael.<br>
<br>
On Wed, 22 May 2019, Dave Connolly wrote:<br>
<br>
> Just missing the function definition<br>
><br>
> function OpenSSLGetVersion(t: cint):String;<br>
><br>
><br>
><br>
> On Wed, 22 May 2019 at 11:53, Michael Van Canneyt <<a href="mailto:michael@freepascal.org" target="_blank">michael@freepascal.org</a>><br>
> wrote:<br>
><br>
>><br>
>><br>
>> On Wed, 22 May 2019, Dave Connolly wrote:<br>
>><br>
>>> Hi all,<br>
>>><br>
>>> Would it be possible to add the following function to openssl.pas?<br>
>>><br>
>>> _OpenSSLVersion := GetProcAddr(SSLLibHandle, 'OpenSSL_version');<br>
>>><br>
>>> .<br>
>>> .<br>
>>> .<br>
>>><br>
>>> function OpenSSLGetVersion(t: cint):String;<br>
>>> begin<br>
>>>  if InitSSLInterface and Assigned(_OpenSSLVersion) then<br>
>>>    Result := _OpenSSL_version(t)<br>
>>>  else<br>
>>>    Result := '';<br>
>>> end;<br>
>><br>
>> Added, revision 42113. Please test and let me know if it is ok.<br>
>><br>
>> Michael.<br>
>><br>
>> _______________________________________________<br>
>> fpc-devel maillist  -  <a href="mailto:fpc-devel@lists.freepascal.org" target="_blank">fpc-devel@lists.freepascal.org</a><br>
>> <a href="http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel" rel="noreferrer" target="_blank">http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel</a><br>
>><br>
><br>
_______________________________________________<br>
fpc-devel maillist  -  <a href="mailto:fpc-devel@lists.freepascal.org" target="_blank">fpc-devel@lists.freepascal.org</a><br>
<a href="http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel" rel="noreferrer" target="_blank">http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel</a><br>
</blockquote></div>