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

Fix error getting payload when receiving a close command.

Browse Source
This commit is contained in:
Yuri Serebrennikov 2022-07-19 22:33:28 +03:00
parent 769b8a07b0
commit 258b4576a2
1 changed files with 1 additions and 1 deletions

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

@ -1024,7 +1024,7 @@ begin
FReason:=SwapEndian(FPayload.Data.ToWord(0));
FPayload.DataLength := FPayload.DataLength - 2;
if FPayload.DataLength > 0 then
move(FPayload.Data[2], FPayload.Data[0], FPayload.DataLength - 2);
move(FPayload.Data[2], FPayload.Data[0], FPayload.DataLength);
SetLength(FPayload.Data, FPayload.DataLength);
end;
Result:=True;