paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 17:19:33 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added OpenSSL's SslTLSMethod

Browse Source 
git-svn-id: trunk@36852 -
This commit is contained in:
joost 2017-08-04 22:45:04 +00:00
parent 4d2d45da0b
commit 84635bcffa
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/openssl/src/openssl.pas
View File

@ -986,6 +986,7 @@ var
function SslMethodTLSV1_1:PSSL_METHOD;
function SslMethodTLSV1_2:PSSL_METHOD;
function SslMethodV23:PSSL_METHOD;
function SslTLSMethod:PSSL_METHOD;
function SslCtxUsePrivateKey(ctx: PSSL_CTX; pkey: SslPtr):cInt;
function SslCtxUsePrivateKeyASN1(pk: cInt; ctx: PSSL_CTX; d: String; len: cLong):cInt;
// function SslCtxUsePrivateKeyFile(ctx: PSSL_CTX; const _file: PChar; _type: cInt):cInt;
@ -1388,6 +1389,7 @@ type
TSslMethodTLSV1_1 = function:PSSL_METHOD; cdecl;
TSslMethodTLSV1_2 = function:PSSL_METHOD; cdecl;
TSslMethodV23 = function:PSSL_METHOD; cdecl;
TSslTLSMethod = function:PSSL_METHOD; cdecl;
TSslCtxUsePrivateKey = function(ctx: PSSL_CTX; pkey: sslptr):cInt; cdecl;
TSslCtxUsePrivateKeyASN1 = function(pk: cInt; ctx: PSSL_CTX; d: sslptr; len: cInt):cInt; cdecl;
TSslCtxUsePrivateKeyFile = function(ctx: PSSL_CTX; const _file: PChar; _type: cInt):cInt; cdecl;
@ -1607,6 +1609,7 @@ var
_SslMethodTLSV1_1: TSslMethodTLSV1_1 = nil;
_SslMethodTLSV1_2: TSslMethodTLSV1_2 = nil;
_SslMethodV23: TSslMethodV23 = nil;
_SslTLSMethod: TSslTLSMethod = nil;
_SslCtxUsePrivateKey: TSslCtxUsePrivateKey = nil;
_SslCtxUsePrivateKeyASN1: TSslCtxUsePrivateKeyASN1 = nil;
_SslCtxUsePrivateKeyFile: TSslCtxUsePrivateKeyFile = nil;
@ -2028,6 +2031,14 @@ begin
Result := nil;
end;
function SslTLSMethod:PSSL_METHOD;
begin
if InitSSLInterface and Assigned(_SslTLSMethod) then
Result := _SslTLSMethod
else
Result := nil;
end;
function SslCtxUsePrivateKey(ctx: PSSL_CTX; pkey: SslPtr):cInt;
begin
if InitSSLInterface and Assigned(_SslCtxUsePrivateKey) then
@ -3975,6 +3986,7 @@ begin
_SslMethodTLSV1_1 := GetProcAddr(SSLLibHandle, 'TLSv1_1_method');
_SslMethodTLSV1_2 := GetProcAddr(SSLLibHandle, 'TLSv1_2_method');
_SslMethodV23 := GetProcAddr(SSLLibHandle, 'SSLv23_method');
_SslTLSMethod := GetProcAddr(SSLLibHandle, 'TLS_method');
_SslCtxUsePrivateKey := GetProcAddr(SSLLibHandle, 'SSL_CTX_use_PrivateKey');
_SslCtxUsePrivateKeyASN1 := GetProcAddr(SSLLibHandle, 'SSL_CTX_use_PrivateKey_ASN1');
//use SSL_CTX_use_RSAPrivateKey_file instead SSL_CTX_use_PrivateKey_file,
@ -4259,6 +4271,7 @@ begin
_SslMethodTLSV1_1 := nil;
_SslMethodTLSV1_2 := nil;
_SslMethodV23 := nil;
_SslTLSMethod := nil;
_SslCtxUsePrivateKey := nil;
_SslCtxUsePrivateKeyASN1 := nil;
_SslCtxUsePrivateKeyFile := nil;