tnsrv1.h

来自「文件名称：新曦 我的资源 搜索软件 源程序(Borland Delphi 7)说」· C头文件 代码 · 共 52 行

//---------------------------------------------------------------------------
#ifndef tnsrv1H
#define tnsrv1H
//---------------------------------------------------------------------------
#include <vcl\Classes.hpp>
#include <vcl\Controls.hpp>
#include <vcl\StdCtrls.hpp>
#include <vcl\Forms.hpp>
#include "WSocket.hpp"
#include "tnsrv2.h"
//---------------------------------------------------------------------------
class TClient : public TObject
{
public:
    TClientForm *Form;
    AnsiString  Peer;
    __fastcall TClient(TComponent *AOwner);
    __fastcall ~TClient();
};
//---------------------------------------------------------------------------
class TServerForm : public TForm
{
__published:	// IDE-managed Components
    TMemo *Memo;
    TWSocket *SrvSocket;
    TButton *AboutButton;
    TButton *QuitButton;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormActivate(TObject *Sender);
    void __fastcall FormResize(TObject *Sender);
    void __fastcall SrvSocketSessionAvailable(TObject *Sender, WORD Error);
    void __fastcall SrvSocketSessionClosed(TObject *Sender, WORD Error);
    void __fastcall QuitButtonClick(TObject *Sender);
    void __fastcall AboutButtonClick(TObject *Sender);
private:	// User declarations
public:		// User declarations
    TList *Clients;
    void __fastcall Display(AnsiString *Msg);
    void __fastcall Display(AnsiString Msg);
    void __fastcall Display(char *Msg);
    __fastcall TServerForm(TComponent* Owner);
protected:
    void __fastcall WMDisconnect(TMessage Message);
BEGIN_MESSAGE_MAP
    MESSAGE_HANDLER(WM_DISCONNECT, TMessage, WMDisconnect)
END_MESSAGE_MAP(TForm)
};
//---------------------------------------------------------------------------
extern TServerForm *ServerForm;
//---------------------------------------------------------------------------
#endif