Работа с ошибками в Delphi: использование `GetLastError` и `FormatMessage`

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

Ошибки в Delphi: использование GetLastError и FormatMessage

В процессе разработки программ на Delphi разработчики могут столкнуться с различными видами ошибок. Одним из способов получения более подробной информации об ошибках, возникших в результате вызова функций Windows API, является использование функций GetLastError и FormatMessage. В данной статье мы рассмотрим, как эти функции могут быть полезны для отладки и обработки ошибок в программах на Delphi.

GetLastError в Delphi

Функция GetLastError возвращает код последней ошибки, возникшей в результате вызова функции Windows API. Этот код ошибки может быть использован для получения более подробной информации об ошибке с помощью функции FormatMessage.

Пример использования GetLastError:

var
  LastError: DWORD;
begin
  // Вызов функции Windows API
  // ...
  // Получение кода последней ошибки
  LastError := GetLastError;
  if LastError <> ERROR_SUCCESS then
    // Обработка ошибки
    ShowMessage(SysErrorMessage(LastError));
end;

FormatMessage в Delphi

Функция FormatMessage позволяет преобразовать код ошибки в сообщение об ошибке, которое можно понять пользователем. Это достигается за счет использования строковых ресурсов операционной системы.

Пример использования FormatMessage через функцию SysErrorMessage:

var
  LastError: DWORD;
begin
  // Вызов функции Windows API
  // ...
  // Получение кода последней ошибки
  LastError := GetLastError;
  if LastError <> ERROR_SUCCESS then
    // Отображение сообщения об ошибке
    ShowMessage(SysErrorMessage(LastError));
end;

Интегрированная функция SysErrorMessage

В Delphi есть встроенная функция SysErrorMessage, которая является оберткой для FormatMessage и упрощает процесс получения сообщения об ошибке.

Пример использования SysErrorMessage для отображения последней ошибки:

ShowMessage(SysErrorMessage(GetLastError));

Работа с GetLastError и FormatMessage в реальном времени

Необходимо помнить, что после вызова функции Windows API, которая сама вызывает другие функции Windows API, GetLastError может быть перезаписан. Поэтому важно вызывать GetLastError сразу после вызова функции, которая может сгенерировать ошибку.

Расширенные возможности

Для более сложных случаев можно использовать расширенные функции, такие как RaiseLastOsErrorEx и Win32CheckEx, которые позволяют уточнять контекст ошибки и даже запускать исключения с пользовательскими сообщениями об ошибках.

Пример использования RaiseLastOsErrorEx:

procedure RaiseLastOsErrorEx(const _Format: string);
begin
  RaiseLastOsErrorEx(GetLastError, _Format);
end;

Примечание

• При использовании строковых ресурсов происходит вызов API, который может сбросить код ошибки, поэтому важно не использовать такие вызовы между функцией, вызывающей ошибку, и вызовом GetLastError.
• Для более широкого функционала по управлению исключениями можно рассмотреть использование специализированных библиотек, например, madExcept.

Эта статья представляет собой краткое руководство по использованию функций GetLastError и FormatMessage для отладки и обработки ошибок в программировании на Delphi. Надеемся, что предоставленные примеры и рекомендации помогут разработчикам в их работе.

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

Описание контекста: Статья о том, как в Delphi используются функции `GetLastError` и `FormatMessage` для отладки и обработки ошибок, возникающих при вызовах функций Windows API.

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

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

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