把文件分成多块发送到serverSocket，怎么全部无误差接收，

[wangyelon]

我自己做的总是出错，只接到很少的数据，代码如下
void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
TCustomWinSocket *Socket)
{ int daxiao;
char *buff=new char[8192];
daxiao= Socket->ReceiveBuf(buff,8192);
if(daxiao<=0)
{
Socket->SendText("n");//通知发送结束
return;
}
else
{
TFileStream *tmpfile;
for ( ; ; )
{
tmpfile=new TFileStream(filename,//filename是文件名
fmOpenWrite|fmCreate|fmShareExclusive);
tmpfile->Seek(tmpfile->Size,0);
tmpfile->Write(buff,daxiao);
}
delete tmpfile;
}
}
请高手看看，我自己找不出，谢谢！

[qiuafa]

接分&捧场

[qiuafa]

int remain = 8192;
while (remain)
{
daxiao = Socket->ReceiveBuf(buff, remain); // 因为 daxiao 不一定等于 remain
tmpfile->Write(buff,daxiao);
remain -= daxiao;
}

[wangyelon]

哦，不好意思，昨天没有细看，我的代码帖错了
for (;;) {} 要注释掉
是这样的
//for ( ; ; )
//{
tmpfile=new TFileStream(filename,//filename是文件名
fmOpenWrite ¦fmCreate ¦fmShareExclusive);
tmpfile->Seek(tmpfile->Size,0);
tmpfile->Write(buff,daxiao);
// }

[wangyelon]

还是不对，结帖算了，我快累糊涂了，重新写过