DLog.pas

unit DLog;

interface

uses
  SysUtils, Classes, Windows, acStrUtils, acSysUtils, ISincronizacaoNotifierUnit;

type
  TDataLog = class(TDataModule, ILog)
    procedure DataModuleCreate(Sender: TObject);
  private
    logFile: TextFile;
    FbaseDir: string;
    procedure openLogFile;
    procedure SetbaseDir(const Value: string);
  public
    paused: boolean;
    property baseDir: string read FbaseDir write SetbaseDir;
    function getLogFileName(logDate: TDateTime = -1): string;
    procedure log(const mensagem: string; const classe: string = ''; newLine: boolean = true; timestamp: boolean = true);
    procedure print(mensagem: string);
    procedure printL(mensagem: string);
    procedure printLine;
    procedure step(text: string = '.');
    procedure newLine;
    procedure pause;
    procedure resume;
  end;

var
  DataLog: TDataLog;
  CritSectLog: TRTLCriticalSection;

implementation

{$R *.dfm}

{ TDataLog }

procedure TDataLog.log(const mensagem: string; const classe: string = ''; newLine: boolean = true; timestamp: boolean = true);
var
  linha: string;
begin
  if paused then exit;
  linha := '';
  linha := '[' + FormatDateTime('yyyy-mm-dd hh:nn:ss,zzz', now) + ']';
  linha := linha + '[' + fillSpaces(classe, 20) + ']';
  linha := linha + ' ' + mensagem;
  EnterCriticalSection(CritSectLog);
  if newLine then
    Writeln(logFile, linha)
  else
    Write(logFile, linha);
  Flush(logFile);
  LeaveCriticalSection(CritSectLog);
end;

procedure TDataLog.step(text: string = '.');
begin
  Write(logFile, text);
  Flush(logFile);
end;

function TDataLog.getLogFileName(logDate: TDateTime = -1): string;
begin
  if logDate = -1 then
    logDate := date;
  if not(DirectoryExists(baseDir)) then
    CreateDir(baseDir);
  result := baseDir + FormatDateTime('yyyy_mm_dd', logDate) + '.log';
end;

procedure TDataLog.pause;
begin
  log('Pausing Log');
  paused := true;
  CloseFile(logFile);
end;

procedure TDataLog.print(mensagem: string);
begin
  log(mensagem, '', false, false);
end;

procedure TDataLog.printL(mensagem: string);
begin
  log(mensagem, '', true, false);
end;

procedure TDataLog.printLine;
begin
  printL('======================================');
end;

procedure TDataLog.resume;
begin
  openLogFile;
  paused := false;
  log('Resumed Log')
end;

procedure TDataLog.openLogFile;
var
  fn: string;
begin
  fn := getLogFileName;
  AssignFile(logFile, fn);
  if FileExists(fn) then
    Append(logFile)
  else
    Rewrite(logFile);
end;

procedure TDataLog.DataModuleCreate(Sender: TObject);
begin
  baseDir := getWindowsTempPath;
  paused := true;
end;

procedure TDataLog.newLine;
begin
  Writeln(logFile, '.');
  Flush(logFile);
end;

procedure TDataLog.SetbaseDir(const Value: string);
begin
  FbaseDir := IncludeTrailingPathDelimiter(Value);
  resume;
end;

initialization
  InitializeCriticalSection(CritSectLog);

finalization
  DeleteCriticalSection(CritSectLog);

end.