TIdMappedPortTCP

type TIdMappedPortTCP = class(TIdCustomTCPServer)

protected

  FMappedHost: string;

  FMappedPort: TIdPort;

  FOnBeforeConnect: TIdServerThreadEvent;

  FOnOutboundConnect: TIdServerThreadEvent;

  FOnOutboundData: TIdServerThreadEvent;

  FOnOutboundDisConnect: TIdServerThreadEvent;

  procedure ContextCreated(); override;

  procedure DoBeforeConnect(); virtual;

  procedure DoConnect(); override;

  function DoExecute(); override;

  procedure DoDisconnect(); override;

  procedure DoLocalClientConnect(); virtual;

  procedure DoLocalClientData(); virtual;

  procedure DoOutboundClientConnect(); virtual;

  procedure DoOutboundClientData(); virtual;

  procedure DoOutboundDisconnect(); virtual;

  function GetOnConnect;

  function GetOnExecute;

  procedure SetOnConnect();

  procedure SetOnExecute();

  function GetOnDisconnect;

  procedure SetOnDisconnect();

  procedure InitComponent; override;

published

  property OnBeforeConnect: TIdServerThreadEvent; [rw]

  property MappedHost: string; [rw]

  property MappedPort: TIdPort; [rw]

  property OnConnect: TIdServerThreadEvent; [rw]

  property OnOutboundConnect: TIdServerThreadEvent; [rw]

  property OnExecute: TIdServerThreadEvent; [rw]

  property OnOutboundData: TIdServerThreadEvent; [rw]

  property OnDisconnect: TIdServerThreadEvent; [rw]

  property OnOutboundDisconnect: TIdServerThreadEvent; [rw]

end;

TIdMappedPortTCP

TIdCustomTCPServer

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject