delphi xe10 utf8 解码问题

[pykill8]

delphi xe10 utf8 解码问题
我发一段
32,227,128,144,49,55,53,227,128,145,230,185,150

我转换为sByte: Tbytes;

我用 utf8toAnsi(ansistring(sByte))
会有乱码的现象，请问，要什么解决

xe10

[frtrnr]

测试了很多函数 function CharToWide(const S: String; CodePage: Word): WideString; function WideToChar(const WS: WideString; CodePage: Word): String; function CharToChar(const S: String; CP1, CP2: Word): String; function AnsiToWide(const S: AnsiString): WideString; function WideToUTF8(const WS: WideString): UTF8String; function AnsiToUTF8(const S: AnsiString): UTF8String; function UTF8ToWide(const US: UTF8String): WideString; function WideToAnsi(const WS: WideString): AnsiString; function UTF8ToAnsi(const S: UTF8String): AnsiString; function StringToWideStringEx(const S: string; CodePage: Word): WideString; function WideStringToStringEx(const WS: WideString; CodePage: Word): string; 最后发现是这个:

function UTF8ToWide(const US: UTF8String): WideString;
var
  len: integer;
  ws: WideString;
begin
  Result:='';
  if (Length(US) = 0) then
    exit;
  len:=MultiByteToWideChar(CP_UTF8, 0, PChar(US), -1, nil, 0);
  SetLength(ws, len);
  MultiByteToWideChar(CP_UTF8, 0, PChar(US), -1, PWideChar(ws), len);
  Result:=ws;
end;

你给出的字符串，转化为一个ansistring 字符串后，再使用这个函数，它的结果是： 【175】湖