paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 12:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixed memory leak caused by FSocket not being freed if error during connect (bug ID 26959)

Browse Source 
git-svn-id: trunk@30619 -
This commit is contained in:
michael 2015-04-17 13:35:41 +00:00
parent f5aeb96c97
commit f67cbabdc6
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
packages/fcl-web/src/base/fphttpclient.pp
View File

@ -456,7 +456,12 @@ begin
Aport:=80;
G:=GetSocketHandler(UseSSL);
FSocket:=TInetSocket.Create(AHost,APort,G);
FSocket.Connect;
try
FSocket.Connect;
except
FreeAndNil(FSocket);
Raise;
end;
end;
procedure TFPCustomHTTPClient.DisconnectFromServer;