[fpc-devel] OpenSSL

[Dave Connolly]

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
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20190522/05d1ba4c/attachment.html>