Changeset 247 for PinConnection/UCommProtocol.pas

Timestamp:

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

Author:

george

Message:

• Fixed: Various minor bugs and enhancements.

File:

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

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 }