TIdIRC

type TIdIRC = class(TIdCmdTCPClient)

protected

  FNickname: string;

  FAltNickname: string;

  FAltNickUsed: Boolean;

  FUsername: string;

  FRealName: string;

  FPassword: string;

  FUserMode: TIdIRCUserModes;

  FUserAway: Boolean;

  FReplies: TIdIRCReplies;

  FSenderNick: string;

  FSenderHost: string;

  FBans: TStrings;

  FExcepts: TStrings;

  FInvites: TStrings;

  FLinks: TStrings;

  FMotd: TStrings;

  FNames: TStrings;

  FWho: TStrings;

  FWhoIs: TStrings;

  FWhoWas: TStrings;

  FSvrList: TStrings;

  FUsers: TStrings;

  FOnSWelcome: TIdIRCServerMsgEvent;

  FOnYourHost: TIdIRCServerMsgEvent;

  FOnSCreated: TIdIRCServerMsgEvent;

  FOnMyInfo: TIdIRCMyInfoEvent;

  FOnBounce: TIdIRCBounceEvent;

  FOnISupport: TIdIRCISupportEvent;

  FOnSError: TIdIRCServerMsgEvent;

  FOnPingPong: TIdIRCPingPongEvent;

  FOnPrivMessage: TIdIRCPrivMessageEvent;

  FOnNotice: TIdIRCNoticeEvent;

  FOnRehash: TIdIRCRehashEvent;

  FOnSummon: TIdIRCSummonEvent;

  FOnWallops: TIdIRCWallopsEvent;

  FOnIsOnIRC: TIdIRCIsOnIRCEvent;

  FOnAway: TIdIRCAwayEvent;

  FOnJoin: TIdIRCJoinEvent;

  FOnPart: TIdIRCPartEvent;

  FOnTopic: TIdIRCTopicEvent;

  FOnKick: TIdIRCKickEvent;

  FOnMOTD: TIdIRCMOTDEvent;

  FOnTrace: TIdIRCServerTraceEvent;

  FOnOp: TIdIRCOpEvent;

  FOnInviting: TIdIRCInvitingEvent;

  FOnInvite: TIdIRCInviteEvent;

  FOnBANList: TIdIRCChanBANListEvent;

  FOnEXCList: TIdIRCChanEXCListEvent;

  FOnINVList: TIdIRCChanINVListEvent;

  FOnSvrList: TIdIRCServerListEvent;

  FOnNickList: TIdIRCNickListEvent;

  FOnSvrUsers: TIdIRCServerUsersEvent;

  FOnSvrStats: TIdIRCServerStatsEvent;

  FOnKnownSvrs: TIdIRCKnownServerNamesEvent;

  FOnAdminInfo: TIdIRCAdminInfoRecvEvent;

  FOnUserInfo: TIdIRCUserInfoRecvEvent;

  FOnWho: TIdIRCWhoEvent;

  FOnWhoIs: TIdIRCWhoIsEvent;

  FOnWhoWas: TIdIRCWhoWasEvent;

  FOnChanMode: TIdIRCChanModeEvent;

  FOnUserMode: TIdIRCUserModeEvent;

  FOnCTCPQry: TIdIRCCTCPQueryEvent;

  FOnCTCPRep: TIdIRCCTCPReplyEvent;

  FOnDCCChat: TIdIRCDCCChatEvent;

  FOnDCCSend: TIdIRCDCCSendEvent;

  FOnDCCResume: TIdIRCDCCResumeEvent;

  FOnDCCAccept: TIdIRCDCCAcceptEvent;

  FOnServerError: TIdIRCServerErrorEvent;

  FOnNickError: TIdIRCNickErrorEvent;

  FOnKillError: TIdIRCKillErrorEvent;

  FOnNickChange: TIdIRCNicknameChangedEvent;

  FOnKill: TIdIRCKillEvent;

  FOnQuit: TIdIRCQuitEvent;

  FOnSvrQuit: TIdIRCSvrQuitEvent;

  FOnSvrTime: TIdIRCSvrTimeEvent;

  FOnService: TIdIRCServiceEvent;

  FOnSvrVersion: TIdIRCSvrVersionEvent;

  FOnRaw: TIdIRCRawEvent;

  function GetUsedNickname;

  procedure SetNickname();

  procedure SetUsername();

  procedure SetIdIRCUserMode();

  procedure SetIdIRCReplies();

  function GetUserMode;

  procedure ParseDCC();

  procedure DoBeforeCmd();

  procedure DoReplyUnknownCommand(); override;

  procedure DoBounce();

  procedure CommandPRIVMSG();

  procedure CommandNOTICE();

  procedure CommandJOIN();

  procedure CommandPART();

  procedure CommandKICK();

  procedure CommandMODE();

  procedure CommandNICK();

  procedure CommandQUIT();

  procedure CommandSQUIT();

  procedure CommandINVITE();

  procedure CommandKILL();

  procedure CommandPING();

  procedure CommandERROR();

  procedure CommandWALLOPS();

  procedure CommandTOPIC();

  procedure CommandWELCOME();

  procedure CommandYOURHOST();

  procedure CommandCREATED();

  procedure CommandMYINFO();

  procedure CommandISUPPORT();

  procedure CommandBOUNCE();

  procedure CommandUSERHOST();

  procedure CommandISON();

  procedure CommandWHOIS();

  procedure CommandENDOFWHOIS();

  procedure CommandWHOWAS();

  procedure CommandENDOFWHOWAS();

  procedure CommandLISTSTART();

  procedure CommandLIST();

  procedure CommandLISTEND();

  procedure CommandAWAY();

  procedure CommandINVITING();

  procedure CommandSUMMONING();

  procedure CommandINVITELIST();

  procedure CommandENDOFINVITELIST();

  procedure CommandEXCEPTLIST();

  procedure CommandENDOFEXCEPTLIST();

  procedure CommandWHOREPLY();

  procedure CommandENDOFWHO();

  procedure CommandNAMEREPLY();

  procedure CommandENDOFNAMES();

  procedure CommandLINKS();

  procedure CommandENDOFLINKS();

  procedure CommandBANLIST();

  procedure CommandENDOFBANLIST();

  procedure CommandINFO();

  procedure CommandENDOFINFO();

  procedure CommandMOTD();

  procedure CommandENDOFMOTD();

  procedure CommandREHASHING();

  procedure CommandUSERSSTART();

  procedure CommandUSERS();

  procedure CommandENDOFUSERS();

  procedure CommandENDOFSTATS();

  procedure CommandSERVLIST();

  procedure CommandSERVLISTEND();

  procedure CommandTIME();

  procedure CommandSERVICE();

  procedure CommandVERSION();

  procedure CommandCHANMODE();

  procedure CommandOPER();

  procedure CommandNICKINUSE();

  procedure AssignIRCClientCommands;

  function GetCmdHandlerClass; override;

  procedure SetIOHandler(); override;

  procedure InitComponent; override;

