Changeset 576 for PinConnection/CommPin.pas

Timestamp:

Jun 25, 2024, 12:00:00 PM (4 months ago)

Author:

chronos

Message:

• Modified: RemotePin in TCommPin made as property.

File:

• PinConnection/CommPin.pas (modified) (8 diffs)

PinConnection/CommPin.pas

@@ -26 +26 @@
     FFrameRxCount: Integer;
     FOnSetStatus: TOnSetStatus;
+    FRemotePin: TCommPin;
     FStatus: Integer;
     function GetConnected: Boolean;
+    procedure SetRemotePin(AValue: TCommPin);
     procedure SetStatus(AValue: Integer);
   protected
@@ -33 +35 @@
     procedure ReceiveStatus(AValue: Integer);
   public
-    RemotePin: TCommPin;
     Node: TCommNode;
     constructor Create;
@@ -41 +42 @@
     procedure Send(Stream: TListByte);
     procedure ResetCounters;
+    property RemotePin: TCommPin read FRemotePin write SetRemotePin;
     property Connected: Boolean read GetConnected;
     property OnLogData: TOnLogDataEvent read FOnLogData write FOnLogData;
@@ -63 +65 @@
   end;
 
+  { TCommNodeSimple }
+
+  TCommNodeSimple = class(TCommNode)
+  public
+    Pin: TCommPin;
+    constructor Create(AOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
 
 implementation
+
+{ TCommNodeSimple }
+
+constructor TCommNodeSimple.Create(AOwner: TComponent);
+begin
+  inherited;
+  Pin := TCommPin.Create;
+end;
+
+destructor TCommNodeSimple.Destroy;
+begin
+  Pin.Free;
+  inherited;
+end;
 
 { TCommNode }
@@ -78 +103 @@
 procedure TCommPin.Connect(Pin: TCommPin);
 begin
-  if Pin <> RemotePin then begin
-    Pin.Disconnect;
-    Disconnect;
-    Self.RemotePin := Pin;
-    if Assigned(Pin) then begin
-      Pin.RemotePin := Self;
-      RemotePin.ReceiveStatus(FStatus);
-    end;
-  end;
+  RemotePin := Pin;
 end;
 
@@ -97 +114 @@
 procedure TCommPin.Disconnect;
 begin
-  if Assigned(RemotePin) then begin
-    RemotePin.RemotePin := nil;
-    RemotePin := nil;
-  end;
+  RemotePin := nil;
 end;
 
@@ -106 +120 @@
 begin
   Result := Assigned(RemotePin);
+end;
+
+procedure TCommPin.SetRemotePin(AValue: TCommPin);
+begin
+  if FRemotePin = AValue then Exit;
+  if Assigned(FRemotePin) then
+    FRemotePin.FRemotePin := nil;
+  FRemotePin := AValue;
+  if Assigned(FRemotePin) then begin
+    FRemotePin.RemotePin := Self;
+    FRemotePin.ReceiveStatus(FStatus);
+  end;
 end;
 
@@ -116 +142 @@
 constructor TCommPin.Create;
 begin
-  RemotePin := nil;
+  FRemotePin := nil;
+  FStatus := 0;
+  ResetCounters;
 end;