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

* When available, try to negotiate a TLS connection, if not available, use the deprecated way (sslv23)

Browse Source 
git-svn-id: trunk@36853 -
This commit is contained in:
joost 2017-08-04 22:51:09 +00:00
parent 84635bcffa
commit fd8072e525
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/openssl/src/fpopenssl.pp
View File

@ -182,7 +182,13 @@ Var
begin
C := nil;
Case AType of
stAny: C := SslCtxNew(SslMethodV23);
stAny:
begin
if Assigned(SslTLSMethod) then
C := SslCtxNew(SslTLSMethod)
else
C := SslCtxNew(SslMethodV23);
end;
stSSLv2: C := SslCtxNew(SslMethodV2);
stSSLv3: C := SslCtxNew(SslMethodV3);
stTLSv1: C := SslCtxNew(SslMethodTLSV1);