Perfect - thank you.


On Wed, 22 May 2019 at 12:35, Michael Van Canneyt <mich...@freepascal.org>
wrote:

>
>
> 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 <
> mich...@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@lists.freepascal.org
> >> http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
> >>
> >
> _______________________________________________
> fpc-devel maillist  -  fpc-devel@lists.freepascal.org
> http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
>
_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel

Reply via email to