<div dir="ltr"><div>Just missing the function definition <br></div><div><br></div><div>function OpenSSLGetVersion(t: cint):String;</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 11:53, 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>
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>
</blockquote></div>