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

146
AG.Logs.pas
View File

@@ -2,31 +2,31 @@ unit AG.Logs;
interface interface
//{$UNDEF MSWINDOWS}
uses uses
{$IFDEF MSWINDOWS}{$IFDEF FPC}Windows{$ELSE}Winapi.Windows{$ENDIF},{$ENDIF} {$IFDEF MSWINDOWS}{$IFDEF FPC}Windows{$ELSE}Winapi.Windows{$ENDIF},{$ENDIF}
{$IFDEF FPC}FGL{$ELSE}System.Generics.Collections,{$ENDIF} {$IFDEF FPC}FGL{$ELSE}System.Generics.Collections{$ENDIF},
{$IFDEF FPC}System.SysUtils{$ELSE}SysUtils{$ENDIF}, {$IFDEF FPC}SysUtils{$ELSE}System.SysUtils{$ENDIF},
{$IFDEF FPC}System.Classes{$ELSE}Classes{$ENDIF}, {$IFDEF FPC}Classes{$ELSE}System.Classes{$ENDIF},
{$IFDEF FPC}System.DateUtils{$ELSE}DateUtils{$ENDIF}, {$IFDEF FPC}DateUtils{$ELSE}System.DateUtils{$ENDIF},
{$IFDEF FPC}System.SyncObjs{$ELSE}SyncObjs{$ENDIF}; {$IFDEF FPC}SyncObjs{$ELSE}System.SyncObjs{$ENDIF}
{$IFNDEF MSWINDOWS},
{$IFNDEF FPC}System.IOUtils{$ENDIF}
{$ENDIF};
type type
TAGLog=class abstract TAGLog=class abstract
strict protected strict protected
tabs:cardinal; tabs:cardinal;
tabstr:widestring; tabstr:string;
constructor Create(); constructor Create();
const const
CBaseTab='--------------------------'; CBaseTab='--------------------------';
public public
class function SisebleWordtoStr(i:word;size:int8):widestring;static;inline; class function SisebleWordtoStr(i:word;size:int8):string;static;inline;
class function GenerateLogString(s:widestring;o:TObject=nil):widestring;static;inline; class function GenerateLogString(s:string;o:TObject=nil):string;static;inline;
procedure Tab();virtual; procedure Tab();virtual;
procedure UnTab();virtual; procedure UnTab();virtual;
procedure Write(Text:WideString;o:TObject=nil);overload;virtual;abstract; procedure Write(Text:string;o:TObject=nil);overload;virtual;abstract;
procedure Write(const data);overload;virtual;abstract;
destructor Destroy();override; destructor Destroy();override;
end; end;
@@ -34,28 +34,34 @@ type
public public
buf:WideString; buf:WideString;
constructor Create();overload; constructor Create();overload;
procedure Write(Text:WideString;o:TObject=nil);overload;override; procedure Write(Text:string;o:TObject=nil);overload;override;
end; end;
TAGDiskLog=class(TAGLog) TAGDiskLog=class(TAGLog)
strict protected strict protected
LogHandle,ThreadHandle:NativeUInt; {$IFNDEF MSWINDOWS}
ThreadID:cardinal; Stream:TStream;
{$ELSE}
buf1:WideString; buf1:WideString;
onbuf:boolean; onbuf:boolean;
LogHandle,ThreadHandle:NativeUInt;
ThreadID:cardinal;
Lock:TCriticalSection; Lock:TCriticalSection;
WantTerminate:Boolean; WantTerminate:Boolean;
{$ENDIF}
public public
constructor Create(FileName:WideString);overload; constructor Create(FileName:WideString);overload;
procedure Init();{override;}stdcall; {$IFDEF MSWINDOWS}
procedure Write(Text:WideString;o:TObject=nil);overload;override; procedure Init();stdcall;
{$ENDIF}
procedure Write(Text:string;o:TObject=nil);overload;override;
destructor Destroy();overload;override; destructor Destroy();overload;override;
end; end;
TAGNullLog=class(TAGLog) TAGNullLog=class(TAGLog)
public public
constructor Create();overload; constructor Create();overload;
procedure Write(Text:WideString;o:TObject=nil);overload;override; procedure Write(Text:string;o:TObject=nil);overload;override;
end; end;
{$IFDEF MSWINDOWS} {$IFDEF MSWINDOWS}
@@ -64,7 +70,7 @@ type
CommandLine:THandle; CommandLine:THandle;
public public
constructor Create(Handele:THandle);overload; constructor Create(Handele:THandle);overload;
procedure Write(Text:WideString;o:TObject=nil);overload;override; procedure Write(Text:string;o:TObject=nil);overload;override;
destructor Destroy();overload;override; destructor Destroy();overload;override;
end; end;
{$ENDIF} {$ENDIF}
@@ -73,46 +79,43 @@ type
strict protected strict protected
stream:TStream; stream:TStream;
public public
constructor Create(stream:TStream);overload; constructor Create(Astream:TStream);overload;
procedure Write(Text:WideString;o:TObject=nil);overload;override; procedure Write(Text:string;o:TObject=nil);overload;override;
end; end;
TAGCallBackLog=class(TAGLog) TAGCallBackLog=class(TAGLog)
strict protected type strict protected type
TCallBack=procedure(s:string); TCallBack={$IFNDEF FPC}reference to{$ENDIF}procedure(s:string);
var var
CallBack:TCallBack; CallBack:TCallBack;
public public
constructor Create(CallBack:TCallBack);overload; constructor Create(ACallBack:TCallBack);overload;
procedure Write(Text:WideString;o:TObject=nil);overload;override; procedure Write(Text:string;o:TObject=nil);overload;override;
end; end;
TAGMultiLog=class(TAGLog) TAGMultiLog=class(TAGLog)
public public
type type
TLogsList=TList<TAGLog>; TLogsList={$IFDEF FPC}specialize TFPGList<TAGLog>{$ELSE}TList<TAGLog>{$ENDIF};
var var
Logs:TLogsList; Logs:TLogsList;
constructor Create(Default:TLogsList);overload; constructor Create(Default:TLogsList);overload;
procedure Write(Text:WideString;o:TObject=nil);overload;override; procedure Write(Text:string;o:TObject=nil);overload;override;
procedure Tab();override; procedure Tab();override;
procedure UnTab();override; procedure UnTab();override;
destructor Destroy();overload;override; destructor Destroy();overload;override;
end; end;
const
SisebleWordtoStr:function(i:word;size:int8):widestring=TAGLog.SisebleWordtoStr;
Implementation Implementation
constructor TAGLog.Create(); constructor TAGLog.Create();
begin begin
Self.Write(sLineBreak+CBaseTab+'Logging init'+CBaseTab+sLineBreak); Self.Write(CBaseTab+'Logging init-'+CBaseTab);
end; end;
class function TAGLog.SisebleWordtoStr(i:word;size:int8):widestring; class function TAGLog.SisebleWordtoStr(i:word;size:int8):string;
begin begin
Result:=inttostr(i); Result:=IntToStr(i);
size:=size-Length(Result); size:=size-Length(Result);
case size of case size of
0:Result:=Result; 0:Result:=Result;
@@ -123,19 +126,23 @@ begin
end; end;
end; end;
class function TAGLog.GenerateLogString(s:widestring;o:TObject=nil):widestring; class function TAGLog.GenerateLogString(s:string;o:TObject=nil):string;
var var
D:TDateTime; D:TDateTime;
begin begin
D:=Time; D:=Time;
if o<>nil then if o<>nil then
Result:=o.QualifiedClassName+'['+IntToStr(o.GetHashCode)+']:' {$IFDEF FPC}
Result:=o.ClassName+'['+IntToStr(o.GetHashCode)+']:'
{$ELSE}
Result:=o.QualifiedClassName+'['+IntToStr(o.GetHashCode)+']:'
{$ENDIF}
else else
Result:=''; Result:='';
Result:='['+Siseblewordtostr(DayOfTheMonth(D),2)+'.'+Siseblewordtostr(MonthOfTheYear(D),2)+'.'+ Result:='['+Siseblewordtostr(DayOfTheMonth(D),2)+'.'+Siseblewordtostr(MonthOfTheYear(D),2)+'.'+
Siseblewordtostr(YearOf(D),4)+' '+Siseblewordtostr(HourOfTheDay(D),2)+':'+ Siseblewordtostr(YearOf(D),4)+' '+Siseblewordtostr(HourOfTheDay(D),2)+':'+
Siseblewordtostr(MinuteOfTheHour(D),2)+':'+Siseblewordtostr(SecondOfTheMinute(D),2)+'.' Siseblewordtostr(MinuteOfTheHour(D),2)+':'+Siseblewordtostr(SecondOfTheMinute(D),2)+'.'
+Siseblewordtostr(MilliSecondOfTheSecond(D),3)+'] '+Result+s+#13#10; +Siseblewordtostr(MilliSecondOfTheSecond(D),3)+'] '+Result+s+sLineBreak;
end; end;
procedure TAGLog.Tab(); procedure TAGLog.Tab();
@@ -152,7 +159,7 @@ end;
destructor TAGLog.Destroy(); destructor TAGLog.Destroy();
begin begin
Self.Write(sLineBreak+CBaseTab+'Logging ended'+CBaseTab+sLineBreak); Self.Write(CBaseTab+'Logging ended'+CBaseTab);
inherited; inherited;
end; end;
@@ -164,14 +171,14 @@ tabstr:='';
inherited Create; inherited Create;
end; end;
procedure TAGRamLog.Write(Text:WideString;o:TObject=nil); procedure TAGRamLog.Write(Text:string;o:TObject=nil);
begin begin
buf:=buf+GenerateLogString(tabstr+Text,o); buf:=buf+GenerateLogString(tabstr+Text,o);
end; end;
constructor TAGDiskLog.Create(FileName:WideString); constructor TAGDiskLog.Create(FileName:WideString);
{$IFDEF MSWINDOWS}
begin begin
{}
Lock:=TCriticalSection.Create; Lock:=TCriticalSection.Create;
WantTerminate:=False; WantTerminate:=False;
tabs:=0; tabs:=0;
@@ -179,11 +186,23 @@ tabstr:='';
buf1:=''; buf1:='';
LogHandle:=CreateFileW(Pwidechar(FileName),GENERIC_WRITE,0,nil,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0); LogHandle:=CreateFileW(Pwidechar(FileName),GENERIC_WRITE,0,nil,OPEN_ALWAYS,FILE_ATTRIBUTE_NORMAL,0);
SetFilePointer(LogHandle,0,nil,FILE_END); SetFilePointer(LogHandle,0,nil,FILE_END);
ThreadHandle:=CreateThread(nil,0,addr(TAGDiskLog.Init),self,0,ThreadID); ThreadHandle:=CreateThread(nil,0,{$IFDEF FPC}Self.MethodAddress('Init'){$ELSE}addr(TAGDiskLog.Init){$ENDIF},self,0,ThreadID);
{$ELSE}
var
s:TBytes;
begin
try
s:=TFile.ReadAllBytes(FileName);
except
s:=TBytes.Create();
end;
Stream:=TFileStream.Create(FileName,fmCreate+fmOpenReadWrite+fmShareDenyWrite);
Stream.WriteBuffer(s,length(s));
{$ENDIF}
inherited Create; inherited Create;
{}
end; end;
{$IFDEF MSWINDOWS}
procedure TAGDiskLog.Init();stdcall; procedure TAGDiskLog.Init();stdcall;
var var
n:cardinal; n:cardinal;
@@ -215,17 +234,27 @@ begin
sleep(0); sleep(0);
end; end;
end; end;
{$ENDIF}
procedure TAGDiskLog.Write(Text:WideString;o:TObject=nil); procedure TAGDiskLog.Write(Text:string;o:TObject=nil);
{$IFDEF MSWINDOWS}
begin begin
Lock.Enter; Lock.Enter;
buf1:=buf1+GenerateLogString(tabstr+text,o); buf1:=buf1+GenerateLogString(tabstr+text,o);
Lock.Leave; Lock.Leave;
{$ELSE}
var
s:string;
begin
s:=GenerateLogString(tabstr+text,o);
Stream.WriteData(PWideChar(s),Length(s)*2);
{$ENDIF}
end; end;
destructor TAGDiskLog.Destroy(); destructor TAGDiskLog.Destroy();
begin begin
inherited; inherited;
{$IFDEF MSWINDOWS}
WantTerminate:=True; WantTerminate:=True;
While WantTerminate do While WantTerminate do
sleep(0); sleep(0);
@@ -233,6 +262,9 @@ FreeAndNil(Lock);
TerminateThread(ThreadID,0); TerminateThread(ThreadID,0);
CloseHandle(ThreadHandle); CloseHandle(ThreadHandle);
CloseHandle(LogHandle); CloseHandle(LogHandle);
{$ELSE}
FreeAndNil(Stream);
{$ENDIF}
end; end;
constructor TAGNullLog.Create(); constructor TAGNullLog.Create();
@@ -240,7 +272,7 @@ begin
inherited; inherited;
end; end;
procedure TAGNullLog.Write(Text:WideString;o:TObject=nil); procedure TAGNullLog.Write(Text:string;o:TObject=nil);
begin begin
end; end;
@@ -253,7 +285,7 @@ CommandLine:=Handele;
inherited Create; inherited Create;
end; end;
procedure TAGCommandLineLog.Write(Text:WideString;o:TObject=nil); procedure TAGCommandLineLog.Write(Text:string;o:TObject=nil);
var var
p:PWideChar; p:PWideChar;
a,b:cardinal; a,b:cardinal;
@@ -279,13 +311,13 @@ end;
{TAGStreamLog} {TAGStreamLog}
constructor TAGStreamLog.Create(stream:TStream); constructor TAGStreamLog.Create(Astream:TStream);
begin begin
Self.stream:=stream; stream:=Astream;
inherited Create; inherited Create;
end; end;
procedure TAGStreamLog.Write(Text:WideString;o:TObject=nil); procedure TAGStreamLog.Write(Text:string;o:TObject=nil);
var var
s:string; s:string;
begin begin
@@ -295,33 +327,33 @@ end;
{TAGCallBackLog} {TAGCallBackLog}
constructor TAGCallBackLog.Create(CallBack:TCallBack); constructor TAGCallBackLog.Create(ACallBack:TCallBack);
begin begin
Self.CallBack:=CallBack; CallBack:=ACallBack;
inherited Create; inherited Create;
end; end;
procedure TAGCallBackLog.Write(Text:WideString;o:TObject=nil); procedure TAGCallBackLog.Write(Text:string;o:TObject=nil);
begin begin
CallBack(GenerateLogString(Text,o)); CallBack(GenerateLogString(Text,o));
end; end;
{TAGMultiLog} {TAGMultiLog}
constructor TAGMultiLog.Create(Default:TList<TAGLog>); constructor TAGMultiLog.Create(Default:TLogsList);
begin begin
//inherited Create; //inherited Create;
if Default<>nil then if Default<>nil then
Logs:=Default Logs:=Default
else else
Logs:=TList<TAGLog>.Create; Logs:=TLogsList.Create;
end; end;
procedure TAGMultiLog.Write(Text:WideString;o:TObject=nil); procedure TAGMultiLog.Write(Text:string;o:TObject=nil);
var var
i:TAGLog; i:TAGLog;
begin begin
for i in Logs.List do for i in Logs do
i.Write(Text,o); i.Write(Text,o);
end; end;
@@ -329,7 +361,7 @@ procedure TAGMultiLog.Tab();
var var
i:TAGLog; i:TAGLog;
begin begin
for i in Logs.List do for i in Logs do
i.Tab(); i.Tab();
end; end;
@@ -337,7 +369,7 @@ procedure TAGMultiLog.UnTab();
var var
i:TAGLog; i:TAGLog;
begin begin
for i in Logs.List do for i in Logs do
i.UnTab(); i.UnTab();
end; end;
@@ -345,7 +377,7 @@ destructor TAGMultiLog.Destroy();
var var
i:TAGLog; i:TAGLog;
begin begin
for i in Logs.List do for i in Logs do
i.Free(); i.Free();
FreeAndNil(Logs); FreeAndNil(Logs);
//inherited; //inherited;

