chat.h

网络编程的一些实例

//---------------------------------------------------------------------------
#ifndef chatH
#define chatH
//---------------------------------------------------------------------------
#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>
//---------------------------------------------------------------------------
class TTalkForm : public TForm
{
__published:	// IDE-managed Components
    TStatusBar *StatusBar1;
    TMainMenu *MainMenu1;
    TMenuItem *File1;
    TMenuItem *Exit1;
    TPanel *Panel1;
    TMemo *Memo1;
    TMemo *Memo2;
    TSplitter *Splitter1;
    TClientSocket *ClientSocket1;
    TServerSocket *ServerSocket1;
    TMenuItem *MenuConnect;
    TMenuItem *MenuDisconnect;
    TMenuItem *FileSettings;
    TMenuItem *N1;
    TMenuItem *MenuListen;
    void __fastcall MenuConnectClick(TObject *Sender);
    void __fastcall MenuDisconnectClick(TObject *Sender);
    void __fastcall FileSettingsClick(TObject *Sender);
    void __fastcall Memo1KeyDown(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 MenuListenClick(TObject *Sender);
    void __fastcall Exit1Click(TObject *Sender);
    void __fastcall ServerSocket1ClientRead(TObject *Sender,
          TCustomWinSocket *Socket);
    void __fastcall ServerSocket1ClientConnect(TObject *Sender,
          TCustomWinSocket *Socket);
    void __fastcall ServerSocket1ClientDisconnect(TObject *Sender,
          TCustomWinSocket *Socket);
    void __fastcall ServerSocket1ClientError(TObject *Sender,
          TCustomWinSocket *Socket, TErrorEvent ErrorEvent,
          int &ErrorCode);
    
private:	// User declarations
    bool ClientConnected;
    bool WaitingForServerConnection;

    void EnableClient();
    void DisableClient();
    void DisableServer();
    void EnableServer();
    void DefaultSBText();

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