public

  destructor Destroy; override;

  procedure Connect; override;

  procedure Disconnect();

  function IsChannel();

  function IsOp();

  function IsVoice();

  procedure Raw();

  procedure Say();

  procedure Notice();

  procedure Action();

  procedure CTCPQuery();

  procedure CTCPReply();

  procedure Join();

  procedure Part();

  procedure Kick();

  procedure SetChannelMode();

  procedure SetUserMode();

  procedure GetChannelTopic();

  procedure SetChannelTopic();

  procedure SetAway();

  procedure Op();

  procedure Deop();

  procedure Voice();

  procedure Devoice();

  procedure Ban();

  procedure Unban();

  procedure RegisterService();

  procedure ListChannelNicknames();

  procedure ListChannel();

  procedure Invite();

  procedure GetMessageOfTheDay();

  procedure GetNetworkStatus();

  procedure GetServerVersion();

  procedure GetServerStatus();

  procedure ListKnownServerNames();

  procedure QueryServerTime();

  procedure RequestServerConnect();

  procedure TraceServer();

  procedure GetAdminInfo();

  procedure GetServerInfo();

  procedure ListNetworkServices();

  procedure QueryService();

  procedure Who();

  procedure WhoIs();

  procedure WhoWas();

  procedure Kill();

  procedure Ping();

  procedure Pong();

  procedure Error();

  procedure ReHash;

  procedure Die;

  procedure Restart;

  procedure Summon();

  procedure ListServerUsers();

  procedure SayWALLOPS();

  procedure GetUserInfo();

  procedure GetUsersInfo();

  procedure IsOnIRC();

  procedure BecomeOp();

  procedure SQuit();

  procedure SetChannelLimit();

  procedure SetChannelKey();

  property Away: Boolean; [r]

  property SenderNick: string; [r]

  property SenderHost: string; [r]

