paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 13:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

The disconnect event is now called once instead of three.

Browse Source
This commit is contained in:
Yuri 2022-01-05 12:18:46 +03:00 committed by Yuri Silver
parent ea345f34aa
commit 045472a5e7
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1297,8 +1297,6 @@ end;
procedure TWSConnection.Disconnect; procedure TWSConnection.Disconnect;
begin begin
DoDisconnect; DoDisconnect;
if Assigned(FOnDisconnect) then
FOnDisconnect(Self);
end; end;
procedure TWSConnection.Close(aData: TBytes); procedure TWSConnection.Close(aData: TBytes);