GitHub-Mirror/x2log
1
0
Fork 0
mirror of synced 2024-11-23 20:03:50 +00:00
Code Issues Projects Releases Wiki Activity

Moved NamedPipe MessageHeader definition to it's own unit

Browse Source
This commit is contained in:
Mark van Renswoude 2016-10-10 22:08:10 +02:00
parent c8bfc7289c
commit e12d1fe497
5 changed files with 42 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Test/X2LogTest.dpr
View File

@ -24,7 +24,8 @@ uses
X2Log.Details.Intf in '..\X2Log.Details.Intf.pas', X2Log.Details.Intf in '..\X2Log.Details.Intf.pas',
X2Log.Util.Stream in '..\X2Log.Util.Stream.pas', X2Log.Util.Stream in '..\X2Log.Util.Stream.pas',
X2Log.Decorator in '..\X2Log.Decorator.pas', X2Log.Decorator in '..\X2Log.Decorator.pas',
X2Log.Observer.RollingLogFile in '..\X2Log.Observer.RollingLogFile.pas'; X2Log.Observer.RollingLogFile in '..\X2Log.Observer.RollingLogFile.pas',
X2Log.Intf.NamedPipe in '..\X2Log.Intf.NamedPipe.pas';
{$R *.res} {$R *.res}

1
Test/X2LogTest.dproj
View File

@ -196,6 +196,7 @@
<DCCReference Include="..\X2Log.Util.Stream.pas"/> <DCCReference Include="..\X2Log.Util.Stream.pas"/>
<DCCReference Include="..\X2Log.Decorator.pas"/> <DCCReference Include="..\X2Log.Decorator.pas"/>
<DCCReference Include="..\X2Log.Observer.RollingLogFile.pas"/> <DCCReference Include="..\X2Log.Observer.RollingLogFile.pas"/>
<DCCReference Include="..\X2Log.Intf.NamedPipe.pas"/>
<RcItem Include="resources\Graphic.jpg"> <RcItem Include="resources\Graphic.jpg">
<ResourceType>RCDATA</ResourceType> <ResourceType>RCDATA</ResourceType>
<ResourceId>GraphicDetails</ResourceId> <ResourceId>GraphicDetails</ResourceId>

1
X2Log.Client.NamedPipe.pas
View File

@ -46,6 +46,7 @@ uses
X2Log.Details.Default, X2Log.Details.Default,
X2Log.Details.Registry, X2Log.Details.Registry,
X2Log.Intf.NamedPipe,
X2Log.Util.Stream; X2Log.Util.Stream;

37
X2Log.Intf.NamedPipe.pas Normal file
View File

@ -0,0 +1,37 @@
unit X2Log.Intf.NamedPipe;
interface
uses
X2Log.Intf;
type
TX2LogMessageHeaderV1 = packed record
ID: Word;
Version: Byte;
Size: Word;
DateTime: TDateTime;
Level: TX2LogLevel;
{
Payload:
CategoryLength: Cardinal
Category: WideString
MessageLength: Cardinal
Message: WideString
DetailsLength: Cardinal
Details: WideString
}
end;
TX2LogMessageHeader = TX2LogMessageHeaderV1;
const
X2LogMessageHeader: Word = $B258;
X2LogMessageVersion: Byte = 1;
implementation
end.

1
X2Log.Observer.NamedPipe.pas
View File

@ -28,6 +28,7 @@ uses
Winapi.Windows, Winapi.Windows,
X2Log.Details.Registry, X2Log.Details.Registry,
X2Log.Intf.NamedPipe,
X2Log.Util.Stream; X2Log.Util.Stream;