Changeset 416 for PinConnection/UCommTCPClient.pas

Timestamp:

Aug 20, 2012, 2:45:39 PM (12 years ago)

Author:

chronos

Message:

• Added: TDeviceConnector in PinConnection package for generalized routing serial data to various TCommNode objects.

File:

• PinConnection/UCommTCPClient.pas (modified) (2 diffs)

PinConnection/UCommTCPClient.pas

@@ -35 +35 @@
     procedure ReceiveData(Sender: TCommPin; Stream: TListByte);
     procedure SetActive(const AValue: Boolean);
+  protected
+    procedure AssignTo(Dest: TPersistent); override;
   public
     Socket: TTCPBlockSocket;
@@ -91 +93 @@
     FreeAndNil(FReceiveThread);
   end;
+end;
+
+procedure TCommTCPClient.AssignTo(Dest: TPersistent);
+begin
+  if Dest is TCommTCPClient then begin
+    TCommTCPClient(Dest).Address := Address;
+    TCommTCPClient(Dest).Port := Port;
+  end
+  else inherited;
 end;