paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 23:40:14 +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; Procedure RemoveConnection(aConnection :TFPHTTPConnection); override;
Public Public
Constructor Create(aServer : TFPCustomHTTPServer); override; Constructor Create(aServer : TFPCustomHTTPServer); override;
Destructor Destroy; override;
Procedure HandleConnection(aConnection : TFPHTTPConnection); override; Procedure HandleConnection(aConnection : TFPHTTPConnection); override;
Procedure CloseSockets; override; Procedure CloseSockets; override;
Function GetActiveConnectionCount : Integer; override; Function GetActiveConnectionCount : Integer; override;
@ -536,6 +537,13 @@ begin
Result:=TConnectionList.Create; Result:=TConnectionList.Create;
end; end;
destructor TFPHTTPServerConnectionListHandler.Destroy;
begin
FList.Free;
inherited Destroy;
end;
procedure TFPHTTPServerConnectionListHandler.CloseConnectionSocket(aConnection: TFPHTTPConnection; var aContinue: boolean); procedure TFPHTTPServerConnectionListHandler.CloseConnectionSocket(aConnection: TFPHTTPConnection; var aContinue: boolean);
begin begin
sockets.CloseSocket(aConnection.Socket.Handle); sockets.CloseSocket(aConnection.Socket.Handle);