Log4Delphi日志学习
  iC0dxxaBBoLD 2023年11月30日 16 0


https://log4delphi.sourceforge.net/tutorial.html

Log4D下载:

官网地址

链接:https://pan.baidu.com/s/1xnbGjvrt5jNE2WjyB9fL8Q
提取码:w91z

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

Log4Delphi日志学习_System

 三个目录


使用

载入配置文件

菜单--->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.

拷贝

Log4Delphi日志学习_Delphi_02

 到exe所在目录

Log4Delphi日志学习_应用程序_03

 

unit Unit2;

interface

uses
 TLoggerUnit, Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

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

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);
begin
TLogger.getInstance.debug('Button Clicked!');
end;

procedure TForm2.FormDestroy(Sender: TObject);
begin
TLogger.freeInstances;
end;

end.

1编译并运行该应用程序。单击该按钮三次,然后退出该应用程序。
2该目录,生成日志文件app.log

Log4Delphi日志学习_System_04

【版权声明】本文内容来自摩杜云社区用户原创、第三方投稿、转载,内容版权归原作者所有。本网站的目的在于传递更多信息,不拥有版权,亦不承担相应法律责任。如果您发现本社区中有涉嫌抄袭的内容,欢迎发送邮件进行举报,并提供相关证据,一经查实,本社区将立刻删除涉嫌侵权内容,举报邮箱: cloudbbs@moduyun.com

  1. 分享:
最后一次编辑于 2023年11月30日 0

暂无评论

推荐阅读
iC0dxxaBBoLD