Changeset 416 for PinConnection/UCommTelnet.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/UCommTelnet.pas (modified) (6 diffs)

PinConnection/UCommTelnet.pas

@@ -57 +57 @@
     ServerChecked: Boolean;
     SupportedByServer: Boolean;
+    procedure Assign(Source: TTelnetOption); virtual;
     function CheckOption: Boolean;
     procedure SendCommand(Request, Response: TListByte);
@@ -78 +79 @@
     procedure ReadResponse(Response: TListByte);
     function ResponseCount: Integer;
+  protected
+    procedure AssignTo(Dest: TPersistent); override;
   public
     Options: TListObject;
@@ -92 +95 @@
     procedure SendSubCommand(OptionCode: TTelnetCommand; Request, Response: TListByte);
     procedure SendCommand(Code: TTelnetCode; Request, Response: TListByte);
+    procedure Purge;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -114 +118 @@
   if FActive = AValue then Exit;
   FActive := AValue;
+end;
+
+procedure TTelnetOption.Assign(Source: TTelnetOption);
+begin
+  SupportedByServer := Source.SupportedByServer;
+  ServerChecked := Source.ServerChecked;
+  Code := Source.Code;
+  FOnRequest := Source.FOnRequest;
+  Active := Source.FActive;
 end;
 
@@ -306 +319 @@
 end;
 
+procedure TCommTelnet.AssignTo(Dest: TPersistent);
+var
+  I: Integer;
+begin
+  if Dest is TCommTelnet then begin
+    TCommTelnet(Dest).Timeout := Timeout;
+    TCommTelnet(Dest).PortType := PortType;
+    TCommTelnet(Dest).ErrorCount := ErrorCount;
+    TCommTelnet(Dest).OptionsNegotationEnable := OptionsNegotationEnable;
+    for I := 0 to Options.Count - 1 do begin
+      TTelnetOption(TCommTelnet(Dest).Options[I]).Assign(TTelnetOption(Options[I]));
+      TTelnetOption(TCommTelnet(Dest).Options[I]).Telnet := TCommTelnet(Dest);
+    end;
+  end else inherited;
+end;
+
 procedure TCommTelnet.Register(Option: TTelnetOption);
 begin
@@ -399 +428 @@
 end;
 
+procedure TCommTelnet.Purge;
+begin
+  FState := tsNormal;
+  FResponses.Clear;
+end;
+
 constructor TCommTelnet.Create(AOwner: TComponent);
 begin