BCB ServerSocket多线程示例

TServerSocket的OnGetThread处理应该创建一个新的线程。然后把ClientSocket 传给 SocketThread  *&SocketThread的线程类指针的 应该是从TServerClientThread 继承下来的类的指针。不应该直接从TThread派生。

.h

#include <Classes.hpp>
#include <ScktComp.hpp>
class SrvThread : public TServerClientThread
{
protected:
    void __fastcall ClientExecute(void); //重载TServerClientThread的ClientExecute 而不是TThread的Execute
public:
    __fastcall SrvThread(bool CreateSuspended,TServerClientWinSocket* ASocket);

};

.cpp

__fastcall SrvThread::SrvThread(bool CreateSuspended,TServerClientWinSocket* ASocket)
    : TServerClientThread(CreateSuspended,ASocket)
{
    

}

void __fastcall SrvThread::ClientExecute()
{
    //处理代码
    while(ClientSocket->Connected && !Terminated)
    {
        int k = ClientSocket->ReceiveLength() ;
        if(k > 0 )
        {
            char s[1500];
            memset(s,0,1500);
            ClientSocket->ReceiveBuf(s,1500);
            frmNetServer->Memo1->Lines->Add(s);
        }
         Sleep(10);
    }
}