VPF::Конверт русских букв в HEX код - Форум программистов

CODARZ

Дата 11.4.2004, 14:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

Репутация: нет
Всего: нет

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

Это сообщение отредактировал(а) CODARZ - 11.4.2004, 14:18

p0s0l

Дата 11.4.2004, 15:21 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

Код

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

--------------------

С уважением, г-н Посол.

CODARZ

Дата 11.4.2004, 16:08 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 74
Регистрация: 3.10.2003
Где: Москва

Репутация: нет
Всего: нет

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

00CFF0EEE3F0E0ECECFB

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

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

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

dm9

Дата 11.4.2004, 20:42 (ссылка)

(нет голосов)

Загрузка ...

Дмитрий Копытин

Профиль
Группа: Vingrad developer
Сообщений: 3876
Регистрация: 22.7.2002
Где: Москва

Репутация: 6
Всего: 137

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

x77

Дата 13.4.2004, 19:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 19
Всего: 22

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

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

Guest

Дата 16.1.2006, 13:25 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Цитата(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 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459

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

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »