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; class function GenerateLogString(s:widestring;o:TObject=nil):widestring;static;inline;
procedure Tab();virtual; procedure Tab();virtual;
procedure UnTab();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; destructor Destroy();override;
end; end;

10
Tests/Unit2.pas
View File

@@ -22,16 +22,20 @@ procedure TMyTestObject.Test1;
var var
MultiLog:TAGLog; MultiLog:TAGLog;
Stream:TStream; Stream:TStream;
s:string; s:TBytes;
begin begin
MultiLog:=TAGMultiLog.Create(nil); MultiLog:=TAGMultiLog.Create(nil);
(MultiLog as TAGMultiLog).Logs.Add(TAGNullLog.Create()); (MultiLog as TAGMultiLog).Logs.Add(TAGNullLog.Create());
(MultiLog as TAGMultiLog).Logs.Add(TAGDiskLog.Create('test.log')); (MultiLog as TAGMultiLog).Logs.Add(TAGDiskLog.Create('test.log'));
(MultiLog as TAGMultiLog).Logs.Add(TAGRamLog.Create()); (MultiLog as TAGMultiLog).Logs.Add(TAGRamLog.Create());
//(MultiLog as TAGMultiLog).Logs.Add(TAGCommandLineLog.Create(GetStdHandle())); //(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:=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(TAGStreamLog.Create(Stream));
//(MultiLog as TAGMultiLog).Logs.Add(TAGCallBackLog.Create()); //(MultiLog as TAGMultiLog).Logs.Add(TAGCallBackLog.Create());
MultiLog.Write('aaaaaaaaaaa',self); MultiLog.Write('aaaaaaaaaaa',self);