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

PinConnection/UCommHub.pas

@@ -18 +18 @@
     function GetPin(Index: Integer): TCommPin;
     procedure Receive(Sender: TCommPin; Stream: TStream);
+    procedure SetStatus(Sender: TCommPin; Status: Integer);
   public
     constructor Create;
@@ -54 +55 @@
 end;
 
+procedure TCommHub.SetStatus(Sender: TCommPin; Status: Integer);
+var
+  I: Integer;
+begin
+  if FActive then begin
+    // Broadcast received packet to all other pins
+    for I := 0 to FPins.Count - 1 do
+      if Sender <> FPins[I] then
+        TCommPin(FPins[I]).Status := Status;
+  end;
+end;
+
 constructor TCommHub.Create;
 begin
@@ -68 +81 @@
 begin
   Pin.OnReceive := Receive;
+  Pin.OnSetSatus := SetStatus;
   Result := FPins.Add(Pin);
 end;
@@ -74 +88 @@
 begin
   Pin.OnReceive := nil;
+  Pin.OnSetSatus := nil;
   Result := TCommPin(FPins.Extract(Pin));
 end;
@@ -90 +105 @@
 begin
   Pin.OnReceive := Receive;
+  Pin.OnSetSatus := SetStatus;
   FPins.Insert(Index, Pin);
 end;
@@ -107 +123 @@
   Result := TCommPin.Create;
   Result.OnReceive := Receive;
+  Result.OnSetSatus := SetStatus;
   FPins.Add(Result);
 end;