tnsrv2.h

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

//---------------------------------------------------------------------------
#ifndef tnsrv2H
#define tnsrv2H
//---------------------------------------------------------------------------
#include <vcl\Classes.hpp>
#include <vcl\Controls.hpp>
#include <vcl\StdCtrls.hpp>
#include <vcl\Forms.hpp>
#include "WSocket.hpp"

#define WM_DISCONNECT      (WM_USER + 2)
#define DISCONNECT_SELF    1          // Client form ask to disconnect          
#define DISCONNECT_REMOTE  2          // Client user (remote) has disconnected
//---------------------------------------------------------------------------
class TClientForm : public TForm
{
__published:	// IDE-managed Components
    TWSocket *Socket;
    TMemo *Memo;
    TEdit *DataEdit;
    TButton *SendButton;
    TButton *DisconnectButton;
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall DisconnectButtonClick(TObject *Sender);
    void __fastcall SocketDataAvailable(TObject *Sender, WORD Error);
    void __fastcall SocketSessionClosed(TObject *Sender, WORD Error);
    void __fastcall FormDestroy(TObject *Sender);
    void __fastcall FormShow(TObject *Sender);
    void __fastcall SendButtonClick(TObject *Sender);
    void __fastcall FormResize(TObject *Sender);
private:	// User declarations
    AnsiString FCommand;
    BOOL       FRcvdCR;
    void __fastcall CommandInterpreter();
    void __fastcall ProcessChar(char Ch);
public:		// User declarations
    TForm *AcceptForm;
    void  *Reference;
    void __fastcall Display(char *Msg);
    void __fastcall Display(AnsiString *Msg);
    __fastcall TClientForm(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern TClientForm *ClientForm;
//---------------------------------------------------------------------------
#endif