🚀 go-pugleaf

I send the file in parts.  Then I join them again. But i doesn't work.  I
think I did it too simple

here is my code:

BYTE tBuffer[100];
TJPEGImage *tjp = new TJPEGImage();
TMemoryStream* tpms = new TMemoryStream();
//--------------------------------------------------------------------------
-
void __fastcall TfMain::wmImagenClick(TObject *Sender)
{
    BYTE Buffer[100];
    int pos = 0;

    OpenPictureDialog->FileName = GraphicFileMask(__classid(TJPEGImage));

    if (OpenPictureDialog->Execute())
    {
        TJPEGImage *jp = new TJPEGImage();
        TMemoryStream* pms = new TMemoryStream();

        jp->LoadFromFile(OpenPictureDialog->FileName);
        jp->SaveToStream(pms);

        while(pos < pms->Size - 100)
        {
            pms->Seek(pos, soFromBeginning);
            pms->ReadBuffer(Buffer, 100);

            ClientSocket->Socket->SendBuf(Buffer, 100);

            pos += 100;
        }

        pms->Seek(pos, soFromBeginning);
        pms->ReadBuffer(Buffer, pms->Size - pos);
        ClientSocket->Socket->SendBuf(Buffer, pms->Size - pos);
    }
}
//--------------------------------------------------------------------------
-
void __fastcall TfMain::ServerSocketClientRead(TObject *Sender,
      TCustomWinSocket *Socket)
{
    int total = Socket->ReceiveLength(), recived, newpacketsize;

    recived = tpms->Size;

    if(total - recived > 100)
        newpacketsize = 100;
    else
        newpacketsize = total - recived;

    Socket->ReceiveBuf(tBuffer, newpacketsize);

    tpms->WriteBuffer(tBuffer, newpacketsize);

    if(tpms->Size == total)
    {
        tjp->LoadFromStream(tpms);

        PaintBox->Canvas->Draw(0,0,tjp);
    }
}
//--------------------------------------------------------------------------
-


"Remy Lebeau (TeamB)" <gambit47.no.spam@no.spam.yahoo.com> escribi� en el
mensaje news:40e99afa$1@newsgroups.borland.com...
>
> "Fabi�n" <fabianfierro@hotmail.com> wrote in message
> news:40e99192$1@newsgroups.borland.com...
>
> > I'm trying to transfer a jpeg.
> > I have problems using a stream.
>
> Can you be more specific please?  What exactly are you having a problem
> with?
>
>
> Gambit
>
>