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

fcl-web: TCustomWSServer.RemoveConnection: call DoDisconnect on disconnect

Browse Source
This commit is contained in:
mattias 2022-08-22 19:12:04 +02:00
parent 0b24d5f92e
commit 87857252a4
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/fcl-web/src/websocket/fpcustwsserver.pp
View File

@ -592,15 +592,14 @@ end;
procedure TCustomWSServer.RemoveConnection(AConnection: TWSServerConnection;aDoDisconnect: Boolean); procedure TCustomWSServer.RemoveConnection(AConnection: TWSServerConnection;aDoDisconnect: Boolean);
begin begin
if not aDoDisconnect then if aDoDisconnect then
DoDisconnect(aConnection)
else
try try
aConnection.Disconnect; aConnection.Disconnect;
except except
on E : Exception do on E : Exception do
HandleError(aConnection,E); HandleError(aConnection,E);
end; end;
DoDisconnect(aConnection);
Connections.Remove(aConnection); Connections.Remove(aConnection);
aConnection.Free; aConnection.Free;
end; end;