xirc.hpp

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

	TOnPart FOnPart;
	TOnQuit FOnQuit;
	TOnKick FOnKick;
	TOnAction FOnAction;
	TOnSound FOnSound;
	TOnDCC FOnDCC;
	TOnChannelMode FOnChannelMode;
	TOnUserMode FOnUserMode;
	TOnInvite FOnInvite;
	TOnNick FOnNick;
	TOnMOTD FOnMOTD;
	TOnMOTDEnd FOnMOTDEnd;
	TOnLoggedIn FOnLoggedIn;
	TConState FConState;
	TOnKill FOnKill;
	TOnWho FOnWho;
	TOnWhoIS FOnWhoIS;
	TOnTopic FOnTopic;
	TOnTopicInfo FOnTopicInfo;
	TOnTopicChange FOnTopicChange;
	TChanModeIs FChanModeIs;
	AnsiString Command;
	bool FisAltNick;
	Idintercept::TIdConnectionIntercept* __fastcall GetIntercept(void);
	bool __fastcall GetInterceptEnable(void);
	Idsocks::TSocksInfo* __fastcall GetSocksInfo(void);
	int __fastcall MatchCommand(void);
	Classes::TStrings* __fastcall SplitStrings(const AnsiString str, const AnsiString separator, Classes::TStrings* Strings);
	void __fastcall SetReplies(TReplies* Value);
	void __fastcall SetUser(TUser* Value);
	void __fastcall OnConnected(System::TObject* Sender);
	void __fastcall OnDisconnected(System::TObject* Sender);
	void __fastcall ProcessNumeric(AnsiString Data);
	void __fastcall ProcessCommand(AnsiString Data);
	void __fastcall ProcessPrivMsg(AnsiString Nick, AnsiString Address, AnsiString Content);
	void __fastcall ProcessNotice(AnsiString Nick, AnsiString Address, AnsiString Content);
	void __fastcall ProcessJoin(AnsiString Nick, AnsiString Address, AnsiString Content);
	void __fastcall ProcessPart(AnsiString Nick, AnsiString Address, AnsiString Content);
	void __fastcall ProcessKick(AnsiString Nick, AnsiString Address, AnsiString Content);
	void __fastcall ProcessMode(AnsiString Nick, AnsiString Address, AnsiString Content);
	void __fastcall ProcessQuit(AnsiString Nick, AnsiString Address, AnsiString Content);
	void __fastcall ProcessCTCP(AnsiString Nick, AnsiString Address, AnsiString Dest, AnsiString CTCP, AnsiString Request);
	void __fastcall ProcessNick(AnsiString Nick, AnsiString Address, AnsiString Content);
	void __fastcall ProcessInvite(AnsiString Nick, AnsiString Address, AnsiString Content);
	void __fastcall ProcessKill(AnsiString Nick, AnsiString Address, AnsiString Content);
	void __fastcall ProcessNames(AnsiString RawData);
	void __fastcall ProcessNamesEnd(AnsiString Data);
	void __fastcall ProcessTopic(AnsiString Data);
	void __fastcall ProcessTopicInfo(AnsiString Data);
	void __fastcall ProcessTopicChange(AnsiString Nick, AnsiString Data);
	void __fastcall ProcessIdleTime(AnsiString Data);
	void __fastcall ProcessChannelModeIs(AnsiString Data);
	void __fastcall SetConState(const TConState Value);
	void __fastcall SetIntercept(Idintercept::TIdConnectionIntercept* AValue);
	void __fastcall SetInterceptEnabled(bool AValue);
	void __fastcall SetSocksInfo(Idsocks::TSocksInfo* AValue);
	
public:
	AnsiString FServer;
	AnsiString CurrentNick;
	AnsiString CurrentServer;
	AnsiString __fastcall GetLocalIP();
	unsigned __fastcall GetLongIP(void);
	void __fastcall Connect(void);
	void __fastcall Disconnect(void);
	__fastcall virtual TXiRC(Classes::TComponent* AOwner);
	__fastcall virtual ~TXiRC(void);
	void __fastcall Raw(AnsiString Command);
	void __fastcall Notice(AnsiString User, AnsiString Text);
	void __fastcall Say(AnsiString Dest, AnsiString Text);
	void __fastcall Quit(AnsiString QuitMsg);
	void __fastcall Join(AnsiString Channel);
	void __fastcall Part(AnsiString Channel, AnsiString Reason);
	void __fastcall SetAway(AnsiString Msg);
	void __fastcall SetBack(void);
	void __fastcall CTCPQuery(AnsiString Target, AnsiString Command, AnsiString Parameters);
	void __fastcall GetTopic(AnsiString Channel);
	void __fastcall SetTopic(AnsiString Channel, AnsiString Topic);
	void __fastcall OnThreadException(System::TObject* Sender, Sysutils::Exception* E);
	__property TConState ConState = {read=FConState, nodefault};
	void __fastcall SendDccChat(AnsiString Nick, int Port);
	void __fastcall SendDCCMsg(AnsiString Nick, AnsiString Filename, __int64 Size, int Port, bool Turbo);
	void __fastcall SendDCCAccept(AnsiString Nick, AnsiString Filename, int Port, __int64 Size);
	void __fastcall SendDccResume(AnsiString Nick, AnsiString Filename, int Port, __int64 Size);
	
