Улучшение обработки ошибок VBScript в Delphi: использование WinAPI для декларативного описания

Delphi , Технологии , ActiveX

ошибок

При работе с компонентами VBScript в среде Delphi, разработчики могут столкнуться с ситуацией, когда стандартная обработка ошибок не предоставляет достаточного количества информации для понимания причин возникновения исключений. В частности, при использовании библиотеки типов "Microsoft VBScript Regular Expressions 5.5" может возникнуть ошибка EOleError с кодом OLE error 800A139C, которая связана с некорректным регулярным выражением. В данном случае, функция SysErrorMessage возвращает пустую строку, и конструктор EOleSysError использует ресурсную строку SOleError для описания ошибки.

Проблема

При работе с VBScript в Delphi, например, в версии 7 и более поздних, при использовании библиотеки "Microsoft VBScript Regular Expressions 5.5" и попытке применения некорректного регулярного выражения, может возникнуть исключение EOleError с кодом 800A139C. Стандартная обработка ошибок в Delphi не предоставляет подробного описания проблемы, что затрудняет её устранение.

Решение

Для получения более декларативного описания ошибки, можно воспользоваться функцией GetErrorInfo из WinAPI, которая позволяет получить информацию об ошибке через интерфейс IErrorInfo. Далее, с помощью метода IErrorInfo.GetDescription, можно получить текстовое описание ошибки. Однако, стоит отметить, что не все COM-объекты поддерживают интерфейс IErrorInfo, и в случае с VBScript Regular Expressions 5.5, поддержка этого интерфейса может отсутствовать.

Пример кода

var
  re: RegExp;
begin
  try
    re := CoRegExp.Create;
    re.Pattern := '('; // Неправильное регулярное выражение
    re.Test('');
  except
    on E: Exception do
    begin
      if Supports(E, IInterface, IErrorInfo) then
      begin
        var
          Description: string;
        Description := IErrorInfo(E).GetDescription;
        Caption := Description;
      end;
    end;
  end;
end;

В данном коде мы проверяем, поддерживает ли текущее исключение интерфейс IErrorInfo, и если да, то извлекаем описание ошибки.

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

Если IErrorInfo не поддерживается, можно воспользоваться известными кодами ошибок и их описаниями, которые разработчик может добавить в свой проект.

Заключение

Использование GetErrorInfo и IErrorInfo.GetDescription может быть полезным для улучшения обработки ошибок в Delphi при работе с VBScript. Однако, важно понимать, что эффективность данного подхода зависит от конкретного COM-объекта и его поддержки интерфейса IErrorInfo. В случае отсутствия поддержки, разработчику придется самостоятельно добавлять карты соответствия кодов ошибок и их описаний.

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

Улучшение обработки ошибок VBScript в Delphi с использованием WinAPI для декларативного описания ошибок.

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

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

:: Главная :: ActiveX ::