myserver.h

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

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

#ifndef MyServerH
#define MyServerH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include "ServerC.h"
//---------------------------------------------------------------------------
class MyServer : public TServerClientThread
{
private:
        void __fastcall AddMessage();
        void __fastcall BC();
        AnsiString Message;
        AnsiString bmsg;
protected:
        void __fastcall ClientExecute(void);
        void __fastcall Connected();
        void __fastcall DataDisposal(void);    //数据处理
        void __fastcall DisConnected();
public:
    String RemoteHostIP,RemoteHostProt;
    int TimeOutMSec,TimerID; //超时时间变量   _
        __fastcall MyServer(bool CreateSuspended,TServerClientWinSocket* ASocket,int ATimeOutMSec);
    int __fastcall ReceiveStr(char * _Buf,int length); 
    int __fastcall SendStr(char * _Buf,int length);
};
//---------------------------------------------------------------------------
#endif