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

Final Delphi+part of FPC

Browse Source
This commit is contained in:
Artem3213212
2018-05-28 15:56:36 +03:00
parent 6694f17fd6
commit 1fe82b862a
6 changed files with 341 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
Tests/Unit2.pas
View File

@@ -7,7 +7,7 @@ uses
type
[TestFixture]
TMyTestObject = class(TObject)
TMyTestObject = class(TObject)
public
// Sample Methods
// Simple single Test
@@ -28,7 +28,7 @@ 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()));
{$IFNDEF MSWINDOWS}(MultiLog as TAGMultiLog).Logs.Add(TAGCommandLineLog.Create(GetStdHandle(STD_OUTPUT_HANDLE))){$ENDIF};
try
s:=TFile.ReadAllBytes('test2.log');
except
@@ -37,8 +37,12 @@ end;
Stream:=TFileStream.Create('test2.log',fmCreate+fmOpenReadWrite+fmShareDenyWrite);
Stream.WriteBuffer(s,length(s));
(MultiLog as TAGMultiLog).Logs.Add(TAGStreamLog.Create(Stream));
//(MultiLog as TAGMultiLog).Logs.Add(TAGCallBackLog.Create());
MultiLog.Write('aaaaaaaaaaa',self);
(MultiLog as TAGMultiLog).Logs.Add(TAGCallBackLog.Create(procedure(s:string)
begin
Self.WriteLn(s);
end));{}
MultiLog.Write('Str Test');
MultiLog.Write('Str+Object Test',self);
FreeAndNil(MultiLog);
end;