Changeset 272 for PinConnection/UCommHub.pas

Timestamp:

Aug 30, 2011, 3:50:15 PM (13 years ago)

Author:

george

Message:

• Fixed: Do not send or receive data for comm classes if not in active state.
• Fixed: TCommProtocol now raise ENotActive exception on try to send data while in inactive state.
• Fixed: Reseting event after data received in TCommThread class.

File:

• PinConnection/UCommHub.pas (modified) (3 diffs)

PinConnection/UCommHub.pas

@@ -14 +14 @@
   TCommHub = class
   private
+    FActive: Boolean;
     FPins: TObjectList;
     function GetPin(Index: Integer): TCommPin;
@@ -29 +30 @@
     function AddNew: TCommPin;
     property Pins[Index: Integer]: TCommPin read GetPin;
+    property Active: Boolean read FActive write FActive;
   end;
 
@@ -44 +46 @@
   I: Integer;
 begin
-  // Broadcast received packet to all other pins
-  for I := 0 to FPins.Count - 1 do
-    if Sender <> FPins[I] then
-      TCommPin(FPins[I]).Send(Stream);
+  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]).Send(Stream);
+  end;
 end;