之前的文章给大家分享过如何在Delphi中使用Log4D生成日志。今天继续分享另一个更强大的Delphi日志组件LoggerPro。

基本用法

LoggerPro提供了一个全局日志单元LoggerPro.GlobalLogger，默认把日志写到文件中，并且可以自动切割日志。该单元对外提供了Log日志对象，开箱即用，可以不用做过多额外设置。

LoggerPro按照日志等级，提供了其他常用的Info，WARN，Error，Debug等方法。

program ConsoleApp20240418;{$APPTYPE CONSOLE}uses  System.SysUtils,  LoggerPro.GlobalLogger; begin  try        Log.Debug('Debug message', 'main');  //第二个参数为标签，用于生成日志文件    Log.Info('Info message', 'main');    Log.Warn('Warning message', 'main');    Log.Error('Error message', 'errors');    WriteLn('在 "ConsoleApp20240418.00.main.log" 和 "ConsoleApp20240418.00.errors.log" 文件中查看日志');    ReadLn;  except    on E: Exception do      Writeln(E.ClassName, ': ', E.Message);  end;end.

生成的日志文件如下：

默认日志格式如下：

自定义日志

我们也可以自定义日志信息。上面的案例，日志址输出到了文件，我们也可以同时把日志输出到控制台。也可以设置其他日志格式，比如文件名，日志切分信息，日志格式等等。

下面的案例，日志可以同时输出到文件和控制台。

• TLoggerProFileAppender，控制日志输出到文件。可以在Create构造函数提供更多设置
• TLoggerProConsoleAppender，控制日志输出到控制台。可以在Create构造函数提供更多设置参数。

program ConsoleApp20240418;{$APPTYPE CONSOLE}{$R *.res}uses  System.SysUtils,  LoggerPro,  LoggerPro.FileAppender,  LoggerPro.ConsoleAppender  ;var  Logger: ILogWriter;procedure SetupLogger;begin  Logger := BuildLogWriter([    TLoggerProFileAppender.Create,    TLoggerProConsoleAppender.Create  ]);end;procedure Test2;begin  try    Logger.Debug('Debug msg', 'main');    Logger.Info('Info msg', 'main');    Logger.Error('Error. Quitting', 'errors');  except    on E: Exception do      Writeln(E.ClassName, ': ', E.Message);  end;end;begin  try    // Setup logger    SetupLogger;    // Use logger    Test2;    Readln;  except    on E: Exception do      Writeln(E.ClassName, ': ', E.Message);  end;end.