Changeset 288 for PinConnection/UCommFrame.pas

Timestamp:

Oct 24, 2011, 9:01:08 AM (13 years ago)

Author:

george

Message:

• Added: TCommPin now support state number forwarding. State value is designed mainly for simulating parity bit and possibly other state bits.

File:

• PinConnection/UCommFrame.pas (modified) (4 diffs)

PinConnection/UCommFrame.pas

@@ -19 +19 @@
   TFrameState = (fsOutside, fsStart, fsInside, fsEnd);
 
+  { TCommFrame }
+
   TCommFrame = class
   private
@@ -32 +34 @@
     PacketLoss: Real;
     procedure RawDataReceive(Sender: TCommPin; Stream: TStream);
+    procedure RawSetStatus(Sender: TCommPin; Status: Integer);
     procedure FrameDataReceive(Sender: TCommPin; Stream: TStream);
+    procedure FrameSetStatus(Sender: TCommPin; Status: Integer);
     constructor Create;
     destructor Destroy; override;
@@ -103 +107 @@
 end;
 
+procedure TCommFrame.FrameSetStatus(Sender: TCommPin; Status: Integer);
+begin
+  RawDataPin.Status := Status;
+end;
+
 procedure TCommFrame.RawDataReceive(Sender: TCommPin; Stream: TStream);
 var
@@ -148 +157 @@
 end;
 
+procedure TCommFrame.RawSetStatus(Sender: TCommPin; Status: Integer);
+begin
+  FrameDataPin.Status := Status;
+end;
+
 function TCommFrame.GetStreamCRC8(Stream: TStream): Byte;
 var