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

fcl-web: better error message conversion

Browse Source
This commit is contained in:
mattias 2024-01-31 10:24:40 +01:00
parent f29156340a
commit 0a0f213b8b
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1645,13 +1645,13 @@ begin
ErrMsg:=IntToStr(Err);
if woSendErrClosesConn in Options then
begin
if CP_ACP=CP_UTF8 then begin
SetLength(Data, length(ErrMsg));
Move(ErrMsg[1],Data[0],length(Data));
end else begin
SetLength(Data, 0);
Data.Append(TEncoding.UTF8.GetBytes(UnicodeString(ErrMsg)));
end;
{$IF SIZEOF(CHAR)=2}
SetLength(Data, 0);
Data.Append(TEncoding.UTF8.GetBytes(UnicodeString(ErrMsg)));
{$ELSE}
SetLength(Data, length(ErrMsg));
Move(ErrMsg[1],Data[0],length(Data));
{$ENDIF}
DispatchEvent(ftClose, nil, Data);
end
else