TmnIRCClient

type TmnIRCClient = class(TObject)

protected

  NickIndex: Integer;

  procedure SetProgress();

  procedure ProgresChanged;

  procedure Receive(); virtual;

  procedure Log();

  procedure SendRaw();

  procedure DoReceive(); virtual;

  procedure DoMsgReceived(); virtual;

  procedure DoMsgSent(); virtual;

  procedure DoNotice(); virtual;

  procedure DoUserJoined(); virtual;

  procedure DoUserLeft(); virtual;

  procedure DoUserParted(); virtual;

  procedure DoUserQuit(); virtual;

  procedure DoTopic(); virtual;

  procedure DoLog(); virtual;

  procedure DoConnected; virtual;

  procedure DoDisconnected; virtual;

  procedure DoProgressChanged; virtual;

  procedure DoUsersChanged(); virtual;

  procedure DoUserChanged(); virtual;

  procedure DoMyInfoChanged; virtual;

  procedure GetCurrentChannel(); virtual;

  function MapChannel();

  procedure Init; virtual;

  procedure CreateConnection;

  property Connection: TmnIRCConnection; [r]

public

  constructor Create;

  destructor Destroy; override;

  procedure Connect;

  procedure Disconnect;

  procedure ChannelSend(); deprecated ;

  procedure SendMsg();

  procedure Identify;

  procedure SetMode();

  procedure SetChannelMode();

  procedure SetNick();

  procedure SetTopic();

  procedure Join();

  procedure Notice();

  procedure Quit();

  property Progress: TIRCProgress; [r]

  property Receivers: TIRCReceivers; [r]

  property QueueSends: TIRCQueueRaws; [r]

  property UserCommands: TIRCUserCommands; [r]

  property Active: Boolean; [r]

  property Host: string; [rw]

  property Port: string; [rw]

  property UseSSL: Boolean; [rw]

  property Nicks: TStringList; [rw]

  property RealName: string; [rw]

  property Password: string; [rw]

  property Username: string; [rw]

  property Session: TIRCSession; [r]

  property MapChannels: TStringList; [rw]

  property UseUserCommands: Boolean; [rw]

  property ReconnectTime: Integer; [rw]

  property Auth: TIRCAuth; [rw]

end;

TmnIRCClient

TObject