main.h

来自「Server application. Unused without clien」· C头文件 代码 · 共 79 行

//----------------------------------------------------------------------------
//Borland C++Builder
//Copyright (c) 1987, 1997-2002 Borland International Inc. All Rights Reserved.
//----------------------------------------------------------------------------
//---------------------------------------------------------------------------
#ifndef mainH
#define mainH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include "ScktComp.hpp"
#include <Buttons.hpp>
#include <ComCtrls.hpp>
#include <ExtCtrls.hpp>
#include <Menus.hpp>
//---------------------------------------------------------------------------
AnsiString message;
char CH_message;
char *tzstr = "TZ=PST8PDT";

time_t t;
struct tm *gmt, *area;

class TChatForm : public TForm
{
__published:	// IDE-managed Components
        TBevel *Bevel1;
        TStatusBar *StatusBar1;
        TPanel *Panel1;
        TMemo *Memo2;
        TMainMenu *MainMenu1;
        TMenuItem *File1;
        TMenuItem *FileListenItem;
        TMenuItem *FileConnectItem;
        TMenuItem *Disconnect1;
        TMenuItem *N1;
        TMenuItem *Exit1;
        TServerSocket *ServerSocket;
        TClientSocket *ClientSocket;
        TLabel *Label1;
        TLabel *Label2;
        TPanel *Panel2;
        TLabel *Label3;
        void __fastcall FileListenItemClick(TObject *Sender);
   void __fastcall FileConnectItemClick(TObject *Sender);
   void __fastcall Exit1Click(TObject *Sender);
  
   void __fastcall FormCreate(TObject *Sender);
   void __fastcall ClientSocketConnect(TObject *Sender,
      TCustomWinSocket *Socket);
   void __fastcall ClientSocketDisconnect(TObject *Sender,
      TCustomWinSocket *Socket);
   void __fastcall ClientSocketRead(TObject *Sender,
      TCustomWinSocket *Socket);
   void __fastcall ServerSocketClientRead(TObject *Sender,
      TCustomWinSocket *Socket);
   void __fastcall ServerSocketAccept(TObject *Sender,
      TCustomWinSocket *Socket);
   void __fastcall ServerSocketClientConnect(TObject *Sender,
      TCustomWinSocket *Socket);
   void __fastcall Disconnect1Click(TObject *Sender);
   void __fastcall ClientSocketError(TObject *Sender,
      TCustomWinSocket *Socket, TErrorEvent ErrorEvent, int &ErrorCode);
   void __fastcall ServerSocketClientDisconnect(TObject *Sender,
      TCustomWinSocket *Socket);
private:	// User declarations
public:		// User declarations
        bool IsServer;
        String Server;
        __fastcall TChatForm(TComponent* Owner);
};

//---------------------------------------------------------------------------
extern TChatForm *ChatForm;
//---------------------------------------------------------------------------
#endif