1
0
mirror of synced 2024-11-08 14:19:16 +00:00

Moved NamedPipe MessageHeader definition to it's own unit

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

View File

@ -24,7 +24,8 @@ uses
X2Log.Details.Intf in '..\X2Log.Details.Intf.pas',
X2Log.Util.Stream in '..\X2Log.Util.Stream.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}

View File

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

View File

@ -46,6 +46,7 @@ uses
X2Log.Details.Default,
X2Log.Details.Registry,
X2Log.Intf.NamedPipe,
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.

View File

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