Bonjour,

Je voudrais transmettre un fichier image (bmp) avec le composant Tsocketserveur et TSocketclient.
Voici mon code serveur (envoi du fichier) :

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   ServerSocket->Port = 10000;
   ServerSocket->Open();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::charge_image(TObject *Sender)
{

   AnsiString chemin_absolu;
   OpenPictureDialog1->Execute();
   //Form1->TImage1->Picture->LoadFromFile("mon_image.jpg");
   Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName);


}

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

void __fastcall TForm1::Button2Click(TObject *Sender)
{

                        //envoi de l'image en créant un buffer (zone memoire)
                        TMemoryStream *stream = new TMemoryStream();
                        Image1->Picture->Bitmap->SaveToStream(stream);
                        ServerSocket->Socket->SendBuf(stream->Memory, stream->Size);
                        delete stream;

}

void __fastcall TForm1::ClientSocketRead(TObject *Sender,
      TCustomWinSocket *Socket)
{

     //recoi l'image
     TMemoryStream *stream = new TMemoryStream();
     char Buffer[500000];
     int Count;
     while (Count = ClientSocket->Socket->ReceiveBuf(Buffer, sizeof(Buffer)) != -1)
     {
            // stream->Write(Buffer, sizeof(Buffer));
             stream->Write(Buffer, Count);
             Sleep(1000);
     }
     stream->Position = 0;
     Image1->Picture->Bitmap->LoadFromStream(stream);
     delete stream;
}

Configuration: Windows XP
Firefox 3.0