c++ builder 阻塞模式 socke 教程 说明

1.Client端

阻塞模式常用在单通道Server自动响应收发数据里面，比如ClientA向ServerB发送报文，并且ClientA只需要它发送的这条数据ServerB对它有一个响应。其实c++ builder 里面阻塞模式的收发数据主要理解TWinSocketStream这个流。

void __fastcall TForm1::btn_1Click(TObject *Sender)
{
    //1.初始化一些socket参数
    ClientSocket1->Address="127.0.0.1";
    ClientSocket1->Port=10101;
    ClientSocket1->ClientType=ctBlocking;//此处表示socket是阻塞模式


    int TIMEOUT=300000,MAXLENGTH=1024;

    TWinSocketStream *pClientStream;//TWinSocketStream to read or write information over a blocking socket connection
    pClientStream=new TWinSocketStream(ClientSocket1->Socket,TIMEOUT);

    //2.连接Server端
    ClientSocket1->Open();

    //3.发送数据
    char sendBuf[1024];
    int sendCount=0;
    strcpy(sendBuf,E_send->Text.c_str()) ;
    sendCount=pClientStream->Write(sendBuf,strlen(sendBuf)+1);
    if(sendCount==0) ShowMessage("发送失败!");

    //4.接收数据
    char receiveBuf[1024];
    int Len=0;
    if (pClientStream->WaitForData(TIMEOUT))
        //在TIMEOUT时间内如果没有接收到数据程序是直会在此挂起,因此如果阻塞模式接收数据的话一般放在线程里面
        Len=pClientStream->Read(receiveBuf,MAXLENGTH);
    receiveBuf[Len]=0;

    Memo1->Lines->Add(receiveBuf);


}

2.Server端(TServerSocket 多线程阻塞模式收发数据)

使用多线程的阻塞模式要从一个TServerClientThread对象中派生一个类，在类的execute()方法中写收发数据的代码。收数据一般通过TWinSocketStream流实现。

这是派生的类的代码头

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

#ifndef UnitServerThreadH
#define UnitServerThreadH
//---------------------------------------------------------------------------

#include <ScktComp.hpp>
#include <StdCtrls.hpp>
#include "UnitMain.h"
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
class TServerThread : public TServerClientThread
{
protected:
    void __fastcall ClientExecute(void);
    int __fastcall ReadStr(char * buf);
public:
    __fastcall TServerThread(bool CreateSuspended, TServerClientWinSocket* ASocket,HWND hWnd);
    __fastcall ~TServerThread();
private:
    TWinSocketStream *pStream;
    HWND m_hwnd;
};
#endif

//cpp文件

#include <vcl.h>
#pragma hdrstop
#include "UnitServerThread.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
//---------------------------------------------------------------------------
__fastcall TServerThread::TServerThread(bool CreateSuspended, TServerClientWinSocket* ASocket,HWND hWnd) : TServerClientThread(CreateSuspended,ASocket)
{
    m_hwnd=hWnd;
    FreeOnTerminate=false;
}
//---------------------------------------------------------------------------
void __fastcall TServerThread::ClientExecute(void)
{//当一个客户连接的时候进入ClientExecute

    //1.接收数据
    try
    {
        pStream=new TWinSocketStream(ClientSocket,60000);
        char buf[1024];
        memset(buf,0,sizeof(buf));
        try
        {
            int len=0;
            if(pStream->WaitForData(60000))
            {
                len=pStream->Read(buf,1024);
                buf[len]=0;
            }
        }
        catch(Exception &E)
        {

        }
         //2.发送数据
        ClientSocket->SendText("已经收到消息!消息为"+AnsiString(buf));
    }
    __finally
    {
        ClientSocket->Close();
        delete pStream;
    }
}

下面是主窗口代码

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

#include <vcl.h>
#pragma hdrstop

#include "UnitMain.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    ServerSocket1->Port=10101;
    ServerSocket1->ServerType=stThreadBlocking; //设置为阻塞模式

    //指定缓存使用的线程的个数:如果第一个Client连接Server会自动生成一个TServerThread类对象
    //当这个客户端断开时，这个对象不会释放，当第二个Cliet连接时，会重用这个TServerThread而不是
    //重新创建此对象。ThreadCacheSize实际上指线程类不被释放的个数。
    ServerSocket1->ThreadCacheSize=10;
                                                //
    ServerSocket1->Open() ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::ServerSocket1GetThread(TObject *Sender,
      TServerClientWinSocket *ClientSocket,
      TServerClientThread *&SocketThread)
{
    SocketThread=new TServerThread(false,ClientSocket,Form1->Handle);
}
//---------------------------------------------------------------------------