VPF::Что за More data is available. - Форум программистов

CosmoMan

Дата 24.7.2005, 12:39 (ссылка)

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

Загрузка ...

Шустрый

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

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

Что за More data is available.
ERROR_MORE_DATA = 234; { dderror }

Дополнение к ранее выложенному коду в "Непонятная ошибка с TIniFile".

Код


//идем по пояснению в одноименную папку
      BufChr := Buffer1;
      //получаем необходимый путь
      for i := 0 to 19+length(BufChr) do
      begin
        if index = 81 then
        Index := Index +1-1;
        if i < 17 then PBufStr1[i] := BufStr[i+1]
        else PBufStr1[i] := BufChr[i-16];
      end;
      //входим по адресу
      Err := RegOpenKey(HKEY_LOCAL_MACHINE, PBufStr1, KeyAnderstand); //PBufStr1 = 'SOFTWARE\Classes\Winamp.File'
      if Err <> ERROR_SUCCESS then
      begin
        RegCloseKey(MyKey);
        RegCloseKey(KeyAnderstand);
        ProgramControl.FatalError := 'Ключ реестра HKEY_LOCAL_MACHINE\SOFTWARE\Classes\'+ Buffer1 +' пуст, что не возможно в принципе. Дальнейшее выполнение программы невозможно.';
      end;
      ErrKey := RegQueryValue(KeyAnderstand ,'',Buffer1,j);//ErrKey  = 234; а j=положенной длинне строки, как в ключе!!!
      if ErrKey <> ERROR_SUCCESS then  ProgramControl.FatalError := 'Непонятная ошибка';
      index := index + 1;
    end;
    FAtributeIF.WriteString('Attribute','*','Файл');
    PBufStr := '';

ERROR_MORE_DATA = 234; { More data is available. } это как понять - больше данных доступно? Шо за.. !!???
При этом раннее выполнялость точно такаяже идентичная операция и ни какой ошибки не возникало. smile

p0s0l

Дата 24.7.2005, 17:54 (ссылка)

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

Загрузка ...

Г-н Посол

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

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

Цитата(MSDN)

If the buffer specified lpValue is not large enough to hold the data, the function returns ERROR_MORE_DATA and stores the required buffer size in the variable pointed to by lpcbValue. In this case, the contents of the lpValue buffer are undefined.

In all cases, the value returned in lpcbValue includes the size of the terminating null character in the string.

Возможно, ты не учитываешь завершающий нулевой байт ?...

Добавлено @ 17:56
Вобщем, лучший способ - вызвать RegQueryValue с nil-буфером, тем самым получив длину строки, потом выделить память с нужным размером, и снова вызвать RegQueryValue с адресом этого буфера...

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

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

CosmoMan

Дата 24.7.2005, 19:06 (ссылка)

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

Загрузка ...

Шустрый

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

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

Все, разобрался. Переменная j, которую я сообщаю функции RegQueryValue(KeyAnderstand ,'',Buffer1,j),
это максимально допустимое значение размера строки значения ключа, которое я получаю.
У меня стояло 0, а надо ставить по больше, ну допустим 1000. Или определять его

Код


j := 0;
ErrKey := RegQueryValue(KeyAnderstand ,'',Buffer1,j);
if ErrKey = 234 then RegQueryValue(KeyAnderstand ,'',Buffer1,j);

More data is available. понятно - больше данных доступно. Правильно, зачит надо j делать больше, а не 0
Думаю, что вопрос закрыт. smile

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