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

fcl-web: fixed crash in websocket server on windows when closing when already disconnected

Browse Source
This commit is contained in:
mattias 2022-10-13 00:56:07 +02:00
parent b150480c60
commit eb17e6fd2d
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -586,7 +586,8 @@ end;
procedure TCustomWSServer.CloseConnectionSocket(aConnection: TWSServerConnection; var aContinue: boolean); procedure TCustomWSServer.CloseConnectionSocket(aConnection: TWSServerConnection; var aContinue: boolean);
begin begin
aConnection.ServerTransport.CloseSocket; if aConnection.ServerTransport<>nil then
aConnection.ServerTransport.CloseSocket;
aContinue:=True; aContinue:=True;
end; end;