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

* Patch from Andrew Haines: do not send close connection message if already closed

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-12-27 09:30:07 +01:00
parent 23d61350bd
commit 4f054f4097
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/fcl-web/src/websocket/fpwebsocketclient.pp
View File

@ -475,7 +475,7 @@ procedure TCustomWebsocketClient.Disconnect(SendClose : boolean = true);
begin begin
if Not Active then if Not Active then
Exit; Exit;
if SendClose then if SendClose and (Connection.CloseState <> csClosed) then
Connection.Close(''); Connection.Close('');
if Assigned(MessagePump) then if Assigned(MessagePump) then
MessagePump.RemoveClient(Connection); MessagePump.RemoveClient(Connection);