Changeset 461 for PinConnection

Timestamp:

Nov 28, 2012, 8:18:44 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Connection iin TCommTCPServer.

File:

• PinConnection/UCommConnector.pas (modified) (3 diffs)

PinConnection/UCommConnector.pas

@@ -27 +27 @@
     procedure UpdateConnectionType(const ConnectionType: TConnectionType;
       const ATelnetComControl: Boolean);
+    procedure CommTCPServerConnect(Sender: TCommTCPServer; Pin: TCommPin);
   protected
     procedure SetActive(const AValue: Boolean);
@@ -130 +131 @@
     end;
     ctNetworkServer: begin
-      //TCommPin(CommHub.Pins.First).Connect(CommTCPServer.Pin);
+      CommTCPServer.OnConnect := CommTCPServerConnect;
       CommTCPServer.Active := FActive;
     end;
@@ -141 +142 @@
     end;
   end;
+end;
+
+procedure TDeviceConnector.CommTCPServerConnect(Sender: TCommTCPServer; Pin: TCommPin);
+begin
+  TCommPin(CommHub.Pins.First).Connect(Pin);
 end;