🚀 go-pugleaf

I have been trying to get the image data from a TImage control into a
database (Graphic BLOB field) and vise versa.  I also don't what to rely
on the filename of the image file, ie. once I load an image file (bmp,
wmf, ico) into the TImage control, I don't want to remember the filename
to load the image file into the database.  And for other reasons, I
would like to use the TImage control instead of the TDBImage Control.  I
haven't seen any examples for this in any books, so any help would be
greatly appreciated.
Thanks in advance....
Mitch

PS. Below are some things that I have been trying but haven't be
successful.


 if (ImageNo1->Picture!=NULL){
      // Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
      // Bitmap->Assign(ImageNo1->Picture);
      // DM->GunDataTable->FieldByName("Image#1")->AsBlop = Bitmap;

//DM->GunDataTable->FieldByName("Image#1")->Assing(ImageNo1->Picture);

       TBlobField* field =
(TBlobField*)DM->DataTable->FieldByName("Image#1");
       TBlobStream* stream = new TBlobStream(field, bmReadWrite);
       ImageNo1->Picture->Metafile->SaveToStream(stream);

       //TBlobStream *pStream;
       //pStream =
DM->DataTable->CreateBlobStream(DM->DataTable->FieldByName("Image#1"),
bmReadWrite);
       //ImageNo1->Picture->Metafile->SaveToStream(pStream);

       //delete stream;
    }