[proshka]

Пишу программу в Delphi XE8, разбирающую пакет данных, захваченный с помощью Wireshark и сохраненный в текстовый файл.
В файле содержится текст в виде: "d0 b2 d0 b0 d0 b4 d1 8f" или "6d 61 6b 61 72". (в первом случае это "вадя", во втором "makar").
Помогите, пожалуйста, как этот текст декодировать?

[Alegun]

Вот для "makar" это под D7 работает

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TForm1.Button1Click(Sender: TObject);  const Source: string = '6d 61 6b 61 72';  var  s: string;  i: integer; begin  with TStringList.Create do  try    Text := StringReplace(Source, #32, #13#10, [rfReplaceAll]);    s:= '';    for i := 0 to Count - 1 do      s:= s + Chr(StrToInt('$' + Strings[i]));    ShowMessage(s);  finally    Free;  end; end;

а с юникодом в русской раскладке под XE8 вам виднее

[proshka]

Решение подсказал Serge_Bliznykov с другого форума. Вот оно:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

procedure TForm1.Button1Click(Sender: TObject); var s, sr : AnsiString;   i : integer;   ws : widestring; begin   s := 'd0 b2 d0 b0 d0 b4 d1 8f';     i := 1;   sr := '';   while i<Length(s) do begin     sr := sr + AnsiChar(StrToInt('$'+copy(s,i,2)));     Inc(i,3);   end;   ws := utf8decode(sr);     ShowMessage(ws); end;