VPF::записать бинарный код в реестре (напр. 00 А7 а5 02

frizz

Дата 24.3.2008, 14:43 (ссылка)

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

Загрузка ...

Новичок

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

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

Доброго всем! Может кто сталкивался с такой проблемой: нужно добавить значения (напр. 04 c5 d1 00 a7 53 29 c8 и т.д.) в реестр. С помощью

Код


reg.WriteBinaryData('data', PChar(memo1.text)^,  length(memo1.text));

это удается сделать в правую часть, где распологаются символы, соответствено значения (я так понимаю HEX) становятся совсем другими. smile

Вопрос: можно ли из memo добавлять значения непосредственно в левую часть и как?
smile

Долго бившись над проблемой smile

я решил обойти ее: в своей програме перекодировал значения в символы:

Код


var
  ChS: String[2];
  Ch: Char;
begin
  ChS := memo1.text;
  try
    Ch := Char(StrToInt('$'+ChS));
  except
    Ch := #0;      
    end;
  memo2.Text:=memo2.Text+ch;

Поставил все это дело в цикл и все вроде бы заработало, кроме значения <<00>>, оно просто игнорируется обработчиком, в итоге сдвигая в реестре все на свете. smile

Помогите найти решение, плз

Исходник (то что получилось) можно взять ЗdЕСЬ

Cпасибо всем кто откликнится smile

----------------------------------------------
http://partnerx.ru- вот что значит САМОРАСКРУТКА!

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