103 lines
3.0 KiB
ObjectPascal
103 lines
3.0 KiB
ObjectPascal
|
{*******************************************************}
|
||
|
|
|
||
|
|
{ Renegade BBS }
|
||
|
|
|
||
|
|
{ Copyright (c) 1990-2013 The Renegade Dev Team }
|
||
|
|
{ Copyleft (ↄ) 2016-2017 Renegade BBS }
|
||
|
|
|
||
|
|
{ This file is part of Renegade BBS }
|
||
|
|
|
||
|
|
{ Renegade is free software: you can redistribute it }
|
||
|
|
{ and/or modify it under the terms of the GNU General }
|
||
|
|
{ Public License as published by the Free Software }
|
||
|
|
{ Foundation, either version 3 of the License, or }
|
||
|
|
{ (at your option) any later version. }
|
||
|
|
|
||
|
|
{ Renegade is distributed in the hope that it will be }
|
||
|
|
{ useful, but WITHOUT ANY WARRANTY; without even the }
|
||
|
|
{ implied warranty of MERCHANTABILITY or FITNESS FOR }
|
||
|
|
{ A PARTICULAR PURPOSE. See the GNU General Public }
|
||
|
|
{ License for more details. }
|
||
|
|
|
||
|
|
{ You should have received a copy of the GNU General }
|
||
|
|
{ Public License along with Renegade. If not, see }
|
||
|
|
{ <http://www.gnu.org/licenses/>. }
|
||
|
|
|
||
|
|
{*******************************************************}
|
||
|
|
{ _______ __ }
|
||
|
|
{ | _ .-----.-----.-----.-----.---.-.--| .-----. }
|
||
|
|
{ |. l | -__| | -__| _ | _ | _ | -__| }
|
||
|
|
{ |. _ |_____|__|__|_____|___ |___._|_____|_____| }
|
||
|
|
{ |: | | |_____| }
|
||
|
|
{ |::.|:. | }
|
||
|
|
{ `--- ---' }
|
||
|
|
{*******************************************************}
|
||
|
|
{$mode objfpc}
|
||
|
|
{$h+}
|
||
|
|
{$codepage utf8}
|
||
|
|
{$packrecords c}
|
||
|
|
{ namespace Renegade.Logger }
|
||
|
|
{
|
||
|
|
Program to read data we wrote to renegade.log
|
||
|
|
using Logger.RecordHandler.
|
||
|
|
}
|
||
|
|
program LoggerRecordRead;
|
||
|
|
|
||
|
|
uses
|
||
|
|
SysUtils,
|
||
|
|
Classes;
|
||
|
|
|
||
|
|
type
|
||
|
|
TLogRecord = record
|
||
|
|
Level: byte;
|
||
|
|
Process: longint;
|
||
|
|
Identifier: string[255];
|
||
|
|
LevelString: string[10];
|
||
|
|
Message: string[255];
|
||
|
|
Context: string[255];
|
||
|
|
LogDateTime: TDateTime;
|
||
|
|
end;
|
||
|
|
var
|
||
|
|
LogRecord: TLogRecord;
|
||
|
|
FileRecord: file of TLogRecord;
|
||
|
|
i: byte;
|
||
|
|
begin
|
||
|
|
if FileExists('renegade.log') then
|
||
|
|
begin
|
||
|
|
AssignFile(FileRecord, 'renegade.log');
|
||
|
|
|
||
|
|
Reset(FileRecord);
|
||
|
|
|
||
|
|
if IOResult <> 0 then
|
||
|
|
begin
|
||
|
|
Writeln('Error in opening file.');
|
||
|
|
exit;
|
||
|
|
end
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
for i := 0 to FileSize(FileRecord) - 1 do
|
||
|
|
begin
|
||
|
|
Seek(FileRecord, i);
|
||
|
|
Read(FileRecord, LogRecord);
|
||
|
|
with LogRecord do
|
||
|
|
begin
|
||
|
|
Writeln('Message ID : ', i);
|
||
|
|
Writeln('Process ID : ', Process);
|
||
|
|
Writeln('Message : ', Message);
|
||
|
|
Writeln('Log Level : ', Level);
|
||
|
|
Writeln('Level String : ', LevelString);
|
||
|
|
Writeln('Datetime : ', DateTimeToStr(LogDateTime));
|
||
|
|
Writeln('Log Identifier : ', Identifier);
|
||
|
|
Writeln('Log Context : ', Context, #10#13);
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
end;
|
||
|
|
Close(FileRecord);
|
||
|
|
end
|
||
|
|
else
|
||
|
|
begin
|
||
|
|
Writeln('File doesn''t exist');
|
||
|
|
exit;
|
||
|
|
end;
|
||
|
|
end.
|