关于用Socket传输文件的问题
wsf 2004-01-13 03:10:43 我的源码:
void __fastcall TForm1::CSocketRead(TObject *Sender,
TCustomWinSocket *Socket)
{
1 Char buff[8192];
2 int revbytes=0;
3 memset(buff,0,sizeof(buff));
4 revbytes = Socket->ReceiveLength();
5 Socket->ReceiveBuf(buff,revbytes);
6 stream->Write(buff,revbytes); //TMemoryStream *stream;
7 //stream->Write((char *)Socket->Data,revbytes);//为什么不能这样写,必须用buff吗?
8 if (revbytes<8192)//这个判断是否有问题
9 {
10 stream->Position = 0;
11 stream->SaveToFile("d:\\a"); //
12 }
}