log4pascal

log4pascal

Log4Pascal是一個開源項目，旨在為Objectpascal生產一個簡單的記錄單元（Delphi，Freepascal）。

Log4Pascal不是基於Apache Software Foundation的Log4J軟件包。好吧，只是名字。

如何使用

只需將單位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]

已知錯誤

免費的Pascal

使用Lazarus（Free Pascal）有1個錯誤編譯模塊： Identifier not found "DebugHook"

因此，如果您想在免費pascal中使用log4pascal，則必須刪除（或替換）Log4Pascal單元中的以下行：

 if DebugHook = 0 then Exit;

執照

該軟件是開源的，根據MIT許可證（MIT）許可。有關詳細信息，請參見許可證。