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

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

Форум программистов > Delphi: Общие вопросы > Как записать в реестр массив Longword'ов

Автор: Святогор 14.1.2008, 12:56

Нужно записать массив длинных вордов в реестр, а потом считать их оттуда. Пробовал, но не получается, поскольку при чтении класс думает, что я записывал не Longword, а обычный word, поэтому считывается ровно половина и числа явно не те. Помогите решить проблему!?

Автор: Rennigth 14.1.2008, 13:34

Святогор,
А чем не подходит ReadBinaryData/WriteBinaryData?
Ты же сам говоришь

Цитата(Святогор @ 14.1.2008, 12:56

)

массив длинных вордов в реестр

Автор: Святогор 14.1.2008, 13:38

Цитата(Rennigth @ 14.1.2008, 13:34)

Святогор,
А чем не подходит ReadBinaryData/WriteBinaryData?
Ты же сам говоришь

Цитата(Святогор @ 14.1.2008, 12:56

)

массив длинных вордов в реестр

Ну вот в том-то и дело, что пишет, но считывает неправильно. Например, пишу массив чисел 423423, 546546, 723432, 324525... а он считывает их как 34215425243, 34534534543, 0, 0. Ну это так к примеру. Т.е. он не знает что массив именно LongWord! :(

Автор: VICTAR 14.1.2008, 13:51

Правильно укажи размер буфера.
LongWord = 4 байта

Автор: Святогор 14.1.2008, 13:57

Цитата(VICTAR @ 14.1.2008, 13:51)

Правильно укажи размер буфера.
LongWord = 4 байта

Всмысле? Т.е. BufferSize - это размер ОДНОГО элемента в массиве? Я думал, что это размер ВСЕГО буффера, потому что он не может заранее определить размер буффера smile

или я чего-то не понимаю?

Автор: Rennigth 14.1.2008, 14:07

Святогор, как у тебя массив объявлен? Как пишешь? Как читаешь? Код приведи, а так гадать...

Автор: VICTAR 14.1.2008, 14:14

BufferSize = длина массива * 4

Автор: Святогор 14.1.2008, 14:16

Цитата(VICTAR @ 14.1.2008, 14:14)

BufferSize = длина массива * 4

Угу, дома попробую. Спасибо.

Добавлено через 1 минуту и 10 секунд

Цитата(Rennigth @ 14.1.2008, 14:07)

Святогор, как у тебя массив объявлен? Как пишешь? Как читаешь? Код приведи, а так гадать...

Под рукой кода нет, к сожалению.

Кстати, а почему нельзя писать в реестр динамический массив??

Автор: VICTAR 14.1.2008, 14:21

Цитата(Святогор @ 14.1.2008, 14:16

)

Кстати, а почему нельзя писать в реестр динамический массив??

А с чего ты это взял?

Добавлено через 2 минуты и 51 секунду

Код


procedure TForm1.btn1Click(Sender: TObject);
var
  Reg: TRegistry;
  i: integer;
  b: array of LongWord;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software', True) then
    begin
      SetLength(b, 4);
      for i := 0 to 3 do
        b[i] := StrToInt(mmo1.Lines[i]);
      Reg.WriteBinaryData('Value', b[0], length(b) * SizeOf(LongWord));
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
  Reg: TRegistry;
  b: array of LongWord;
  i: integer;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    if Reg.OpenKey('\Software', True) then
    begin
      SetLength(b, 4);
      Reg.ReadBinaryData('Value', b[0], length(b) * SizeOf(LongWord));
      for i := 0 to 3 do
        mmo2.Lines.Add(IntToStr(b[i]));
      Reg.CloseKey;
    end;
  finally
    Reg.Free;
  end;
end;

Автор: Святогор 14.1.2008, 14:56

VICTAR, спасибо большое! smile