paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 20:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* When InitContext fails, TSSLSocketHandler.Connect should return false.

Browse Source 
git-svn-id: trunk@36851 -
This commit is contained in:
joost 2017-08-04 21:40:27 +00:00
parent c98e9b230f
commit 4d2d45da0b
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-net/src/sslsockets.pp
View File

@ -221,7 +221,8 @@ end;
function TSSLSocketHandler.Connect: Boolean; function TSSLSocketHandler.Connect: Boolean;
begin begin
Result:=Inherited Connect; Result:=Inherited Connect;
if Result and InitContext(False) then Result := Result and InitContext(False);
if Result then
begin begin
Result:=CheckSSL(FSSL.SetFD(FSocket.Handle)); Result:=CheckSSL(FSSL.SetFD(FSocket.Handle));
if Result then if Result then