chatsvr.h

网络编程的一些实例

//---------------------------------------------------------------------------
#ifndef chatsvrH
#define chatsvrH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <Menus.hpp>
#include <ScktComp.hpp>
#include <ExtCtrls.hpp>
//---------------------------------------------------------------------------
enum ServerStatus {SS_NOT_RUNNING, SS_RUNNING};
enum LogEntryType {LET_WARNING, LET_ERROR, LET_SIGNON, LET_SIGNOFF};
enum ServerNotification {SN_LOGON, SN_LOGOFF, SN_PUBLIC_MSG};
#define CHAT_SERVER_PORT 5790
//---------------------------------------------------------------------------
class TAWChatServerForm : public TForm
{
__published:	// IDE-managed Components
	TServerSocket *MainServerSocket;
	TStatusBar *AWChatServerStatusBar;
	TMainMenu *MainMenu1;
	TMenuItem *File1;
	TMenuItem *Exit1;
	TMenuItem *StartStopServerMenuItem;
	TListView *ConnectionsListView;
	TSplitter *Splitter1;
	TListView *LogEntryListView;
	void __fastcall StartStopServerMenuItemClick(TObject *Sender);
	void __fastcall MainServerSocketClientConnect(TObject *Sender,
		  TCustomWinSocket *Socket);
	void __fastcall MainServerSocketClientDisconnect(TObject *Sender,
		  TCustomWinSocket *Socket);
	void __fastcall MainServerSocketClientError(TObject *Sender,
		  TCustomWinSocket *Socket, TErrorEvent ErrorEvent,
		  int &ErrorCode);
	void __fastcall MainServerSocketClientRead(TObject *Sender,
		  TCustomWinSocket *Socket);

	void __fastcall Exit1Click(TObject *Sender);
private:	// User declarations
	ServerStatus CurrentServerStatus;

	void __fastcall IdleEventResponse(TObject *Sender, bool &Done);
	void SetServerStatus(ServerStatus _serverstatus);
	void AddConnectionToListView(TCustomWinSocket *ClientSocket);
	void RemoveConnectionFromListView(TCustomWinSocket *Socket);
	void UpdateStatusBar(bool DecUse = false);
	void AddLogEntry(LogEntryType let, AnsiString EntryText);
	void SetUserBySocket(TCustomWinSocket *Socket, const AnsiString &UserNickName);
	void GetUserBySocket(TCustomWinSocket *Socket, AnsiString &UserNickName);
	TListItem * ListItemBySocket(TCustomWinSocket *Socket);
	void BroadcastMessage(AnsiString Message, TCustomWinSocket *ExcludeSocket);
	void SendNotification(ServerNotification sn, AnsiString additional, TCustomWinSocket *ExcludeSocket);

public:		// User declarations
	__fastcall TAWChatServerForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TAWChatServerForm *AWChatServerForm;
//---------------------------------------------------------------------------
#endif