TIdCommandHandler

type TIdCommandHandler = class(TCollectionItem)

protected

  FCmdDelimiter: char;

  FCommand: string;

  FData: TObject;

  FDescription: TStrings;

  FDisconnect: Boolean;

  FEnabled: Boolean;

  FExceptionReply: TIdReply;

  FHelpSuperScript: string;

  FHelpVisible: Boolean;

  FName: string;

  FNormalReply: TIdReply;

  FOnCommand: TIdCommandEvent;

  FParamDelimiter: char;

  FParseParams: Boolean;

  FReplyClass: TIdReplyClass;

  FResponse: TStrings;

  FTag: Integer;

  function GetDisplayName; override;

  procedure SetDescription();

  procedure SetExceptionReply();

  procedure SetNormalReply();

  procedure SetResponse();

public

  function Check(); virtual;

  procedure DoCommand(); virtual;

  procedure DoParseParams(); virtual;

  constructor Create(); override;

  destructor Destroy; override;

  function NameIs();

  property Data: TObject; [rw]

published

  property CmdDelimiter: char; [rw]

  property Command: string; [rw]

  property Description: TStrings; [rw]

  property Disconnect: Boolean; [rw]

  property Enabled: Boolean; [rw]

  property ExceptionReply: TIdReply; [rw]

  property Name: string; [rw]

  property NormalReply: TIdReply; [rw]

  property ParamDelimiter: char; [rw]

  property ParseParams: Boolean; [rw]

  property Response: TStrings; [rw]

  property Tag: Integer; [rw]

  property HelpSuperScript: string; [rw]

  property HelpVisible: Boolean; [rw]

  property OnCommand: TIdCommandEvent; [rw]

end;

TIdCommandHandler

TObject