🚀 go-pugleaf

BDS 2006, Indy 9

I have a TCP Server & Client that connect and talk with each other.

I'm trying to send a BMP from one to the other, but I seem to
be having issues and I was wondering if anyone had any pointers.

So the client seems to connect, and get information over the stream,
but the image that comes across looks like a small box with verticle
lines (like at the end of TV programming at night).

My guess is I'm not quite writing or reading the stream right, but
my experience in this is limited.

Thanks for the help.
-Cory
ps. I did try just copying to a stream and then reading it back from
the stream (same program) and that worked, so I'm assuimg the
data being sent is valid.

----------------------------  
 SERVER ----------------------------------------------
(In Constructor) sendbmp = new Graphics::TBitmap;

void __fastcall TSDIAppForm::IdTCPServer1Execute(TIdPeerThread *AThread) {
   if (AThread->Connection->Connected()) {
         TMemoryStream *ms;
            ms = new TMemoryStream ();
            sendbmp->SaveToStream(ms);
            AThread->Connection->WriteStream(ms, true, true, ms->Size);
            delete (ms);
   }
}

--------------------------  
CLIENT ------------------------------------------------
void __fastcall TSDIAppForm::Button3Click(TObject *Sender)
{
 TMemoryStream *ms;
    ms = new TMemoryStream;
    IdTCPClient1->ReadStream(ms, -1, false);
    sentbmp->LoadFromStream(ms);
    delete ms;
}