76
FPCTest/fpcunitproject1.lpi Normal file
View File

@@ -0,0 +1,76 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="fpcunitproject1"/>
<UseAppBundle Value="False"/>
<ResourceType Value="res"/>
</General>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
<RunParams>
<local>
<FormatVersion Value="1"/>
</local>
</RunParams>
<RequiredPackages Count="1">
<Item1>
<PackageName Value="FCL"/>
</Item1>
</RequiredPackages>
<Units Count="3">
<Unit0>
<Filename Value="fpcunitproject1.lpr"/>
<IsPartOfProject Value="True"/>
</Unit0>
<Unit1>
<Filename Value="testcase1.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="TestCase1"/>
</Unit1>
<Unit2>
<Filename Value="..\AG.Logs.pas"/>
<IsPartOfProject Value="True"/>
</Unit2>
</Units>
</ProjectOptions>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<Target>
<Filename Value="fpcunitproject1"/>
</Target>
<SearchPaths>
<IncludeFiles Value="$(ProjOutDir)"/>
<OtherUnitFiles Value=".."/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<CodeGeneration>
<TargetCPU Value="jvm"/>
</CodeGeneration>
</CompilerOptions>
<Debugging>
<Exceptions Count="3">
<Item1>
<Name Value="EAbort"/>
</Item1>
<Item2>
<Name Value="ECodetoolError"/>
</Item2>
<Item3>
<Name Value="EFOpenError"/>
</Item3>
</Exceptions>
</Debugging>
</CONFIG>

