代码如下： void __fastcall TForm1::ClientSocket1Read(TObject *Sender, TCustomWinSocket *Socket) { int i=Socket->ReceiveLength(); int ss=Socket->ReceiveBuf(z,i); FileWrite(hnn1,z,i); if(ss<=0) {return;} } 执行后有时可下载正确数据有时不可，请帮忙！应该如何修改？

是不是少了個 while 迴圈 啊...    

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,
TCustomWinSocket *Socket)
{
  while (true) {
    int i=Socket->ReceiveLength();
    int ss=Socket->ReceiveBuf(z,i);
    FileWrite(hnn1,z,i);
    if(ss<=0)
      {return;}
  }
}

谢谢帮忙！ 不过…… 加上while后和不加一样，也是有时可以下载到正确数据有时不能，请帮帮忙啊！ 谢谢了！

刚刚用十六进制软件看了，问题好象出在尾端，出问题的文件一般比正确的文件要大几十个字节，应该怎么解决啊，请帮帮忙！ 我在.h文件里设置的 void *z[90000];

這篇看看... http://delphi.ktop.com.tw/topic.php?topic_id=36102 這是 TClientSocket OnRead event Help 的 Note... Non-blocking sockets do not always receive an OnRead event for the last bit of data passed over the connection. When using a non-blocking socket, check for any unread data in the OnDisconnect event to make sure that everything is handled. 在 Non-blocking 模式下不保證所有接收都會發出 OnRead, 還是要在 OnDisconnect 中去檢查是否有遺漏未收的資料 P.S. while 迴圈可以拿掉....

谢谢！我试试！