Changeset 288 for PinConnection/UCommPin.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/UCommPin.pas (modified) (7 diffs)

PinConnection/UCommPin.pas

@@ -14 +14 @@
   TOnLogDataEvent = procedure (Stream: TStream; Direction: TDataDiretion) of object;
   TOnStreamEvent = procedure (Sender: TCommPin; Stream: TStream) of object;
+  TOnSetStatus = procedure (Sender: TCommPin; Status: Integer) of object;
 
   { TCommPin }
@@ -25 +26 @@
     FFrameTxCount: Integer;
     FFrameRxCount: Integer;
+    FOnSetStatus: TOnSetStatus;
+    FStatus: Integer;
     function GetConnected: Boolean;
+    procedure SetStatus(AValue: Integer);
+  protected
+    procedure Receive(Stream: TStream);
+    procedure ReceiveStatus(AValue: Integer);
   public
     RemotePin: TCommPin;
@@ -33 +40 @@
     procedure Disconnect;
     procedure Send(Stream: TStream);
-    procedure Receive(Stream: TStream);
     procedure ResetCounters;
-    property OnReceive: TOnStreamEvent read FOnReceive write FOnReceive;
     property Connected: Boolean read GetConnected;
     property OnLogData: TOnLogDataEvent read FOnLogData write FOnLogData;
@@ -42 +47 @@
     property FrameTxCount: Integer read FFrameTxCount;
     property FrameRxCount: Integer read FFrameRxCount;
+    property Status: Integer read FStatus write SetStatus; // Used for general status bits such as parity bit
+    property OnReceive: TOnStreamEvent read FOnReceive write FOnReceive;
+    property OnSetSatus: TOnSetStatus read FOnSetStatus write FOnSetStatus;
   end;
 
@@ -55 +63 @@
     Disconnect;
     Self.RemotePin := Pin;
-    Pin.RemotePin := Self;
+    if Assigned(Pin) then begin
+      Pin.RemotePin := Self;
+      RemotePin.ReceiveStatus(FStatus);
+    end;
   end;
 end;
@@ -78 +89 @@
 end;
 
+procedure TCommPin.SetStatus(AValue: Integer);
+begin
+  FStatus := AValue;
+  if Assigned(RemotePin) then RemotePin.ReceiveStatus(AValue);
+end;
+
 constructor TCommPin.Create;
 begin
@@ -90 +107 @@
   Stream.Position := 0;
   if Assigned(FOnReceive) then FOnReceive(Self, Stream);
+end;
+
+procedure TCommPin.ReceiveStatus(AValue: Integer);
+begin
+  if Assigned(FOnSetStatus) then FOnSetStatus(Self, AValue);
 end;