server.~h

局域网内的2机通讯,好像还有些欠缺。由于没有时间和精力在继续改正

//---------------------------------------------------------------------------

#ifndef ServerH
#define ServerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ScktComp.hpp>
#include <Dialogs.hpp>
#include <NMSTRM.hpp>
#include <Psock.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:	// IDE-managed Components
        TGroupBox *GroupBox1;
        TServerSocket *Server;
        TNMStrmServ *NMStrmServ1;
        TSaveDialog *SaveDialog1;
        TGroupBox *GroupBox2;
        TMemo *Memo1;
        TMemo *Memo2;
        TGroupBox *GroupBox3;
        TButton *Button1;
        TButton *Button2;
        TButton *Button3;
        TLabel *Label1;
        TEdit *Edit1;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button3Click(TObject *Sender);
        void __fastcall ServerAccept(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall ServerClientRead(TObject *Sender,
          TCustomWinSocket *Socket);
        void __fastcall NMStrmServ1MSG(TComponent *Sender,
          const AnsiString sFrom, TStream *strm);

private:	// User declarations
public:		// User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif