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

* destroy FList in the destructor of TFPHTTPServerConnectionListHandler

Browse Source
This commit is contained in:
Ondrej Pokorny 2021-08-29 12:50:41 +02:00
parent 9b8a6438c7
commit bfa0c60e77
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
packages/fcl-web/src/base/fphttpserver.pp
View File

@ -187,6 +187,7 @@ Type
Procedure RemoveConnection(aConnection :TFPHTTPConnection); override;
Public
Constructor Create(aServer : TFPCustomHTTPServer); override;
Destructor Destroy; override;
Procedure HandleConnection(aConnection : TFPHTTPConnection); override;
Procedure CloseSockets; override;
Function GetActiveConnectionCount : Integer; override;
@ -536,6 +537,13 @@ begin
Result:=TConnectionList.Create;
end;
destructor TFPHTTPServerConnectionListHandler.Destroy;
begin
FList.Free;
inherited Destroy;
end;
procedure TFPHTTPServerConnectionListHandler.CloseConnectionSocket(aConnection: TFPHTTPConnection; var aContinue: boolean);
begin
sockets.CloseSocket(aConnection.Socket.Handle);