artem3213212/AGLogs
1
0
Fork 0
Code Issues 1 Releases Activity

some fixes

Browse Source
This commit is contained in:
Artem3213212
2018-05-26 22:12:37 +03:00
parent 6200242c9e
commit 6694f17fd6
2 changed files with 9 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
AG.Logs.pas
View File

@@ -25,7 +25,8 @@ type
class function GenerateLogString(s:widestring;o:TObject=nil):widestring;static;inline;
procedure Tab();virtual;
procedure UnTab();virtual;
procedure Write(Text:WideString;o:TObject=nil);virtual;abstract;
procedure Write(Text:WideString;o:TObject=nil);overload;virtual;abstract;
procedure Write(const data);overload;virtual;abstract;
destructor Destroy();override;
end;

10
Tests/Unit2.pas
View File

@@ -22,16 +22,20 @@ procedure TMyTestObject.Test1;
var
MultiLog:TAGLog;
Stream:TStream;
s:string;
s:TBytes;
begin
MultiLog:=TAGMultiLog.Create(nil);
(MultiLog as TAGMultiLog).Logs.Add(TAGNullLog.Create());
(MultiLog as TAGMultiLog).Logs.Add(TAGDiskLog.Create('test.log'));
(MultiLog as TAGMultiLog).Logs.Add(TAGRamLog.Create());
//(MultiLog as TAGMultiLog).Logs.Add(TAGCommandLineLog.Create(GetStdHandle()));
s:=TFile.ReadAllText('test2.log');
try
s:=TFile.ReadAllBytes('test2.log');
except
s:=TBytes.Create();
end;
Stream:=TFileStream.Create('test2.log',fmCreate+fmOpenReadWrite+fmShareDenyWrite);
Stream.Write(PWidechar(s)^,2*length(s));
Stream.WriteBuffer(s,length(s));
(MultiLog as TAGMultiLog).Logs.Add(TAGStreamLog.Create(Stream));
//(MultiLog as TAGMultiLog).Logs.Add(TAGCallBackLog.Create());
MultiLog.Write('aaaaaaaaaaa',self);