Преобразование HRESULT в понятные коды ошибок в Delphi

Delphi , Синтаксис , Ошибки и Исключения

В процессе разработки программного обеспечения на Delphi, разработчики часто сталкиваются с ошибками, возвращаемыми в виде HRESULT. Эти значения представляют собой числовые коды, которые могут указывать на различные проблемы, возникающие при работе с компонентами COM. В данной статье мы рассмотрим, как можно преобразовать HRESULT в более понятные коды ошибок в Delphi, что позволит более точно диагностировать и устранять проблемы.

Что такое HRESULT?

HRESULT — это 32-битное целое число, используемое в COM для обозначения результата выполнения операции. Оно может быть как успешным (S_OK), так и указывать на различные ошибки. HRESULT состоит из нескольких компонентов, которые могут быть декодированы для получения дополнительной информации об ошибке.

Преобразование HRESULT в понятные сообщения об ошибках

Чтобы преобразовать HRESULT в понятное сообщение об ошибке, можно использовать различные подходы. Один из них — это декодирование HRESULT на составляющие, что позволит получить более детальную информацию о том, что пошло не так.

Пример кода на Object Pascal для декодирования HRESULT:

uses
  SysUtils;

function GetErrorDescription(const HR: HRESULT): String;
var
  FACILITY_MASK, SEVERITY_MASK, CODE_MASK: Cardinal;
begin
  FACILITY_MASK := $00000003;
  SEVERITY_MASK := $00000002;
  CODE_MASK := $000000FF;
  Result := '';
  with HR do
  begin
    case (Self and SEVERITY_MASK shr 1) of
      0: Result := 'SUCCESS: ';
      1: Result := 'ERROR: ';
      2: Result := 'INFORMATIONAL: ';
      3: Result := 'ERROR WITH PROGRESS INDICATION: ';
    end;
    case (Self and FACILITY_MASK shl 28) of
      0: Result := Result + 'FACILITY_NULL';
      1: Result := Result + 'FACILITY_WIN32';
      2: Result := Result + 'FACILITY_WINDOWS';
      3: Result := Result + 'FACILITY_COM';
      4: Result := Result + 'FACILITY_ITF';
      5: Result := Result + 'FACILITY_WINAPP';
      6: Result := Result + 'FACILITY_CONTROL Panel';
      7: Result := Result + 'FACILITY_CA';
      8: Result := Result + 'FACILITY_RPC';
      9: Result := Result + 'FACILITY_NULLRPC';
      10: Result := Result + 'FACILITY_NTSTATUS';
      11: Result := Result + 'FACILITY_NTSECURITY';
      12: Result := Result + 'FACILITY_WINNET';
      13: Result := Result + 'FACILITY_SECURITY';
      14: Result := Result + 'FACILITY_STDMEDIA';
      15: Result := Result + 'FACILITY_SSPI';
      16: Result := Result + 'FACILITY_CONTROL';
      17: Result := Result + 'FACILITY_MSFT';
      18: Result := Result + 'FACILITY_APPVERSION';
      19: Result := Result + 'FACILITY_WINRHO';
      20: Result := Result + 'FACILITY_ROTBASEDSEC';
      21: Result := Result + 'FACILITY_BANYAN';
      22: Result := Result + 'FACILITY_WWSA';
      23: Result := Result + 'FACILITY_FLTUSER';
      24: Result := Result + 'FACILITY_CERT';
      25: Result := Result + 'FACILITY_AZURE';
      26: Result := Result + 'FACILITY_INTERNETSTORAGE';
      27: Result := Result + 'FACILITY_STORAGECORNER';
      28: Result := Result + 'FACILITY_OLEAUTO';
      29: Result := Result + 'FACILITY_SERVERMANAGEMENT';
      30: Result := Result + 'FACILITY_SQLOLEDB';
      31: Result := Result + 'FACILITY_WCF';
    end;
    Result := Result + Format('SEVERITY_CODE (0x%x)', [Self and SEVERITY_MASK]);
    Result := Result + Format(' FACILITY_CODE (0x%x)', [Self and FACILITY_MASK shl 28]);
    Result := Result + Format(' CODE (0x%x)', [Self and CODE_MASK]);
    case Self of
      S_OK: Result := Result + #10#13 + 'Operation succeeded.';
      S_FALSE: Result := Result + #10#13 + 'Operation succeeded with some info omitted.';
      E_UNEXPECTED: Result := Result + #10#13 + 'Unexpected failure.';
      E_INVALIDARG: Result := Result + #10#13 + 'One or more arguments are not valid.';
      E_OUTOFMEMORY: Result := Result + #10#13 + 'Insufficient memory to operate.';
      E_NOINTERFACE: Result := Result + #10#13 + 'No such interface supported.';
      E_POINTER: Result := Result + #10#13 + 'Null pointer.';
      E_ABORT: Result := Result + #10#13 + 'Operation aborted (e.g., user cancel).';
      E_FAIL: Result := Result + #10#13 + 'Unspecified failure.';
      E_ACCESSDENIED: Result := Result + #10#13 + 'Caller does not have the required permission.';
      // Добавьте дополнительные значения HRESULT и их описания по необходимости
    else
      begin
        // Попытка найти и декодировать HRESULT из базы данных ошибок Windows
        // Здесь может быть код, использующий WinAPI для получения описания ошибки
      end;
    end;
  end;
end;

Примечание по использованию HRESULT

Несмотря на то, что HRESULT уже является кодом ошибки, иногда может быть полезно его дополнительно обработать или декодировать, чтобы получить более понятное сообщение об ошибке для пользователя или разработчика. Например, в ситуации, когда при попытке подключения к Outlook на компьютере, где Outlook не установлен, возникает ошибка EOleSysError с HRESULT, можно использовать функцию GetErrorDescription для получения более детального описания ошибки.

Вывод

может быть выполнено с помощью декодирования HRESULT на составляющие, что позволит получить более детальную информацию об ошибке. Это может быть особенно полезно в случаях, когда необходимо анализировать ошибки, возвращаемые компонентами COM, например, при работе с Outlook или другими внешними сервисами. Используя предложенные примеры кода, можно существенно упростить процесс диагностики ошибок в своих проектах на Delphi.

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

Преобразование HRESULT в понятные коды ошибок в среде разработки Delphi для упрощения диагностики и устранения проблем при работе с компонентами COM.

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

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

:: Главная :: Ошибки и Исключения ::