Changeset 461


Ignore:
Timestamp:
Nov 28, 2012, 8:18:44 AM (12 years ago)
Author:
chronos
Message:
  • Fixed: Connection iin TCommTCPServer.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • PinConnection/UCommConnector.pas

    r440 r461  
    2727    procedure UpdateConnectionType(const ConnectionType: TConnectionType;
    2828      const ATelnetComControl: Boolean);
     29    procedure CommTCPServerConnect(Sender: TCommTCPServer; Pin: TCommPin);
    2930  protected
    3031    procedure SetActive(const AValue: Boolean);
     
    130131    end;
    131132    ctNetworkServer: begin
    132       //TCommPin(CommHub.Pins.First).Connect(CommTCPServer.Pin);
     133      CommTCPServer.OnConnect := CommTCPServerConnect;
    133134      CommTCPServer.Active := FActive;
    134135    end;
     
    141142    end;
    142143  end;
     144end;
     145
     146procedure TDeviceConnector.CommTCPServerConnect(Sender: TCommTCPServer; Pin: TCommPin);
     147begin
     148  TCommPin(CommHub.Pins.First).Connect(Pin);
    143149end;
    144150
Note: See TracChangeset for help on using the changeset viewer.