VPF::RAS API RasEnumDevices возвращает ошибку 632

MadMas

Дата 19.1.2009, 07:09 (ссылка)

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

Загрузка ...

Блондинко

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

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

Работаю с RAS API + delphi 7.

При вызове функции RasEnumDevices возвращается ошибка "632 ERROR_INVALID_SIZE (The structure size is incorrect / Определен неверный размер структуры.)"

Код:

Код


devs := 0;
devices := nil;
NeedBytes := SizeOf(PRasDevInfo);
GetMem(devices, NeedBytes);
devices^.dwSize := NeedBytes;

 try
   dwError := RasEnumDevices(devices, NeedBytes, devs);

   if dwError=603 then //ERROR_BUFFER_TOO_SMALL
   begin
      FillChar(devices^, SizeOf(PRasDevInfo), 0);
      FreeMem(devices, SizeOf(PRasDevInfo));
      GetMem(devices, SizeOf(PRasDevInfo)*devs);
      dwError := RasEnumDevices(devices, NeedBytes, devs);
      showMessage(IntToStr(dwError));
   end;

   showMessage(IntToStr(dwError));
   if dwError=0 then
   begin
      showMessage('!');
   end;
   finally;
   end;

Есть подозрения на неверное определение версии ОС(стоит WinXP SP2), так как строки в модуле между {$IFDEF WINVER_0x401_OR_GREATER} {$ENDIF} компилятор не видит.

Как исправить это недоразумение?

dumb

Дата 19.1.2009, 07:52 (ссылка)

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

Загрузка ...

sceloglauxalbifacies

Профиль
Группа: Экс. модератор
Сообщений: 2929
Регистрация: 16.6.2006

Репутация: 5
Всего: 158

есть подозрение, что надо таки определять размер структуры, а не указателя на нее: NeedBytes := SizeOf(TRasDevInfo);

MadMas

Дата 19.1.2009, 09:53 (ссылка)

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

Загрузка ...

Блондинко

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

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

Спасибо. Все беды от невнимательности :(

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