delphimvcframework/lib/loggerpro/samples/20_multiple_loggers/MultipleLoggersU.pas

unit MultipleLoggersU;

interface

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

type
  TMultipleLoggersForm = class(TForm)
    Memo1: TMemo;
    btnFormLocalLog: TButton;
    btnApplicationLevelLog: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnFormLocalLogClick(Sender: TObject);
    procedure btnApplicationLevelLogClick(Sender: TObject);
  private
    FLogWriter: ILogWriter;
    function LocalLog: ILogWriter;
  public
    { Public declarations }
  end;

var
  MultipleLoggersForm: TMultipleLoggersForm;

implementation

uses
  LoggerPro.VCLMemoAppender, LoggerProConfig;

{$R *.dfm}

procedure TMultipleLoggersForm.btnApplicationLevelLogClick(Sender: TObject);
begin
  Log.Log(TLogType(Random(Ord(TLogType.Error) + 1)),
    'Message sent to the application level LoggerPro instance (random type)',
    'APP');
end;

procedure TMultipleLoggersForm.btnFormLocalLogClick(Sender: TObject);
begin
  LocalLog.Log(TLogType(Random(Ord(TLogType.Error) + 1)),
    'Message sent to the form local LoggerPro instance (random type)', 'tag');
end;

procedure TMultipleLoggersForm.FormCreate(Sender: TObject);
begin
  FLogWriter := BuildLogWriter([TVCLMemoLogAppender.Create(Memo1)], nil,
    TLogType.Info);
  FLogWriter.Info('Local log correctly initialized', 'tag');
end;

function TMultipleLoggersForm.LocalLog: ILogWriter;
begin
  Result := FLogWriter;
end;

end.