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