mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-15 05:59:30 +02:00
The disconnect event is now called once instead of three.
This commit is contained in:
parent
ea345f34aa
commit
045472a5e7
@ -1297,8 +1297,6 @@ end;
|
||||
procedure TWSConnection.Disconnect;
|
||||
begin
|
||||
DoDisconnect;
|
||||
if Assigned(FOnDisconnect) then
|
||||
FOnDisconnect(Self);
|
||||
end;
|
||||
|
||||
procedure TWSConnection.Close(aData: TBytes);
|
||||
|
Loading…
Reference in New Issue
Block a user