log4pascal

Log4pascal

Log4pascal - это проект с открытым исходным кодом, который направлен на создание простого журнала для объекта PocementPascal (Delphi, Freepascal).

Log4pascal не основан на пакете Log4J из Foundation Apache Software Foundation. Ну, просто имя.

Как использовать

Просто добавьте устройство Log4Pascal.pas в проект.

• Project -> Add to Project , а затем найти и выберите файл.

Файл журнала

Файл журнала определен в блоке Log4pascal, поэтому, если вы хотите изменить, измените следующую строку:

 initialization
  Logger := TLogger.Create( ' Log.txt ' );

Функции

• Отключить регистрацию.
• SetQuietMode();
• Включить регистрацию. По умолчанию регистрация включена.
• SetNoisyMode();
• Включить или отключить конкретные журналы
• EnableTraceLog(); EnableDebugLog(); EnableInfoLog(); EnableWarningLog(); EnableErrorLog(); EnableFatalLog();
• DisableTraceLog(); DisableDebugLog(); DisableInfoLog(); DisableWarningLog(); DisableErrorLog(); DisableFatalLog();
• Очистить существующий файл журнала
• Clear();

Журналы

Logger.Trace( ' Trace message log ' );
Logger.Debug( ' Message is logged only when in debug ' );
Logger.Info( ' Normal message log ' );
Logger.Warning( ' Warning message log ' );
Logger.Error( ' Error message log ' );
Logger.Fatal( ' Fatal message log ' );

Выход

TRACE Trace message log [DATETIME HERE]
DEBUG Message is logged only when in debug [DATETIME HERE]
INFO  Normal message log [DATETIME HERE]
WARN  Warning message log [DATETIME HERE]
ERROR Error message log [DATETIME HERE]
FATAL Fatal message log [DATETIME HERE]

Известные ошибки

Бесплатный Паскаль

Использование Lazarus (бесплатный Pascal) Было 1 модуль компиляции: Identifier not found "DebugHook"

Поэтому, если вы хотите использовать log4pascal в бесплатном Pascal, вы должны удалить (или заменить) следующую строку, найденную в блоке Log4pascal:

 if DebugHook = 0 then Exit;

Лицензия

Это программное обеспечение является открытым исходным кодом, лицензированным по лицензии MIT (MIT). Смотрите лицензию для деталей.