xirc.hpp

Last change: 2008-02-03 This is the source code of KCeasy。

// Borland C++ Builder
// Copyright (c) 1995, 2002 by Borland Software Corporation
// All rights reserved

// (DO NOT EDIT: machine generated header) 'XiRC.pas' rev: 6.00

#ifndef XiRCHPP
#define XiRCHPP

#pragma delphiheader begin
#pragma option push -w-
#pragma option push -Vx
#include <Dialogs.hpp>	// Pascal unit
#include <Token.hpp>	// Pascal unit
#include <DateUtils.hpp>	// Pascal unit
#include <IdSocks.hpp>	// Pascal unit
#include <IdThread.hpp>	// Pascal unit
#include <IdTCPClient.hpp>	// Pascal unit
#include <IdWinsock.hpp>	// Pascal unit
#include <IdTCPConnection.hpp>	// Pascal unit
#include <IdException.hpp>	// Pascal unit
#include <IdIntercept.hpp>	// Pascal unit
#include <IdComponent.hpp>	// Pascal unit
#include <IdBaseComponent.hpp>	// Pascal unit
#include <Classes.hpp>	// Pascal unit
#include <SysUtils.hpp>	// Pascal unit
#include <Messages.hpp>	// Pascal unit
#include <Windows.hpp>	// Pascal unit
#include <SysInit.hpp>	// Pascal unit
#include <System.hpp>	// Pascal unit

//-- user supplied -----------------------------------------------------------

