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

fcl-web: clean up

Browse Source
This commit is contained in:
mattias 2022-08-22 18:59:30 +02:00
parent f341baeaa7
commit 4503070f7f
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -666,7 +666,7 @@ begin
aPos := 0; aPos := 0;
SetLength(aBytes, aCount); SetLength(aBytes, aCount);
repeat repeat
SetLength(buf, aCount); SetLength(buf{%H-}, aCount);
Result := FSocket.Read(buf[0], aCount - aPos); Result := FSocket.Read(buf[0], aCount - aPos);
if Result <= 0 then if Result <= 0 then
break; break;
@ -699,7 +699,6 @@ end;
{ TWSMessage } { TWSMessage }
function TWSMessage.GetAsString: UTF8String; function TWSMessage.GetAsString: UTF8String;
begin begin
Result:=TEncoding.UTF8.GetString(Payload); Result:=TEncoding.UTF8.GetString(Payload);
end; end;
@ -947,10 +946,6 @@ end;
{ TWSFrame } { TWSFrame }
constructor TWSFrame.Create(aType: TFrameType; aIsFinal: Boolean; APayload: TBytes; aMask: Integer=0); constructor TWSFrame.Create(aType: TFrameType; aIsFinal: Boolean; APayload: TBytes; aMask: Integer=0);
var
closeData: TBytes;
begin begin
Create(aType,aIsFinal,aMask); Create(aType,aIsFinal,aMask);