Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / fpc-devel / 2019-05

OpenSSL

5 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Dave Connolly

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;

Many thanks,
David

Reply by email

Michael Van Canneyt
to Dave Connolly
Dave Connolly wrote 17 lines
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.

Reply by email

Dave Connolly
to Michael Van Canneyt

Just missing the function definition

function OpenSSLGetVersion(t: cint):String;
Michael Van Canneyt wrote 30 lines
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 - http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel

Reply by email

Michael Van Canneyt
to Dave Connolly

Indeed. Silly me...
Added to interface, revision 42114.

Michael.

Dave Connolly wrote 40 lines
Just missing the function definition function OpenSSLGetVersion(t: cint):String; On Wed, 22 May 2019 at 11:53, Michael Van Canneyt 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 - > http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel >

Reply by email

Dave Connolly
to Michael Van Canneyt

Perfect - thank you.

Michael Van Canneyt wrote 54 lines
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 < > > 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 - >> http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel >> > _______________________________________________ fpc-devel maillist - http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel

Reply by email