mirror of
https://github.com/danieleteti/delphimvcframework.git
synced 2024-11-16 00:05:53 +01:00
118 lines
2.9 KiB
ObjectPascal
118 lines
2.9 KiB
ObjectPascal
unit VCLAppendersFormU;
|
|
|
|
interface
|
|
|
|
uses
|
|
Winapi.Windows,
|
|
Winapi.Messages,
|
|
System.SysUtils,
|
|
System.Variants,
|
|
System.Classes,
|
|
Vcl.Graphics,
|
|
Vcl.Controls,
|
|
Vcl.Forms,
|
|
Vcl.Dialogs,
|
|
Vcl.StdCtrls,
|
|
LoggerPro,
|
|
Vcl.ComCtrls,
|
|
System.ImageList,
|
|
Vcl.ImgList;
|
|
|
|
type
|
|
TMainForm = class(TForm)
|
|
Button1: TButton;
|
|
Button2: TButton;
|
|
Button3: TButton;
|
|
Button4: TButton;
|
|
Button5: TButton;
|
|
PageControl1: TPageControl;
|
|
tsListViewAppender: TTabSheet;
|
|
tsMemoAppender: TTabSheet;
|
|
Memo1: TMemo;
|
|
ListView1: TListView;
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure Button2Click(Sender: TObject);
|
|
procedure Button3Click(Sender: TObject);
|
|
procedure Button4Click(Sender: TObject);
|
|
procedure Button5Click(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
FLog: ILogWriter;
|
|
{ Private declarations }
|
|
public
|
|
function Log: ILogWriter;
|
|
end;
|
|
|
|
var
|
|
MainForm: TMainForm;
|
|
|
|
implementation
|
|
|
|
uses
|
|
LoggerPro.VCLMemoAppender,
|
|
LoggerPro.VCLListViewAppender;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TMainForm.Button1Click(Sender: TObject);
|
|
begin
|
|
Log.Debug('This is a debug message with TAG1', 'TAG1');
|
|
Log.Debug('This is a debug message with TAG2', 'TAG2');
|
|
end;
|
|
|
|
procedure TMainForm.Button2Click(Sender: TObject);
|
|
begin
|
|
Log.Info('This is a info message with TAG1', 'TAG1');
|
|
Log.Info('This is a info message with TAG2', 'TAG2');
|
|
end;
|
|
|
|
procedure TMainForm.Button3Click(Sender: TObject);
|
|
begin
|
|
Log.Warn('This is a warning message with TAG1', 'TAG1');
|
|
Log.Warn('This is a warning message with TAG2', 'TAG2');
|
|
|
|
end;
|
|
|
|
procedure TMainForm.Button4Click(Sender: TObject);
|
|
begin
|
|
Log.Error('This is an error message with TAG1', 'TAG1');
|
|
Log.Error('This is an error message with TAG2', 'TAG2');
|
|
end;
|
|
|
|
procedure TMainForm.Button5Click(Sender: TObject);
|
|
var
|
|
lThreadProc: TProc;
|
|
begin
|
|
lThreadProc := procedure
|
|
var
|
|
I: Integer;
|
|
lThreadID: String;
|
|
begin
|
|
lThreadID := IntToStr(TThread.CurrentThread.ThreadID);
|
|
for I := 1 to 50 do
|
|
begin
|
|
Log.Debug('log message ' + TimeToStr(now) + ' ThreadID: ' + lThreadID, 'MULTITHREADING');
|
|
Log.Info('log message ' + TimeToStr(now) + ' ThreadID: ' + lThreadID, 'MULTITHREADING');
|
|
Log.Warn('log message ' + TimeToStr(now) + ' ThreadID: ' + lThreadID, 'MULTITHREADING');
|
|
Log.Error('log message ' + TimeToStr(now) + ' ThreadID: ' + lThreadID, 'MULTITHREADING');
|
|
end;
|
|
end;
|
|
TThread.CreateAnonymousThread(lThreadProc).Start;
|
|
TThread.CreateAnonymousThread(lThreadProc).Start;
|
|
TThread.CreateAnonymousThread(lThreadProc).Start;
|
|
TThread.CreateAnonymousThread(lThreadProc).Start;
|
|
end;
|
|
|
|
procedure TMainForm.FormCreate(Sender: TObject);
|
|
begin
|
|
// Let's create the local loggers for this form
|
|
FLog := BuildLogWriter([TVCLListViewAppender.Create(ListView1), TVCLMemoLogAppender.Create(Memo1)])
|
|
end;
|
|
|
|
function TMainForm.Log: ILogWriter;
|
|
begin
|
|
Result := FLog;
|
|
end;
|
|
|
|
end.
|