VPF::Чтение двоичных данных из реестра

Keeper89

Дата 12.11.2009, 01:06 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Доброго времени суток!

Собственно сабж. Формат не известен, но прочитать хоцца smile

Может кто подкинет идею? )

З.Ы. Сам я думаю получить размер бинарного значения и затем считать в массив byte с нахождением нужных данных. Но это так, мысля... smile

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Qu1nt

Дата 12.11.2009, 03:34 (ссылка)

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

Загрузка ...

Опытный

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

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

TRegistry.ReadBinaryData.

Keeper89

Дата 12.11.2009, 11:28 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Qu1nt, про методы я в курсе, я про возможный алгоритм.

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Qu1nt

Дата 12.11.2009, 16:19 (ссылка)

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

Загрузка ...

Опытный

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

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

Ничего не понял.

Код


procedure TForm1.Button1Click(Sender: TObject);
const
  Key   = 'software\param-pam-pam';
  Value = 'some value';
var
  Data: array of Byte;
begin
  with TRegistry.Create do
  try
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey(Key, False);
    if GetDataType(Value) = rdBinary then
    begin
      SetLength(Data, GetDataSize(Value));
      if Length(Data) > 0 then
        ReadBinaryData(Value, Data[0], Length(Data));
      { данные лежат в Data }
    end;
  finally
    Free;
  end;
end;

Это сообщение отредактировал(а) Qu1nt - 12.11.2009, 16:21

Keeper89

Дата 12.11.2009, 19:31 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Как раз то, что я спрашивал и выделил серым в 1 посте, спасибо smile

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

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