__published:
	__property AnsiString Host = {read=FHost, write=FHost};
	__property int Port = {read=FPort, write=FPort, nodefault};
	__property TReplies* CTCPInfo = {read=FReplies, write=SetReplies};
	__property TUser* UserInfo = {read=FUser, write=SetUser};
	__property Idintercept::TIdConnectionIntercept* Intercept = {read=GetIntercept, write=SetIntercept};
	__property bool InterceptEnabled = {read=GetInterceptEnable, write=SetInterceptEnabled, default=0};
	__property Idsocks::TSocksInfo* SocksInfo = {read=GetSocksInfo, write=SetSocksInfo};
	__property TServerEvent OnConnect = {read=SocketOpen, write=SocketOpen};
	__property TServerEvent OnDisConnect = {read=SocketClose, write=SocketClose};
	__property TOnRawData OnRaw = {read=FRawData, write=FRawData};
	__property TOnPrivMsg OnPrivMsg = {read=FPrivMsg, write=FPrivMsg};
	__property TOnNotice OnNotice = {read=FNotice, write=FNotice};
	__property TOnServerMsg OnServerMsg = {read=FServerMsg, write=FServerMsg};
	__property TOnSend OnSend = {read=FOnSend, write=FOnSend};
	__property TOnCTCPRequest OnCTCPRequest = {read=FCTCP, write=FCTCP};
	__property TOnPingPong OnPing = {read=FPingPong, write=FPingPong};
	__property TOnNames OnNames = {read=FOnNames, write=FOnNames};
	__property TOnNamesEnd OnNamesEnd = {read=FOnNamesEnd, write=FOnNamesEnd};
	__property TOnError OnError = {read=FOnError, write=FOnError};
	__property TOnNumeric OnNumeric = {read=FNumeric, write=FNumeric};
	__property TOnCommand OnCommand = {read=FOnCommand, write=FOnCommand};
	__property TOnInfo OnInfo = {read=FOnInfo, write=FOnInfo};
	__property TOnJoin OnJoin = {read=FOnJoin, write=FOnJoin};
	__property TOnPart OnPart = {read=FOnPart, write=FOnPart};
	__property TOnQuit OnQuit = {read=FOnQuit, write=FOnQuit};
	__property TOnKick OnKick = {read=FOnKick, write=FOnKick};
	__property TOnAction OnAction = {read=FOnAction, write=FOnAction};
	__property TOnSound OnSound = {read=FOnSound, write=FOnSound};
	__property TOnDCC OnDCC = {read=FOnDCC, write=FOnDCC};
	__property TOnChannelMode OnChannelMode = {read=FOnChannelMode, write=FOnChannelMode};
	__property TOnUserMode OnUserMode = {read=FOnUserMode, write=FOnUserMode};
	__property TOnInvite OnInvite = {read=FOnInvite, write=FOnInvite};
	__property TOnNick OnNick = {read=FOnNick, write=FOnNick};
	__property TOnMOTD OnMOTD = {read=FOnMOTD, write=FOnMOTD};
	__property TOnMOTDEnd OnMOTDEnd = {read=FOnMOTDEnd, write=FOnMOTDEnd};
	__property TOnLoggedIn OnLoggedIn = {read=FOnLoggedIn, write=FOnLoggedIn};
	__property TOnKill OnKill = {read=FOnKill, write=FOnKill};
	__property TOnWho OnWho = {read=FOnWho, write=FOnWho};
	__property TOnWhoIS OnWhoIS = {read=FOnWhoIS, write=FOnWhoIS};
	__property TOnTopic OnTopic = {read=FOnTopic, write=FOnTopic};
	__property TOnTopicInfo OnTopicInfo = {read=FOnTopicInfo, write=FOnTopicInfo};
	__property TOnTopicChange OnTopicChange = {read=FOnTopicChange, write=FOnTopicChange};
	__property TChanModeIs OnChanModeIs = {read=FChanModeIs, write=FChanModeIs};
	__property TOnServerError OnServerError = {read=FOnServerError, write=FOnServerError};
};


class PASCALIMPLEMENTATION TSocketThread : public Classes::TThread 
{
	typedef Classes::TThread inherited;
	
private:
	void __fastcall HandleData(void);
	void __fastcall GetCommand(AnsiString FData);
	
protected:
	virtual void __fastcall Execute(void);
	
public:
	TXiRC* Parent;
	AnsiString RawData;
	AnsiString Command;
public:
	#pragma option push -w-inl
	/* TThread.Create */ inline __fastcall TSocketThread(bool CreateSuspended) : Classes::TThread(CreateSuspended) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TThread.Destroy */ inline __fastcall virtual ~TSocketThread(void) { }
	#pragma option pop
	
};


class DELPHICLASS TConnectThread;
class PASCALIMPLEMENTATION TConnectThread : public Classes::TThread 
{
	typedef Classes::TThread inherited;
	
protected:
	virtual void __fastcall Execute(void);
	
public:
	TXiRC* Parent;
public:
	#pragma option push -w-inl
	/* TThread.Create */ inline __fastcall TConnectThread(bool CreateSuspended) : Classes::TThread(CreateSuspended) { }
	#pragma option pop
	#pragma option push -w-inl
	/* TThread.Destroy */ inline __fastcall virtual ~TConnectThread(void) { }
	#pragma option pop
	
};


typedef AnsiString XiRC__6[18];

//-- var, const, procedure ---------------------------------------------------
static const char LF = '\xa';
static const char CR = '\xd';
#define EOL "\r\n"
extern PACKAGE AnsiString Commands[18];
extern PACKAGE AnsiString CurrentServer;
extern PACKAGE void __fastcall Register(void);

}	/* namespace Xirc */
using namespace Xirc;
#pragma option pop	// -w-
#pragma option pop	// -Vx

#pragma delphiheader end.
//-- end unit ----------------------------------------------------------------
#endif	// XiRC