Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Конверт русских букв в HEX код

Автор: CODARZ 11.4.2004, 14:17

Нужно переконвертировать русские буквы в HEX код.
Как это делается в Delphi?

Автор: p0s0l 11.4.2004, 15:21

Код

var
  c : char;
  s : string;
begin
  c := 'И';
  s := IntToHex(Byte(c), 2); // s = HEX код
end;

Автор: CODARZ 11.4.2004, 16:08

Теперь мне нужно сделать вот что.
После конвертирования слова "Программы" получается
такой HEX код:

00CFF0EEE3F0E0ECECFB

Нужно преобразовать его в такой:

%00%CF%F0%EE%E3%F0%E0%EC%EC%FB

Т.е. в начале и далее через каждые два символа должен быть
знак "%".

Автор: dm9 11.4.2004, 20:42

for i := (Length(s) div 2) downto 1 do
Insert ('%', s, i*2-1);
Добавлено @ 20:43
Сам бы подумал. Энто ж основы...
Добавлено @ 20:45
Тьфу, блин. Зачем делать двойную работу? Ты сразу добавляй этот процент при формировани строки.

Автор: x77 13.4.2004, 19:01

насколько я понимаю, с таким же успехом можно юзать TNMUUProcessor, а именно методы UUEncode и UUDecode.

Автор: Guest 16.1.2006, 13:25

Цитата(p0s0l @ 11.4.2004, 15:21)

Код

var
  c : char;
  s : string;
begin
  c := 'И';
  s := IntToHex(Byte(c), 2); // s = HEX код
end;

var
Out_Buf : Array [0..65535] of Byte;
Out_txt : Array [0..65535] of String[9];
...
...
...
for i:=0 to x*y do
begin
Out_txt[i]:=' db '+IntToHex(Out_Buf[i],3)+'h,';
end;

Cоздаю текстовый фал.
Но данная функция выдает перед каждым НЕХ число 9
если в стринг String[9] засунуть 8 String[8] то перед каждым НЕХ будет 8
Как правильно сделать?

Автор: Alexeis 16.1.2006, 13:50

Не надо записывать нулевой элемент строки в файл там хранится длина строки нужно начинать с первого.