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）许可。有关详细信息，请参见许可证。