myclient.h

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

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

#ifndef MyClientH
#define MyClientH
//---------------------------------------------------------------------------
#include <Classes.hpp>
//---------------------------------------------------------------------------
class MyClient : public TThread
{
private:
        void __fastcall AddMessage(AnsiString Str);
protected:
        void __fastcall Execute(void);
public:
        __fastcall MyClient(bool CreateSuspended);
       int __fastcall ReceiveStr(char * _Buf,int length);
};
//---------------------------------------------------------------------------
#endif