🚀 go-pugleaf

place a  OpenPictureDialog on the form and try this  .




void __fastcall TForm1::DBImage1DblClick(TObject *Sender)
{
boolean result;

if (TheTable->State == dsEdit)
  {
  result = OpenPictureDialog1->Execute();
  if (result == true)
    {
    DBImage1->Picture->LoadFromFile(OpenPictureDialog1->FileName);
    }
  }
else ShowMessage(" the database is not in edit mode");



Mitchell lebold <lebold@casterra.com> a �crit dans le message :
3B7C054F.700C4467@casterra.com...
> 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;
>
>
file://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);
>
>        file://TBlobStream *pStream;
>        file://pStream =
> DM->DataTable->CreateBlobStream(DM->DataTable->FieldByName("Image#1"),
> bmReadWrite);
>        file://ImageNo1->Picture->Metafile->SaveToStream(pStream);
>
>        file://delete stream;
>     }
>