serverc.~h

一个用于delphi多线程Socket.多线程Socket阻塞模式下通信的例子

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

#ifndef ServerCH
#define ServerCH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ScktComp.hpp>
//---------------------------------------------------------------------------
class TServerFrm : public TForm
{
__published:	// IDE-managed Components
        TServerSocket *ServerSocket1;
        TButton *Button1;
        TMemo *Memo1;
        TLabel *Label1;
        void __fastcall ServerSocket1GetThread(TObject *Sender,TServerClientWinSocket *ClientSocket,TServerClientThread *&SocketThread);
        void __fastcall Button1Click(TObject *Sender);
private:	// User declarations

public:		// User declarations
        __fastcall TServerFrm(TComponent* Owner);
        int __fastcall boardcast(String msg);
};
//---------------------------------------------------------------------------
extern PACKAGE TServerFrm *ServerFrm;
extern int ActiveNum; //申明全局变量,用于计算当然的连接数
extern AnsiString TransmitStr;
//---------------------------------------------------------------------------
#endif