Как перекодировать восьмеричный UTF-8 в Текст?

Question

[Polim]

Нужно перекодировать в Delphi (XE5), восьмеричное представление UTF-8 (\320\241) в текст, чтобы можно было его вывести в Memo.

Comments

[Sergey Lerg]

В Delphi разве нет поддержки UTF-8?

[Polim]

Есть, вопрос состоит как конвертировать...

[Freeman]

Это не RTF?

[Polim]

Vapaamies: нет, это не RTF, это взято из лога wireshark'a

Answer 1

[kalapanga]

Polim: Вообщем вот так желаемая буква 'С' из байтов получается:
var
S: RawByteString;
begin
SetLength(S,2);
S[1] := AnsiChar($D0);
S[2] := AnsiChar($A1);
Edit1.Text := UTF8ToString(S);
end;

Comments

[Polim]

Благодарю, то что нужно :)

Answer 2

[xmoonlight]

тут

Comments

[Polim]

Читайте внимательнее!!!

[xmoonlight]

Polim: поясните детальнее... что не получается сделать?

[Polim]

xmoonlight: "\320\241" = $D0A1 = "С" (в кодировке UTF-8: Table UTF8)
Если делаю конвертацию шестнадцатеричного кода в десятичную систему счисления, потом WideChar, получаю не букву "С", а какой то китйскояпонский символ...

[xmoonlight]

Polim: ну конечно) $s=UTF8ToString($utf8string); используйте

[Polim]

xmoonlight: Тогда получаются на выходе знаки вопроса, уже пробовал...

[xmoonlight]

Polim: charset пробоволи задать для компонента (или прям в коде)?

[Polim]

xmoonlight: пробовал уже

[xmoonlight]

Polim: $s=UTF8Decode($utf8string);
а так?

[kalapanga]

Polim: Вместо UTF8ToString попробуй Utf8ToAnsi

[Polim]

xmoonlight: выше уже писал

[Polim]

kalapanga: Бесполезно