Обход ошибки 87 при получении серийного номера батареи в Delphi 7 с использованием `DeviceIoControl`

Delphi , Синтаксис , Справочник по API-функциям

Обход ошибки 87 при получении серийного номера батареи в Delphi 7

Вопрос, представленный в контексте, связан с ошибкой 87 при использовании функции DeviceIoControl для получения серийного номера батареи в среде Delphi 7. Эта функция возвращает False и ошибку GetLastError с кодом 87, которая указывает на некорректный параметр. Проблема возникает при попытке установить параметр InformationLevel в значение BatterySerialNumber. Если же установить этот параметр в значение BatteryUniqueID, то ошибка не возникает, и функция работает корректно.

Подтвержденный ответ

Исходя из обсуждения в контексте, проблема заключается в неправильном передаче параметра lpBytesReturned функции DeviceIoControl. В исходном коде этот параметр передается как @dwOut, что является ошибкой. В документации функции DeviceIoControl указано, что параметр lpBytesReturned должен передаваться по ссылке, без указания адреса переменной. Следовательно, необходимо заменить строку с вызовом DeviceIoControl на следующий код:

Result := DeviceIoControl(hbat, IOCTL_BATTERY_QUERY_INFORMATION, @bqi, SizeOf(bqi), Serial, SerialSize, dwOut, nil);

Альтернативный ответ

В случае, если проблема не решена стандартными методами, стоит рассмотреть альтернативные подходы. В частности, в контексте было упомянуто, что на некоторых системах (например, Windows XP) значение BatterySerialNumber для InformationLevel не поддерживается. В таком случае можно использовать значение BatteryUniqueID и извлечь серийный номер из уникального идентификатора батареи, удалив из него название производителя и название устройства. Это не идеальное решение, но может служить временным решением для систем, где первоначальный подход не работает.

Пример кода на Object Pascal (Delphi)

Для решения проблемы с получением серийного номера батареи в Delphi 7, исправьте вызов функции DeviceIoControl следующим образом:

Result := DeviceIoControl(hbat, IOCTL_BATTERY_QUERY_INFORMATION, @bqi, SizeOf(bqi), Serial, SerialSize, dwOut, nil);

Убедитесь, что переменная dwOut используется корректно и что размер буфера для вывода (SerialSize) соответствует требованиям для хранения серийного номера батареи.

Заключение

Исправление, предложенное в "Подтвержденном ответе", должно решить проблему с ошибкой 87 при использовании DeviceIoControl для получения серийного номера батареи в Delphi 7. В случае если проблема сохраняется, рекомендуется обратить внимание на альтернативные методы, такие как использование WMI для получения информации о батарее или применение временного решения, описанного в "Альтернативном ответе".

Создано по материалам из источника по ссылке.

Проблема заключается в неправильной передаче параметра `lpBytesReturned` функции `DeviceIoControl` в среде разработки Delphi 7 при попытке получить серийный номер батареи, что приводит к ошибке 87.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Справочник по API-функциям ::