Initial import
This commit is contained in:
parent
257a17a944
commit
024c502d9f
|
@ -0,0 +1,82 @@
|
|||
Unit m_LogRoller;
|
||||
|
||||
{$I M_OPS.PAS}
|
||||
|
||||
Interface
|
||||
|
||||
Uses
|
||||
m_FileIO,
|
||||
m_Strings,
|
||||
m_DateTime;
|
||||
|
||||
Const
|
||||
CRLF = {$IFDEF WINDOWS} #13#10; {$ENDIF}
|
||||
{$IFDEF UNIX} #10; {$ENDIF}
|
||||
{$IFDEF OS2} #13#10; {$ENDIF}
|
||||
log = 1;
|
||||
logStart = 2;
|
||||
|
||||
Type
|
||||
TLogRoller = Class
|
||||
PreFix : String;
|
||||
LogFile : TFileBuffer;
|
||||
BufSize : LongInt;
|
||||
MaxSize : LongInt;
|
||||
MaxLogs : Byte;
|
||||
CurLevel : Byte;
|
||||
|
||||
Constructor Create (FN: String; Max: LongInt; ML, Level: Byte);
|
||||
Destructor Destroy; Override;
|
||||
Procedure Add (LogType, LogLevel: Byte; LogChar: Char; LogStr: String);
|
||||
End;
|
||||
|
||||
Implementation
|
||||
|
||||
Constructor TLogRoller.Create (FN: String; Max: LongInt; ML, Level: Byte);
|
||||
Begin
|
||||
Inherited Create;
|
||||
|
||||
MaxSize := Max * 1024;
|
||||
MaxLogs := ML;
|
||||
BufSize := 4 * 1024;
|
||||
CurLevel := Level;
|
||||
PreFix := FN;
|
||||
|
||||
LogFile := TFileBuffer.Create(BufSize);
|
||||
|
||||
LogFile.OpenStream (PreFix + '_1.log', 1, fmOpenCreate, 66);
|
||||
End;
|
||||
|
||||
Destructor TLogRoller.Destroy;
|
||||
Begin
|
||||
LogFile.Free;
|
||||
|
||||
Inherited Destroy;
|
||||
End;
|
||||
|
||||
Procedure TLogRoller.Add (LogType, LogLevel: Byte; LogChar: Char; LogStr: String);
|
||||
Var
|
||||
Count : Byte;
|
||||
Begin
|
||||
If CurLevel < LogLevel Then Exit;
|
||||
|
||||
If (MaxSize > 0) And (System.FileSize(LogFile.InFile) > MaxSize) Then Begin
|
||||
LogFile.CloseStream;
|
||||
|
||||
FileErase (PreFix + '_' + strI2S(MaxLogs) + '.log');
|
||||
|
||||
For Count := MaxLogs - 1 DownTo 1 Do
|
||||
FileReName (PreFix + '_' + strI2S(Count) + '.log', PreFix + '_' + strI2S(Count + 1) + '.log');
|
||||
|
||||
LogFile.OpenStream (PreFix + '_1.log', 1, fmOpenAppend, 66);
|
||||
End;
|
||||
|
||||
Case LogType of
|
||||
logStart : LogStr := '---------- ' + LogStr + ', ' + FormatDate(CurDateDT, 'NNN DD YYYY') + CRLF;
|
||||
log : LogStr := LogChar + ' ' + FormatDate(CurDateDT, 'HH:II:SS') + ' ' + LogStr + CRLF;
|
||||
End;
|
||||
|
||||
LogFile.WriteBlock (LogStr[1], Length(LogStr));
|
||||
End;
|
||||
|
||||
End.
|
Loading…
Reference in New Issue