Обработка Исключений EExternal в Delphi: Получение Информации EXCEPTION_POINTERS для Создания Минидампов

Delphi , Файловая система , Help файлы

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

Проблема

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

Решение

Для получения полной информации EXCEPTION_POINTERS в Delphi можно использовать функцию перехвата исключений ExceptObjProc. Это позволяет перехватить момент, когда исключение передается в обработчик, и извлечь контекст выполнения. Вот пример кода, который демонстрирует, как это можно сделать:

program Sample;
{$APPTYPE CONSOLE}
uses
  Windows,
  SysUtils;

var
  SaveGetExceptionObject: function(P: PExceptionRecord): Exception;

procedure DumpContext(Context: PContext);
begin
  // Вывод информации о контексте выполнения
  // ...
end;

function HookGetExceptionObject(P: PExceptionRecord): Exception;
var
  Context: PContext;
begin
  // Получение контекста выполнения
  asm
    // Перемещение указателя на контекст выполнения
    // ...
  end;
  DumpContext(Context);
  // Вызов оригинального обработчика исключений
  Result := SaveGetExceptionObject(P);
end;

var
  dvd, dvs, res: double;
begin
  dvd := 1; dvs := 0;
  SaveGetExceptionObject := ExceptObjProc;
  ExceptObjProc := @HookGetExceptionObject;
  try
    // Вызов кода, который может вызвать исключение
    // ...
  except
    on E: Exception do
    begin
      // Обработка исключения
      // ...
    end;
  end;
end.

Важно отметить, что перехват ExceptObjProc позволяет получить контекст выполнения, но для использования его в функции MiniDumpWriteDump потребуется сохранение этого контекста в переменной, доступной для обработчика создания минидампа.

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

Также стоит рассмотреть использование сторонних библиотек, таких как madExcept, которые предоставляют удобные механизмы для работы с исключениями и создания минидампов, включая доступ к контексту выполнения.

Заключение

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

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

При обработке исключений типа `EExternal` в Delphi для получения информации `EXCEPTION_POINTERS` и создания минидампов используется перехват функции `ExceptObjProc`, что позволяет извлечь контекст выполнения и использовать его для диа

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

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

:: Главная :: Help файлы ::