Перехват и запись текстовых сообщений трассировки стека в консольных приложениях на Free Pascal

Delphi , ОС и Железо , DOS и Консоль

Иногда при работе с большими консольными приложениями на языке Free Pascal возникают ситуации, когда программа неожиданно завершает свою работу. В таких случаях разработчикам важно получить информацию о стеке вызовов, чтобы локализовать и устранить причину сбоя. Однако, если вывод на экран текстовой трассировки стека не виден, например, из-за ошибок в выводе FPC video.pas, возникает задача перехватить и записать эту информацию в файл.

Описание проблемы

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

Решение проблемы

Для решения этой задачи можно использовать встроенные механизмы обработки исключений в Free Pascal. Существуют две процедуры в модуле System:

• Exceptproc, которая обрабатывает исключение;
• Backtracestrfunc, отвечающая за получение информации о номере строки исходного кода по адресу.

В стандартной реализации система завершает работу с ошибкой, но определяет процедуры Exceptproc и Backtracestrfunc для переопределения этого поведения. В модуле SysUtils происходит преобразование RTE (Range Check Error) в исключение языка и переопределение Exceptproc с помощью стандартного обработчика исключений SysUtils.CatchUnHandleException.

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

Чтобы перехватить текст исключений вместе со стеком вызовов, необходимо:

1. Скопировать функцию SysUtils.CatchUnHandleException в ваш код.
2. Модифицировать функцию копирования вывода так, чтобы она была написана в соответствии с вашими предпочтениями, и убедиться, что она работает надежно, поскольку исключения во время других исключений могут быть очень запутанными и раздражающими.
3. Присвоить копии функции имя, которое затем будет передано в Exceptproc.

Обратите внимание, что модуль LineInfo (для stabs) или Linfodump (dwarf, 2.4.0+) переопределяют процедуру Backtracestrfunc для получения информации о номере строки. Если вы используете отладочную информацию, убедитесь, что ваш проект скомпилирован с опцией -gl.

Пример кода

program InterceptStackTrace;
{$APPTYPE CONSOLE}
uses
  SysUtils;

var
  OldExceptProc: TExceptProc;
begin
  // Сохраняем старую функцию обработки исключений
  OldExceptProc := ExceptProc;
  try
    // Устанавливаем нашу функцию обработки исключений
    ExceptProc := @CustomExceptProc;
    // Ваш код, который может вызвать исключение
  except
    // Обработка исключения, например, запись в файл
    // Восстанавливаем старую функцию обработки исключений
    ExceptProc := OldExceptProc;
    // Вывод результата обработки исключения или других действий
  end;
end.

function CustomExceptProc(ExceptAddr, ExceptObj, VarExceptCode: Pointer): Boolean;
var
  FileOfStackTrace: TFileOfString;
begin
  // Инициализация переменной для записи стек-трейса в файл
  FileOfStackTrace := TFileOfString.Create;
  try
    // Вызов стандартного обработчика исключений для получения стек-трейса
    CatchUnHandleException(ExceptAddr, ExceptObj, VarExceptCode, FileOfStackTrace);
    // Запись стек-трейса в файл
    with FileOfStackTrace do
      Assign('stacktrace.txt');
      Reset;
      while not Eof do
      begin
        BlockRead(Self, ResultStr[1], SizeOf(AnsiString));
        Writeln(ResultStr);
      end;
      Close;
  finally
    FileOfStackTrace.Free;
  end;
  Result := True;
end.

Вывод

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

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

Пользователь описывает процесс перехвата и записи текстовых сообщений трассировки стека в консольных приложениях на языке программирования Free Pascal для устранения ошибок и анализа сбоев.

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

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

:: Главная :: DOS и Консоль ::