bcb如何在局域网中可靠传输大文件

void __fastcall TForm1::ServerSocket1ClientRead(TObject *Sender,

      TCustomWinSocket *Socket)

{

    t++;

    Label3->Caption=IntToStr(t);

    byte buf[10000];

    if(a==0)

    {



     a=StrToInt(ServerSocket1->Socket->Connections[0]->ReceiveText());

     Label1->Caption=IntToStr(a);

         Socket->SendText("Begin");

    }

    else

    {



    baglen=ServerSocket1->Socket->Connections[0]->ReceiveLength();

    Label2->Caption=IntToStr(baglen);

    ServerSocket1->Socket->Connections[0]->ReceiveBuf(buf,baglen);

    BMP->Write(buf,baglen);



    if(BMP->Size>=a)

    {

      try

      {

         BMP->Position=0;

         Label2->Caption="finished!!";

         BMP->SaveToFile("222\\1.bmp");

      }

      __finally

      {

        BMP->Free();

        a=0;

       }

    }

   }

}

//---------------------------------------------------------------------------



以上是接受代码：

下面是发送：

[code=C/C++]

void __fastcall TForm1::ClientSocket1Read(TObject *Sender,

      TCustomWinSocket *Socket)

{

AnsiString Str=Socket->ReceiveText();

if(Str=="Begin")

{

    bmp->Position=0;

     ClientSocket1->Socket->SendStream(bmp);

     bmp->Position=0;

     bmp->Clear();

    Label2->Caption="sent!!";

}

}

//-