ServerSocket在阻塞方式下收发信息

[yiweichun]

小弟在用ServerSocket在阻塞方式下收发信息时出现问题，不知如何使用多线程的方式实现ServerSocket的接收与发送？

[constantine]

用indy控件就是阻塞的,非要用ServerSocket,到faq里面找找

[constantine]

class TForm1 : public TForm
{
__published: // IDE-managed Components
TServerSocket *ServerSocket1;
void __fastcall ServerSocket1GetThread(TObject *Sender,
TServerClientWinSocket *ClientSocket,
TServerClientThread *&SocketThread);
void __fastcall FormDestroy(TObject *Sender);
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------
class MyThread : public TServerClientThread
{
private:
UINT FTimeOut;
TWinSocketStream* WskStream;
protected:
void __fastcall ClientExecute();
public:
__fastcall MyThread(TServerClientWinSocket*);

__property UINT TimeOut = { read=FTimeOut, write=FTimeOut };
};

//主程序
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
ServerSocket1->Port = 100;
ServerSocket1->ServerType
= stThreadBlocking;
ServerSocket1->Active = true;
}
//-------------------------------------------------------------
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
ServerSocket1->Active = false;
}
//------------------------------------------------------------
void __fastcall TForm1::ServerSocket1GetThread(TObject *Sender,
TServerClientWinSocket *ClientSocket,
TServerClientThread *&SocketThread)
{
SocketThread = new MyThread(ClientSocket);
SocketThread->Resume();
}
//-----------------------------------------------------------
__fastcall MyThread::MyThread(TServerClientWinSocket* socket)
: TServerClientThread(true,socket)
{
}
//---------------------------------------------------------
//示范程序里，收到的数据写到文件"test*.dat"
void __fastcall MyThread::ClientExecute()
{
int len;
FILE *fp;
char buf[2048];
static int num=0;

TimeOut = 300000; //300秒
WskStream = new TWinSocketStream(
ClientSocket, TimeOut);

while(1) {
sprintf(buf, "test%04x.dat",
num++);
if (!FileExists(buf)) {
fp = fopen(buf, "wb");
if (fp!=NULL) break;
}
}
try {
DWORD dwTick = GetTickCount();
while(ClientSocket->Connected
&& !Terminated) {
if (!WskStream->WaitForData(
5000)) {
if (GetTickCount()-dwTick
<TimeOut)
continue;
//在规定时间内没有收到数据，
//结束线程
break;
}
len = WskStream->Read(buf,
sizeof(buf));
dwTick = GetTickCount();
if (len <= 0) {
//读数据出错，这儿做一些
//处理
break;
}
//添加收到数据的处理，这儿写到
//文件 test*.dat 中 ...
fwrite(buf, 1, len, fp);
}
if (ClientSocket->Connected)
ClientSocket->Close();
}
catch(Exception& e) {
MessageBox(0, e.Message.c_str(),
"Error", MB_ICONERROR);
}
fclose(fp); delete WskStream;
}
//-------------------------------------------------------
这个可以参考,好象是jsp老大写o

[yiweichun]

谢了，我研究研究先

[大海1986]

先学习下 关注！！