引言: 附上主要程式碼部分

//---------------------------------------------------------------------------    void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
    ClientMessage = Socket->ReceiveText();
    AnsiString filename;        if      (ClientMessage.SubString(1,15) == "RecievedLength=")
    {
        if (StrToInt(ClientMessage.SubString(16,ClientMessage.Length())) == LastPacketSize )
        {
            ClientReceived = true ;
        }
    }
    else if (ClientMessage.SubString(1,7) == "Command")
    {
        if      (ClientMessage=="Command_1")
        {
            for (int i=0;i<1000;i  )
            {
                filename.printf("d",i&);
                filename=JPEG_PATH   filename   ".jpg";
                SendImage0(filename);
            }
        }
        else if (ClientMessage=="Command_2")
        {
            SendImage0("c:\\0000.jpg");
        }
        else if (ClientMessage=="Command_3")
        {
            SendImage0("c:\\0002.jpg");
        }
    }
}
//---------------------------------------------------------------------------
void TForm1::SendImage0(AnsiString image_name)
{
   TMemoryStream *msFile=new TMemoryStream;
   msFile->LoadFromFile(image_name);
   MYPACK mp;
   int i=0;
   int block=(msFile->Size%MAX_DATASIZE==0)?
      msFile->Size/MAX_DATASIZE: msFile->Size/MAX_DATASIZE 1;       for(i=0; iSize;
      mp.dwThisDataSize=((i 1)*MAX_DATASIZE>msFile->Size)?
         msFile->Size-i*MAX_DATASIZE: MAX_DATASIZE;
      msFile->Position=i*MAX_DATASIZE;
      msFile->Read(mp.pbThisData, mp.dwThisDataSize);          ServerSocket1->Socket->Connections[0]->SendBuf(&mp, sizeof(MYPACK));
      ClientReceived = false ;          LastPacketSize = mp.dwThisDataSize ;          Timer1->Enabled = true ;
      //在Server端未接獲Client端傳來訊息前暫時停止傳送封包
      StatusBar1->SimpleText = "等待Client端回報訊息..." ;
      while (!ClientReceived)
      {
          Application->ProcessMessages();
      }
//      Sleep(SLEEP_TIME);
   }
   StatusBar1->SimpleText = image_name   "("   mp.dwTotalDataSize   "Byte)傳送完成" ;
   delete msFile;
}
//---------------------------------------------------------------------------

小弟覺得很奇怪，為什麼要到第三輪以後才後出現錯誤？也請大家幫忙找看看錯誤可能是在那裡，謝謝！

danielj 你好:
建議你先檢查以下所提到的地方
(> >
    --