Moved NamedPipe MessageHeader definition to it's own unit

Test/X2LogTest.dpr

@@ -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}
 

Test/X2LogTest.dproj

@@ -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>

X2Log.Client.NamedPipe.pas

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

X2Log.Intf.NamedPipe.pas

@@ -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.

X2Log.Observer.NamedPipe.pas

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