Обработка исключений в Delphi: тонкости работы на разных версиях Windows

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

При разработке приложений на Delphi, особенно тех, которые выполняют сложные вычисления с плавающей точкой, важно уметь корректно обрабатывать исключения. Вопрос пользователя касается проблемы, с которой он столкнулся при работе с масками исключений в разных версиях Windows.

Проблема с масками исключений

Пользователь разработал приложение, которое выполняет тяжелые вычисления с плавающей точкой на сотнях тысяч записей. В процессе работы с данными могут возникать различные исключения, например, Overflow (переполнение) и ZeroDivide (деление на ноль). В операционных системах Windows 7 (32-битная и 64-битная) с различными типами процессоров обработка исключений происходит корректно: при возникновении ошибки условие обрабатывается, исключение поднимается, и запись отбрасывается.

Однако при запуске приложения на сервере с Windows Server 2003 R2 и процессором Intel Xeon E5-2640 v2 возникают проблемы: исключения не поднимаются, и записи с ошибками не отбрасываются, что приводит к загрязнению результатов бесконечностью или минус бесконечностью.

Различия в настройках маскирования ошибок

Проблема заключается в том, что на сервере настройки маскирования ошибок по умолчанию отличаются от настроек в Windows 7. Вызов процедуры GetExceptionMask на сервере по умолчанию возвращает маскировку exZeroDivide, в то время как в Windows 7 эта маскировка неактивна. В результате, при выполнении кода с плавающей точкой на сервере, исключения не поднимаются, и процессор возвращает крайние значения, что "загрязняет" числовые значения.

Пользователь пытался решить проблему, вызвав SetExceptionMask с исключением exZeroDivide из маски, но это не помогло. Несмотря на то что сразу после вызова SetExceptionMask маскировка exZeroDivide действительно отключается, при выполнении кода с плавающей точкой возвращаемая маска TArithmeticExceptionMask все еще содержит exZeroDivide, и при возникновении ошибки исключение не поднимается.

Поиск решения

Для решения проблемы пользователю предлагается:

1. Создать новый тестовый проект, который воспроизводит проблему, и поделиться этим кодом.
2. Добавить логирование вызовов, чтобы отследить изменения в масках исключений.
3. Определить, какая часть кода изменяет флаги контроля.
4. После выполнения внешнего кода, который изменяет флаги, восстановить их.

Возможные причины проблемы

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

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

uses
  System.SysUtils;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // Проверка текущей маски исключений
  var Mask: TArithmeticExceptionMask;
  Mask := GetExceptionMask;
  if Mask[exZeroDivide] then
    OutputDebugString('exZeroDivide включен');
  else
    OutputDebugString('exZeroDivide выключен');

  // Установка маски исключений
  Mask[exZeroDivide] := False;
  SetExceptionMask(Mask);
end;

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

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

Заключение

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

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

При разработке приложений на Delphi возникла проблема с обработкой исключений в плавающей точке на разных версиях Windows, связанная с настройками маскирования ошибок и влиянием внешних факторов на флаги контроля.

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

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

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