25
FPCTest/fpcunitproject1.lpr Normal file
View File

@@ -0,0 +1,25 @@
program fpcunitproject1;
{$mode objfpc}{$H+}
uses
Classes, consoletestrunner, TestCase1;
type
{ TMyTestRunner }
TMyTestRunner = class(TTestRunner)
protected
// override the protected methods of TTestRunner to customize its behavior
end;
var
Application: TMyTestRunner;
begin
Application := TMyTestRunner.Create(nil);
Application.Initialize;
Application.Run;
Application.Free;
end.

90
FPCTest/fpcunitproject1.lps Normal file
View File

@@ -0,0 +1,90 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectSession>
<PathDelim Value="\"/>
<Version Value="10"/>
<BuildModes Active="Default"/>
<Units Count="6">
<Unit0>
<Filename Value="fpcunitproject1.lpr"/>
<IsPartOfProject Value="True"/>
<EditorIndex Value="-1"/>
<WindowIndex Value="-1"/>
<TopLine Value="-1"/>
<CursorPos X="-1" Y="-1"/>
<UsageCount Value="20"/>
</Unit0>
<Unit1>
<Filename Value="testcase1.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="TestCase1"/>
<CursorPos X="98" Y="24"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit1>
<Unit2>
<Filename Value="..\AG.Logs.pas"/>
<IsPartOfProject Value="True"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="1"/>
<CursorPos X="89" Y="25"/>
<UsageCount Value="20"/>
<Loaded Value="True"/>
</Unit2>
<Unit3>
<Filename Value="C:\lazarus\fpc\3.0.4\source\rtl\win\wininc\redef.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="14"/>
<CursorPos X="29" Y="30"/>
<UsageCount Value="10"/>
</Unit3>
<Unit4>
<Filename Value="C:\lazarus\fpc\3.0.4\source\rtl\win\wininc\base.inc"/>
<EditorIndex Value="-1"/>
<TopLine Value="636"/>
<CursorPos X="6" Y="652"/>
<UsageCount Value="10"/>
</Unit4>
<Unit5>
<Filename Value="C:\lazarus\packager\registration\fcllaz.pas"/>
<EditorIndex Value="-1"/>
<CursorPos X="3" Y="11"/>
<UsageCount Value="10"/>
</Unit5>
</Units>
<JumpHistory Count="8" HistoryIndex="7">
<Position1>
<Filename Value="testcase1.pas"/>
<Caret Line="31" Column="6" TopLine="15"/>
</Position1>
<Position2>
<Filename Value="testcase1.pas"/>
<Caret Line="31" Column="6" TopLine="15"/>
</Position2>
<Position3>
<Filename Value="testcase1.pas"/>
<Caret Line="33" Column="20" TopLine="17"/>
</Position3>
<Position4>
<Filename Value="..\AG.Logs.pas"/>
<Caret Line="25" Column="89"/>
</Position4>
<Position5>
<Filename Value="testcase1.pas"/>
<Caret Line="31" Column="5" TopLine="15"/>
</Position5>
<Position6>
<Filename Value="testcase1.pas"/>
<Caret Line="38" Column="2" TopLine="21"/>
</Position6>
<Position7>
<Filename Value="testcase1.pas"/>
<Caret Line="12" Column="50"/>
</Position7>
<Position8>
<Filename Value="testcase1.pas"/>
<Caret Line="24" Column="98"/>
</Position8>
</JumpHistory>
</ProjectSession>
</CONFIG>

53
FPCTest/testcase1.pas Normal file
View File

@@ -0,0 +1,53 @@
unit TestCase1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, fpcunit, testutils, testregistry, AG.Logs;
type
TTestCase1= class(TTestCase)
published
procedure TestHookUp;
end;
implementation
procedure TTestCase1.TestHookUp;
var
MultiLog:TAGLog;
Stream:TStream;
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());
{$IFNDEF MSWINDOWS}(MultiLog as TAGMultiLog).Logs.Add(TAGCommandLineLog.Create(GetStdHandle(STD_OUTPUT_HANDLE))){$ENDIF};
try
//s:=TFile.ReadAllBytes('test2.log');
except
//s:=TBytes.Create();
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(procedure(s:string)
begin
Self.WriteLn(s);
end));}
MultiLog.Write('Str Test');
MultiLog.Write('Str+Object Test',self);
FreeAndNil(MultiLog);
end;
initialization
RegisterTest(TTestCase1);
end.

12
Tests/Unit2.pas
View File

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