TIdCmdTCPServer

type TIdCmdTCPServer = class(TIdTCPServer)

protected

  FCommandHandlers: TIdCommandHandlers;

  FCommandHandlersInitialized: Boolean;

  FExceptionReply: TIdReply;

  FHelpReply: TIdReply;

  FGreeting: TIdReply;

  FMaxConnectionReply: TIdReply;

  FOnAfterCommandHandler: TIdCmdTCPServerAfterCommandHandlerEvent;

  FOnBeforeCommandHandler: TIdCmdTCPServerBeforeCommandHandlerEvent;

  FReplyClass: TIdReplyClass;

  FReplyTexts: TIdReplies;

  FReplyUnknownCommand: TIdReply;

  procedure CheckOkToBeActive; override;

  function CreateExceptionReply; virtual;

  function CreateGreeting; virtual;

  function CreateHelpReply; virtual;

  function CreateMaxConnectionReply; virtual;

  function CreateReplyUnknownCommand; virtual;

  procedure DoAfterCommandHandler();

  procedure DoBeforeCommandHandler();

  procedure DoConnect(); override;

  function DoExecute(); override;

  procedure DoMaxConnectionsExceeded(); override;

  procedure DoReplyUnknownCommand(); virtual;

  function GetExceptionReply;

  function GetGreeting;

  function GetHelpReply;

  function GetMaxConnectionReply;

  function GetRepliesClass; virtual;

  function GetReplyClass; virtual;

  function GetReplyUnknownCommand;

  procedure InitializeCommandHandlers; virtual;

  procedure InitComponent; override;

  function ReadCommandLine(); virtual;

  procedure Startup; override;

  procedure SetCommandHandlers();

  procedure SetExceptionReply();

  procedure SetGreeting();

  procedure SetHelpReply();

  procedure SetMaxConnectionReply();

  procedure SetReplyUnknownCommand();

  procedure SetReplyTexts();

public

  destructor Destroy; override;

published

  property CommandHandlers: TIdCommandHandlers; [rw]

  property ExceptionReply: TIdReply; [rw]

  property Greeting: TIdReply; [rw]

  property HelpReply: TIdReply; [rw]

  property MaxConnectionReply: TIdReply; [rw]

  property ReplyTexts: TIdReplies; [rw]

  property ReplyUnknownCommand: TIdReply; [rw]

  property OnAfterCommandHandler: TIdCmdTCPServerAfterCommandHandlerEvent; [rw]

  property OnBeforeCommandHandler: TIdCmdTCPServerBeforeCommandHandlerEvent; [rw]

end;

TIdCmdTCPServer

TIdTCPServer

TIdCustomTCPServer

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject