paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 00:09:31 +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

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

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