TIdCommandHandlers

type TIdCommandHandlers = class(TOwnedCollection)

protected

  FBase: TIdComponent;

  FExceptionReply: TIdReply;

  FOnAfterCommandHandler: TIdAfterCommandHandlerEvent;

  FOnBeforeCommandHandler: TIdBeforeCommandHandlerEvent;

  FOnCommandHandlersException: TIdCommandHandlersExceptionEvent;

  FParseParamsDef: Boolean;

  FPerformReplies: Boolean;

  FReplyClass: TIdReplyClass;

  FReplyTexts: TIdReplies;

  procedure DoAfterCommandHandler();

  procedure DoBeforeCommandHandler();

  procedure DoOnCommandHandlersException();

  function GetItem();

  procedure SetItem();

public

  function Add;

  constructor Create();

  function HandleCommand(); virtual;

  property Base: TIdComponent; [r]

  property Items []: TIdCommandHandler; [rw]

  property ParseParamsDefault: Boolean; [rw]

  property PerformReplies: Boolean; [rw]

  property ReplyClass: TIdReplyClass; [r]

  property ReplyTexts: TIdReplies; [r]

  property OnAfterCommandHandler: TIdAfterCommandHandlerEvent; [rw]

  property OnBeforeCommandHandler: TIdBeforeCommandHandlerEvent; [rw]

  property OnCommandHandlersException: TIdCommandHandlersExceptionEvent; [rw]

end;

TIdCommandHandlers

TObject