Как получить последнее сообщение об ошибке из модуля 'Web.Win.ADsTypes' в Delphi

Delphi , Файловая система , Активные директории

В данной статье мы рассмотрим, как получить последнее сообщение об ошибке при работе с модулем 'Web.Win.ADsTypes' в Delphi.

Если вы работаете с объектами ADSI для выполнения запросов LDAP, вам может потребоваться получить последнее сообщение об ошибке, если функция ADsGetObject失败或返回不正确的结果。В Delphi есть встроенный модуль Windows, который предоставляет функцию GetLastError для получения последней ошибки, но модуль 'Web.Win.ADsTypes' не имеет подобной функции.

После некоторых исследований было найдено, что можно использовать функцию 'ADsGetLastError' для получения последней ошибки. Однако, при попытке использовать эту функцию, возникала ошибка "неопределенный идентификатор", так как было неясно, в каком модуле она Located.

После изучения документации по функции ADsGetObject было установлено, что значение, возвращенное этой функцией, должно быть передано функции SysErrorMessage, чтобы получить соответствующее описание ошибки. Таким образом, ваш код должен выглядеть примерно так:

rc := ADsGetObject(...);
if S_OK <> rc then
  raise Exception.Create('Error ' + SysErrorMessage(rc));

В этом примере, если значение, возвращаемое функцией ADsGetObject, не равно S_OK, то создается исключение с сообщением об ошибке, полученным с помощью функции SysErrorMessage.

В заключение, хотя модуль 'Web.Win.ADsTypes' не предоставляет функцию для получения последней ошибки, как в модуле Windows, все еще можно получить сообщение об ошибке, передав значение, возвращаемое функцией ADsGetObject, функции SysErrorMessage.

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

Статья описывает, как получить последнее сообщение об ошибке при работе с модулем 'Web.Win.ADsTypes' в Delphi, используя функции ADsGetObject и SysErrorMessage.

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

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

:: Главная :: Активные директории ::