[Delphi] Delphi open source logging framework Log4D

1. Install

Log4D Downloads:

Official website address

LoggerPro Download

GitHub address

Features:

log4d easy to use, stable performance

LoggerPro looks very powerful, but there is no detailed documentation, source code too lazy to turn

installation steps

Log4D is open source, so you can recompile ,, extracted to a folder. Open the file "... \ log4delphi-0.8" folder, create a new folder "build"; compiler error may occur when there is no direct TFileUnit prompted him to delete a recompile!

导入Delphi：Tool-->Options-->Environment Options--->Delphi Options--Library-->Library path

2. Use

Load profile

Menu ---> Project -> View Source

uses
  Vcl.Forms,
  TConfiguratorUnit, {需要引用该单元}
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  doPropertiesConfiguration('log4delphi.properties'); { 初始化，读取属性 }
  Application.CreateForm(TForm1, Form1);
  Application.Run;

end.

use

unit Unit1;

interface
//TLoggerUnit需要引入该单元
uses
  TLoggerUnit, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  TLogger.GetInstance.Debug('按钮1被点了');   {获取TLogger实例}
end;
end.

3. Profile (log4delphi.properties)

# 控制输出的信息类别
log4delphi.rootLogger=DEBUG,fileAppender
#单个文件
log4delphi.appender.fileAppender=TFileAppender
#从代码中得出多个文件保存日志。单个文件的最大尺寸使用MaxFileSize设置,文件个数使用MaxBackupIndex设置。
log4delphi.appender.fileAppender=TRollingFileAppender
log4delphi.appender.fileAppender.MaxBackupIndex=20
log4delphi.appender.fileAppender.MaxFileSize=3M
#文件编码,否则日志文件内容会乱码
log4j.appender.A1.Encoding=UTF-8
#文件名称
log4delphi.appender.fileAppender.File=app.log
#exe所在目录
log4delphi.appender.fileAppender.AppDir=true
#追加方式
log4delphi.appender.fileAppender.Append=true
#设置Layout
log4delphi.appender.fileAppender.layout=TPatternLayout
#输出格式
log4delphi.appender.fileAppender.layout.Pattern=%d{yyyy-mm-dd hh:nn:ss:zzz} [%5p] [%L] [%e] %m%n