用TServerSocket接收数据怎么老是报10035的连接错误

[jiek0808]

服务端：
void __fastcall TForm1::svrAccept(TObject *Sender,
TCustomWinSocket *Socket)
{
mmo1->Lines->Add("from IP:"+Socket->RemoteAddress+" port: "+Socket->RemotePort);
if((fp=fopen("d:\\333","rb"))==NULL)
{
ShowMessage("open file d:\\333 error");
return;
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::svrClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{
int szBuff[4096];
int ret=0;
int nCount=0;

while(1)
{
ret=Socket->ReceiveBuf(szBuff,4096);
if(ret==0)
break;
else if(ret==SOCKET_ERROR)
{
ShowMessage(WSAGetLastError());
break;
}
fwrite(szBuff,4096,1,fp);
nCount++;
}
ShowMessage(nCount++);
fclose(fp);
}

客户端：
void __fastcall TForm1::btn1Click(TObject *Sender)
{
FILE* fp;
char* szFileName;
int szBuff[4096];
int nCount=0;
if(dlgOpen1->Execute())
{
szFileName=dlgOpen1->FileName.c_str();
}
if((fp=fopen(szFileName,"rb"))==NULL)
{
ShowMessage("Open File "+AnsiString(szFileName)+" error!");
exit(1);
}
while(!feof(fp))
{
fread(szBuff,4096,1,fp);
cli->Socket->SendBuf(szBuff,4096);
nCount++;
}
ShowMessage(nCount);
fclose(fp);

}

[僵哥]

10035
Resource temporarily unavailable.

This error is returned from operations on nonblocking sockets that cannot be completed immediately, for example recv when no data is queued to be read from the socket. It is a nonfatal error, and the operation should be retried later. It is normal for WSAEWOULDBLOCK to be reported as the result from calling connect on a nonblocking SOCK_STREAM socket, since some time must elapse for the connection to be established.

[僵哥]

在非阻塞模式(TServerSocket/TClientSocket使用的是Select，默认为非阻塞模式)由于网络完成部分操作需要相当的时间，而无法立即完成，但是会使函数调用立即返回，从而报出该错误用于给出用户提示，该错误是可以不理会的。
不过感觉奇怪的是TServerSocket本身就有屏蔽掉该错误(详细的可以通过VCL Source查阅,注:Delphi代码).