Changeset 413 for PinConnection/UCommTCPServer.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/UCommTCPServer.pas (modified) (4 diffs)

PinConnection/UCommTCPServer.pas

@@ -43 +43 @@
   { TCommTCPServer }
 
-  TCommTCPServer = class
+  TCommTCPServer = class(TCommNode)
   private
     FActive: Boolean;
@@ -59 +59 @@
     property OnConnect: TSocketConnectEvent read FOnConnect write FOnConnect;
     property OnDisconnect: TSocketConnectEvent read FOnDisconnect write FOnDisconnect;
-    constructor Create;
+    constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
   end;
@@ -85 +85 @@
   Pin := TCommPin.Create;
   Pin.OnReceive := ReceiveData;
+  Pin.Node := Server;
 end;
 
@@ -187 +188 @@
 end;
 
-constructor TCommTCPServer.Create;
-begin
-  inherited Create;
+constructor TCommTCPServer.Create(AOwner: TComponent);
+begin
+  inherited;
   Sessions := TListObject.Create;
   Socket := TTCPBlockSocket.Create;