namespace Xirc
{
//-- type declarations -------------------------------------------------------
#pragma option push -b-
enum TConState { ssDisconnected, ssConnected, ssLoggedin };
#pragma option pop

class DELPHICLASS TSocketThread;
class DELPHICLASS TXiRC;
class DELPHICLASS TReplies;
class PASCALIMPLEMENTATION TReplies : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FFinger;
	AnsiString FVersion;
	AnsiString FUserInfo;
	AnsiString FClientInfo;
	
public:
	__fastcall TReplies(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property AnsiString Finger = {read=FFinger, write=FFinger};
	__property AnsiString Version = {read=FVersion, write=FVersion};
	__property AnsiString UserInfo = {read=FUserInfo, write=FUserInfo};
	__property AnsiString ClientInfo = {read=FClientInfo, write=FClientInfo};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TReplies(void) { }
	#pragma option pop
	
};


class DELPHICLASS TUser;
class PASCALIMPLEMENTATION TUser : public Classes::TPersistent 
{
	typedef Classes::TPersistent inherited;
	
private:
	AnsiString FNick;
	AnsiString FAltNick;
	AnsiString FPassword;
	AnsiString FUserName;
	AnsiString FEmail;
	
public:
	__fastcall TUser(void);
	virtual void __fastcall Assign(Classes::TPersistent* Source);
	
__published:
	__property AnsiString Nick = {read=FNick, write=FNick};
	__property AnsiString AltNick = {read=FAltNick, write=FAltNick};
	__property AnsiString Password = {read=FPassword, write=FPassword};
	__property AnsiString UserName = {read=FUserName, write=FUserName};
	__property AnsiString Email = {read=FEmail, write=FEmail};
public:
	#pragma option push -w-inl
	/* TPersistent.Destroy */ inline __fastcall virtual ~TUser(void) { }
	#pragma option pop
	
};


typedef void __fastcall (__closure *TServerEvent)(void);

typedef void __fastcall (__closure *TOnPrivMsg)(AnsiString Nick, AnsiString Address, AnsiString Dest, AnsiString Content);

typedef void __fastcall (__closure *TOnNotice)(AnsiString From, AnsiString Dest, AnsiString Text);

typedef void __fastcall (__closure *TOnSend)(AnsiString Data);

typedef void __fastcall (__closure *TOnServerMsg)(AnsiString Text);

typedef void __fastcall (__closure *TOnCTCPRequest)(AnsiString From, AnsiString Address, AnsiString CTCP, AnsiString Request);

typedef void __fastcall (__closure *TOnRawData)(AnsiString Text);

typedef void __fastcall (__closure *TOnPingPong)(AnsiString Data);

typedef void __fastcall (__closure *TOnNames)(AnsiString Channel, AnsiString Data);

typedef void __fastcall (__closure *TOnNamesEnd)(AnsiString Channel, AnsiString Data);

typedef void __fastcall (__closure *TOnError)(int ErrorNumber, AnsiString Errormsg);

typedef void __fastcall (__closure *TOnServerError)(AnsiString ErrorMsg);

typedef void __fastcall (__closure *TOnNumeric)(int CMD, AnsiString Content, AnsiString Nick, AnsiString Address);

typedef void __fastcall (__closure *TOnCommand)(AnsiString Command, AnsiString Nick, AnsiString Address, AnsiString Content);

typedef void __fastcall (__closure *TOnInfo)(AnsiString Info);

typedef void __fastcall (__closure *TOnJoin)(AnsiString Nick, AnsiString Address, AnsiString Channel);

typedef void __fastcall (__closure *TOnPart)(AnsiString Nick, AnsiString Address, AnsiString Channel, AnsiString PartMsg);

typedef void __fastcall (__closure *TOnQuit)(AnsiString Nick, AnsiString Address, AnsiString QuitMsg);

typedef void __fastcall (__closure *TOnKick)(AnsiString Nick, AnsiString Address, AnsiString Channel, AnsiString Person, AnsiString Reason);

typedef void __fastcall (__closure *TOnAction)(AnsiString Nick, AnsiString Address, AnsiString Channel, AnsiString Content);

typedef void __fastcall (__closure *TOnSound)(AnsiString Nick, AnsiString Address, AnsiString Channel, AnsiString FileName);

typedef void __fastcall (__closure *TOnDCC)(AnsiString Nick, AnsiString Address, AnsiString Data);

typedef void __fastcall (__closure *TOnChannelMode)(AnsiString Nick, AnsiString Channel, AnsiString Modes);

typedef void __fastcall (__closure *TOnUserMode)(AnsiString Modes);

typedef void __fastcall (__closure *TOnInvite)(AnsiString Nick, AnsiString Address, AnsiString Channel);

typedef void __fastcall (__closure *TOnNick)(AnsiString OldNick, AnsiString Address, AnsiString NewNick);

typedef void __fastcall (__closure *TOnMOTD)(AnsiString Content);

typedef void __fastcall (__closure *TOnMOTDEnd)(AnsiString Content);

typedef void __fastcall (__closure *TOnLoggedIn)(AnsiString ServerName, AnsiString NickName);

typedef void __fastcall (__closure *TOnKill)(AnsiString Oper, AnsiString Victium, AnsiString Reason);

typedef void __fastcall (__closure *TOnWho)(AnsiString Data);

typedef void __fastcall (__closure *TOnWhoIS)(AnsiString Data);

typedef void __fastcall (__closure *TOnTopic)(AnsiString Channel, AnsiString Title);

typedef void __fastcall (__closure *TOnTopicInfo)(AnsiString channel, AnsiString Who, System::TDateTime When);

typedef void __fastcall (__closure *TOnTopicChange)(AnsiString channel, AnsiString Who, AnsiString Topic);

typedef void __fastcall (__closure *TChanModeIs)(AnsiString Channel, AnsiString Modes);

class PASCALIMPLEMENTATION TXiRC : public Classes::TComponent 
{
	typedef Classes::TComponent inherited;
	
private:
	AnsiString FHost;
	int FPort;
	TReplies* FReplies;
	TUser* FUser;
	Idtcpclient::TIdTCPClient* FSocket;
	TServerEvent SocketClose;
	TServerEvent SocketOpen;
	TOnPrivMsg FPrivMsg;
	TOnNotice FNotice;
	TOnSend FOnSend;
	TOnServerMsg FServerMsg;
	TOnCTCPRequest FCTCP;
	TOnRawData FRawData;
	TOnPingPong FPingPong;
	TOnNames FOnNames;
	TOnNamesEnd FOnNamesEnd;
	TOnError FOnError;
	TOnServerError FOnServerError;
	TOnNumeric FNumeric;
	TOnCommand FOnCommand;
	TOnInfo FOnInfo;
	TOnJoin FOnJoin;