TIdTunnelMaster

type TIdTunnelMaster = class(TIdTCPServer)

protected

  fiMappedPort: Integer;

  fsMappedHost: string;

  Clients: TThreadList;

  fOnConnect: TIdServerThreadEvent;

  fOnDisconnect: TIdServerThreadEvent;

  fOnTransformRead: TIdServerThreadEvent;

  fOnTransformSend: TSendTrnEvent;

  fOnInterpretMsg: TSendMsgEvent;

  OnlyOneThread: TCriticalSection;

  StatisticsLocker: TCriticalSection;

  fbActive: Boolean;

  fbLockDestinationHost: Boolean;

  fbLockDestinationPort: Boolean;

  fLogger: TLogger;

  flConnectedSlaves: Integer;

  flConnectedServices: Integer;

  fNumberOfConnectionsValue: Integer;

  fNumberOfPacketsValue: Integer;

  fCompressionRatioValue: Integer;

  fCompressedBytes: Integer;

  fBytesRead: Integer;

  fBytesWrite: Integer;

  procedure ClientOperation();

  procedure SendMsg();

  procedure DisconectAllUsers;

  procedure DisconnectAllSubThreads();

  function GetNumSlaves;

  function GetNumServices;

  function GetClientThread();

  procedure SetActive(); override;

  procedure DoConnect(); override;

  procedure DoDisconnect(); override;

  function DoExecute(); override;

  procedure DoTransformRead(); virtual;

  procedure DoTransformSend(); virtual;

  procedure DoInterpretMsg(); virtual;

  procedure LogEvent();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure SetStatistics();

  procedure GetStatistics();

  property Active: Boolean; [rw]

  property Logger: TLogger; [rw]

  property NumSlaves: Integer; [r]

  property NumServices: Integer; [r]

published

  property MappedHost: string; [rw]

  property MappedPort: Integer; [rw]

  property LockDestinationHost: Boolean; [rw]

  property LockDestinationPort: Boolean; [rw]

  property OnConnect: TIdServerThreadEvent; [rw]

  property OnDisconnect: TIdServerThreadEvent; [rw]

  property OnTransformRead: TIdServerThreadEvent; [rw]

  property OnTransformSend: TSendTrnEvent; [rw]

  property OnInterpretMsg: TSendMsgEvent; [rw]

end;

TIdTunnelMaster

TIdTCPServer

TIdCustomTCPServer

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject