气死我拉拉!文件传输问题!!!!!!!!!!!!!!
在接受事件中
我一开始stream 是 tmemorystream
可是收到的数据大小基本一样! 可总是少几行文本!
后来换了TFilestream
可是 当程序 执行到 if (stream->Size>=size)
这个以后,还在接收东西,导致出错
我按传过了来的大小,接受完毕释放stream,
可是,怎么还要接收机会才算完事呢!!!
这是怎么回事!!!!!!!!!!
if (size==0 )
{ size=StrToInt(Socket->ReceiveText());
Socket->SendText("ok");}
else
{leng=Socket->ReceiveLength();
Socket->ReceiveBuf(buf,leng);
stream->Write(buf ,leng);
}
if (stream->Size>=size)
{ if (stream!=NULL)
delete stream;
stream=NULL;
}