published

  property Nickname: string; [rw]

  property AltNickname: string; [rw]

  property UsedNickname: string; [r]

  property Username: string; [rw]

  property RealName: string; [rw]

  property Password: string; [rw]

  property Port: TIdPort;

  property Replies: TIdIRCReplies; [rw]

  property UserMode: TIdIRCUserModes; [rw]

  property OnServerWelcome: TIdIRCServerMsgEvent; [rw]

  property OnYourHost: TIdIRCServerMsgEvent; [rw]

  property OnServerCreated: TIdIRCServerMsgEvent; [rw]

  property OnMyInfo: TIdIRCMyInfoEvent; [rw]

  property OnBounce: TIdIRCBounceEvent; [rw]

  property OnISupport: TIdIRCISupportEvent; [rw]

  property OnPingPong: TIdIRCPingPongEvent; [rw]

  property OnPrivateMessage: TIdIRCPrivMessageEvent; [rw]

  property OnNotice: TIdIRCNoticeEvent; [rw]

  property OnRehash: TIdIRCRehashEvent; [rw]

  property OnSummon: TIdIRCSummonEvent; [rw]

  property OnWallops: TIdIRCWallopsEvent; [rw]

  property OnIsOnIRC: TIdIRCIsOnIRCEvent; [rw]

  property OnAway: TIdIRCAwayEvent; [rw]

  property OnJoin: TIdIRCJoinEvent; [rw]

  property OnPart: TIdIRCPartEvent; [rw]

  property OnTopic: TIdIRCTopicEvent; [rw]

  property OnKick: TIdIRCKickEvent; [rw]

  property OnMOTD: TIdIRCMOTDEvent; [rw]

  property OnTrace: TIdIRCServerTraceEvent; [rw]

  property OnOp: TIdIRCOpEvent; [rw]

  property OnInviting: TIdIRCInvitingEvent; [rw]

  property OnInvite: TIdIRCInviteEvent; [rw]

  property OnBanListReceived: TIdIRCChanBANListEvent; [rw]

  property OnExceptionListReceived: TIdIRCChanEXCListEvent; [rw]

  property OnInvitationListReceived: TIdIRCChanINVListEvent; [rw]

  property OnServerListReceived: TIdIRCServerListEvent; [rw]

  property OnNicknamesListReceived: TIdIRCNickListEvent; [rw]

  property OnServerUsersListReceived: TIdIRCServerUsersEvent; [rw]

  property OnServerStatsReceived: TIdIRCServerStatsEvent; [rw]

  property OnKnownServersListReceived: TIdIRCKnownServerNamesEvent; [rw]

  property OnAdminInfoReceived: TIdIRCAdminInfoRecvEvent; [rw]

  property OnUserInfoReceived: TIdIRCUserInfoRecvEvent; [rw]

  property OnWho: TIdIRCWhoEvent; [rw]

  property OnWhoIs: TIdIRCWhoIsEvent; [rw]

  property OnWhoWas: TIdIRCWhoWasEvent; [rw]

  property OnChannelMode: TIdIRCChanModeEvent; [rw]

  property OnUserMode: TIdIRCUserModeEvent; [rw]

  property OnCTCPQuery: TIdIRCCTCPQueryEvent; [rw]

  property OnCTCPReply: TIdIRCCTCPReplyEvent; [rw]

  property OnDCCChat: TIdIRCDCCChatEvent; [rw]

  property OnDCCSend: TIdIRCDCCSendEvent; [rw]

  property OnDCCResume: TIdIRCDCCResumeEvent; [rw]

  property OnDCCAccept: TIdIRCDCCAcceptEvent; [rw]

  property OnServerError: TIdIRCServerErrorEvent; [rw]

  property OnNicknameError: TIdIRCNickErrorEvent; [rw]

  property OnKillError: TIdIRCKillErrorEvent; [rw]

  property OnNicknameChange: TIdIRCNicknameChangedEvent; [rw]

  property OnKill: TIdIRCKillEvent; [rw]

  property OnQuit: TIdIRCQuitEvent; [rw]

  property OnServerQuit: TIdIRCSvrQuitEvent; [rw]

  property OnServerTime: TIdIRCSvrTimeEvent; [rw]

  property OnService: TIdIRCServiceEvent; [rw]

  property OnServerVersion: TIdIRCSvrVersionEvent; [rw]

  property OnRaw: TIdIRCRawEvent; [rw]

end;

TIdIRC

TIdCmdTCPClient

TIdTCPClient

TIdTCPClientCustom

TIdTCPConnection

TIdComponent

TIdBaseComponent

TIdInitializerComponent

TObject