Преобразовать 16-ричные значения байтов в текст

[ProshkaS]

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

[Serge_Bliznykov]

Сообщение от ProshkaS

Помогите, пожалуйста, как этот текст декодировать?

если Вы про то, как перевести текстовый файл содержащий строку вида:
d0 b2 d0 b0 d0 b4 d1 8f
в бинарный файл, то всё просто
читаете строку, берёте из строки по два символа,
переводите из строкового Hex представления в числовое (вот так StrToInt('$'+ss))
и полученный байт записываете в выходной файл.
вот и всё.

[ProshkaS]

Не совсем. Мне нужно из 'd0 b2 d0 b0 d0 b4 d1 8f' получить 'вадя' и результат занести в поле БД. Причем, русские буквы закодированы 2мя байтами, английские 1им. (utf8, видимо).

utf8decode(#208#178) выдает символ 'в'. 208 - это d0 в dec, 178 - b2 в dec. Но как передать этой функции наши данные, которые находятся в integer переменных, я так и не придумал

[Serge_Bliznykov]

вот, набросал рабочий пример:

procedure TForm1.Button1Click(Sender: TObject);
var s : string;
  f : TFileStream;
  i : integer;
  b : byte;
begin
  f := TFileStream.Create( ExtractFilePath(ParamStr(0))+'RESULT.TXT', fmCreate);
  s := 'd0 b2 d0 b0 d0 b4 d1 8f';

  s := trim(s);
  i :=1;
  while i<Length(s) do begin
    b := StrToInt('$'+copy(s,i,2));
    f.Write(b, 1);
    Inc(i,3);
  end;
  FreeAndNil(f);
end;

[Filka]

function HexToStr(const Hex: string): string;
var
  L: Integer;
begin
  L := Length(Hex) div 2;
  SetLength(Result, L);
  HexToBin(@Hex[1], @Result[1], L);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Utf8ToAnsi(HexToStr(StringReplace('d0 b2 d0 b0 d0 b4 d1 8f', ' ', '', [rfReplaceAll]))));
end;

или UTF8Decode вместо Utf8ToAnsi

[Serge_Bliznykov]

опоздал. но всё же свой топорный вариант тоже выложу для коллекции:

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;

[ProshkaS]

[QUOTE=Filka;1676234]
ошибка при компиляции [dcc32 Error] Unit1.pas(55): E2251 Ambiguous overloaded call to 'HexToBin'
в строке:

HexToBin(@Hex[1], @Result[1], L);

[ProshkaS]

[QUOTE=Serge_Bliznykov;1676237]
Благодарю! Все работает. А я 2 дня голову ломал

[Filka]

ProshkaS

function HexToStr(const Hex: AnsiString): AnsiString;

?

[Serge_Bliznykov]

Сообщение от ProshkaS

Благодарю! Все работает.

Пожалуйста.

Но лучше возьмите код (с) Filka.
Он намного эффективней.