_hunter
Усе, с этим разобрался, с горем пополам - написал сам функцию GetRegDataSize, отладил и все стало на места. 
Кстати, спасибо за вопрос, пошаговая отладка цикла и привела к результатам, оказывается первый элемент считывался нормально (не binary), а ошибка выскакивала на втором, будь он бинарный или какой-л другой.
Вопрос номер два, по этой же теме. Теперь пишу в реестр )) Приспособил компонент MPHexEditor, работает правда через потоки, код на запись такой (считываю из файла и пишу в реестр):
| Код |
procedure WriteData;
var
stream2: Tfilestream;
bufsize: integer;
ba: array of byte;
begin
STREAM2:=TFileStream.Create('Temp.tmp',fmCreate); //создаем поток в файл
Hexedit1.SaveToStream(stream2); //эта процедура как надо сохраняет содержимое
// визуального компонента - HEX-редактора в файл, причем сохраняет правильно - проверял
Bufsize:=Hexedit1.DataSize; //функция выдает размер данных в редакторе
Setlength(ba, Bufsize);
stream2.Read(ba,Bufsize); //считываем поток в буффер - массив байтов
//заданной величины, в массиве
WriteBinaryData(ValueName,ba,Bufsize); //Вот тут и выходит фигня, в реестр записывается
// (bufsize) байт лабуды - например текст заголовка окна :)
stream2.Free;
end;
|
так вот вопрос: если опустить тонкости, строка записи в реестр следующая (по функции)
| Код |
procedure WriteData(const Name: string; var Buffer; BufSize: Integer);
begin
RegSetValueEx(CurrentKey, WName{имя значения в уникоде}, 0, REG_BINARY {константа, на самом деле DWORD-число}
, @Buffer{указатель на буффер}, BufSize);
end;
|
Я явно напортачил с указателем... Вопрос - где. ?
{ДОПОЛНЕНИЕ}
Не с указателем! проблема вот здесь:
| Код |
stream2.Read(ba,Bufsize); //считываем поток в буффер - массив байтов
//заданной величины, в массиве
|
Считывает в буффер НУЛИ (ф-я выдает 0). а процедура stream2.ReadBuffer выдает STREAM READ ERROR. |