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

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

Форум программистов > Delphi: WinAPI и системное программирование > Что за More data is available.

Автор: CosmoMan 24.7.2005, 12:39

Что за 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

Цитата(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

Все, разобрался. Переменная 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