chatclient.h

关于书籍《Borland c++Builder工程实践》的源代码

//---------------------------------------------------------------------------
#ifndef chatprogH
#define chatprogH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ComCtrls.hpp>
#include <Mask.hpp>
#include <ToolWin.hpp>
#include <ExtCtrls.hpp>
#include <Menus.hpp>
#include <ScktComp.hpp>
#include <CheckLst.hpp>
//---------------------------------------------------------------------------
enum UserListStatus {ULS_HIDE, ULS_SHOW};
enum LinkStatus {LS_START, LS_STOP};
//---------------------------------------------------------------------------
class TChatForm : public TForm
{
__published:	// IDE-managed Components
	TStatusBar *StatusBar1;
	TMainMenu *MainMenu1;
    TMenuItem *File;
    TMenuItem *Exit;
    TMenuItem *ShowHideUserList;
  TMenuItem *ConnectDisconnect;
  TMenuItem *Settings;
	TMenuItem *N1;
  TPanel *Panel1;
    TPanel *Panel2;
      TLabel *Label1;
    TPanel *Panel3;
      TCheckListBox *UserCheckListBox;
    TPanel *Panel4;
      TGroupBox *GroupBox1;
        TRadioButton *Broadcast;
        TRadioButton *Multicast;
  TSplitter *Splitter1;
  TPanel *Panel5;
      TMemo *Memo2;
      TMemo *Memo1;
  TSplitter *Splitter2;
	TClientSocket *ClientSocket1;
	void __fastcall ConnectDisconnectClick(TObject *Sender);
	void __fastcall SettingsClick(TObject *Sender);
	void __fastcall Memo2KeyDown(TObject *Sender, WORD &Key,
		  TShiftState Shift);
	void __fastcall ClientSocket1Connect(TObject *Sender,
		  TCustomWinSocket *Socket);
	void __fastcall ClientSocket1Disconnect(TObject *Sender,
		  TCustomWinSocket *Socket);

	void __fastcall ClientSocket1Connecting(TObject *Sender,
		  TCustomWinSocket *Socket);
	void __fastcall ClientSocket1Lookup(TObject *Sender,
		  TCustomWinSocket *Socket);
	void __fastcall ClientSocket1Error(TObject *Sender,
		  TCustomWinSocket *Socket, TErrorEvent ErrorEvent,
		  int &ErrorCode);
	void __fastcall ClientSocket1Read(TObject *Sender,
		  TCustomWinSocket *Socket);
	void __fastcall ExitClick(TObject *Sender);
    void __fastcall UserCheckListBoxClickCheck(TObject *Sender);
  void __fastcall BroadcastClick(TObject *Sender);
  void __fastcall MulticastClick(TObject *Sender);
  void __fastcall ShowHideUserListClick(TObject *Sender);

private:	// User declarations
	AnsiString NickName;
  AnsiString UserList;
  UserListStatus    CurrentUserListStatus;
  LinkStatus        CurrentLinkStatus;

	void EnableClient();
	void DefaultSBText();
	void DisableClient();

	TCustomWinSocket *OutSocket;
	void __fastcall ValidateControls(TObject *Sender, bool &Done);
public:		// User declarations
	__fastcall TChatForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TChatForm *ChatForm;
//---------------------------------------------------------------------------
#endif