Changeset 413 for PinConnection/UCommTelnet.pas

Timestamp:

Aug 16, 2012, 12:59:53 PM (12 years ago)

Author:

chronos

Message:

• Modified: Classes using TCommPin class now inherits from TCommNode which inherits from TComponent. All TCommNodes are now registred as components in PinConnection group on component palette.
• Modified: TCommPin now have reference to parent TCommNode.

File:

• PinConnection/UCommTelnet.pas (modified) (4 diffs)

PinConnection/UCommTelnet.pas

@@ -67 +67 @@
   { TCommTelnet }
 
-  TCommTelnet = class
+  TCommTelnet = class(TCommNode)
   private
     FResponses: TListObject; // TListObject<TListByte>
@@ -92 +92 @@
     procedure SendSubCommand(OptionCode: TTelnetCommand; Request, Response: TListByte);
     procedure SendCommand(Code: TTelnetCode; Request, Response: TListByte);
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
     property Active: Boolean read FActive write SetActive;
@@ -399 +399 @@
 end;
 
-constructor TCommTelnet.Create;
-begin
+constructor TCommTelnet.Create(AOwner: TComponent);
+begin
+  inherited;
   FResponses := TListObject.Create;
   FCommandData := TBinarySerializer.Create;
@@ -407 +408 @@
   TelnetPin := TCommPin.Create;
   TelnetPin.OnReceive := TelnetDataReceive;
+  TelnetPin.Node := Self;
   RawPin := TCommPin.Create;
   RawPin.OnReceive := RawDataReceive;
+  RawPin.Node := Self;
   Options := TListObject.Create;
   Options.OwnsObjects := False;