Changeset 247 for PinConnection

Timestamp:

May 24, 2011, 12:36:12 PM (13 years ago)

Author:

george

Message:

• Fixed: Various minor bugs and enhancements.

Location:

PinConnection

Files:

• UCommPin.pas (modified) (1 diff)
• UCommProtocol.pas (modified) (2 diffs)

PinConnection/UCommPin.pas

@@ -51 +51 @@
 procedure TCommPin.Connect(Pin: TCommPin);
 begin
-  if Assigned(Pin) then Disconnect;
-  Self.RemotePin := Pin;
-  Pin.RemotePin := Self;
+  if Pin <> RemotePin then begin
+    Pin.Disconnect;
+    Disconnect;
+    Self.RemotePin := Pin;
+    Pin.RemotePin := Self;
+  end;
 end;
 

PinConnection/UCommProtocol.pas

@@ -101 +101 @@
       ResponseParameters: TVarBlockIndexed = nil;
       RequestParameters: TVarBlockIndexed = nil; ARaiseError: boolean = True);
-    constructor Create;
+    constructor Create; virtual;
     destructor Destroy; override;
+    procedure Assign(Source: TCommProtocol); virtual;
     property OnAfterRequest: TAfterRequest read FOnAfterRequest write FOnAfterRequest;
     property OnCommand: TAfterRequest read FOnCommand write FOnCommand;
@@ -360 +361 @@
 end;
 
+procedure TCommProtocol.Assign(Source: TCommProtocol);
+begin
+  LastCommandResponseTime := Source.LastCommandResponseTime;
+  LastLatency := Source.LastLatency;
+  MaxSequenceNumber := Source.MaxSequenceNumber;
+  MaxSessionCount := Source.MaxSessionCount;
+  RemoteBufferSize := Source.RemoteBufferSize;
+  RemoteBufferUsed := Source.RemoteBufferUsed;
+  WrongSequenceCount := Source.WrongSequenceCount;
+  RetransmitTimeout := Source.RetransmitTimeout;
+  RetransmitRepeatCount := Source.RetransmitRepeatCount;
+  RetransmitTotalCount := Source.RetransmitTotalCount;
+  Pin.Connect(Source.Pin.RemotePin);
+  OnCommand := Source.OnCommand;
+  OnAfterRequest := Source.OnAfterRequest;
+  OnDebugLog := Source.OnDebugLog;
+  Active := Source.Active;
+end;
+
 { TDeviceProtocolSession }