Moved NamedPipe MessageHeader definition to it's own unit
This commit is contained in:
parent
c8bfc7289c
commit
e12d1fe497
@ -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}
|
||||
|
||||
|
@ -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>
|
||||
|
@ -46,6 +46,7 @@ uses
|
||||
|
||||
X2Log.Details.Default,
|
||||
X2Log.Details.Registry,
|
||||
X2Log.Intf.NamedPipe,
|
||||
X2Log.Util.Stream;
|
||||
|
||||
|
||||
|
37
X2Log.Intf.NamedPipe.pas
Normal file
37
X2Log.Intf.NamedPipe.pas
Normal 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.
|
@ -28,6 +28,7 @@ uses
|
||||
Winapi.Windows,
|
||||
|
||||
X2Log.Details.Registry,
|
||||
X2Log.Intf.NamedPipe,
|
||||
X2Log.Util.Stream;
|
||||
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user