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

* Patch from Yuri Silver to read data correctly. fix issue 39517

Browse Source
This commit is contained in:
Michaël Van Canneyt 2022-01-06 23:42:11 +01:00
parent fd54c958c9
commit 2460ecb9d9
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/fpwebsocket.pp
View File

@ -834,7 +834,7 @@ begin
if aCount>MaxBufSize then
aCount:=MaxBufSize;
SetLength(Buf,aCount);
aTransport.ReadBytes(Buf,aCount);
acount:=aTransport.ReadBytes(Buf,aCount);
Move(Buf[0],Content[aPos],aCount);
Inc(aPos,aCount);
ToRead:=DataLength-aPos;