🚀 go-pugleaf

> I tried to load into a record a JPEG image.  Since the ordinary TImage is
> capable of doing so, I wondered why the TDBImage isn't (Even though it
> doesn't inherit from TImage, Borland should have allowed us to use other
> formats beside BMPs in a DB).

Until TDBImage works for you as desired, here's my post from two years ago:

Here's how to both load different file formats and retrieve them from
database BLOB fields using a TDBImage component.

First you have to register the JPEG format:

  #include <jpeg.hpp>

  // register JPEG class
  DBImage1->Picture->RegisterFileFormat(__classid(TJPEGImage), "jpg",
    "JPEG File", __classid(TJPEGImage));


To load bmp, emf, ico, jpg images into the database:

  if (OpenDialog1->Execute())
  {
    Image1->Picture->LoadFromFile(OpenDialog1->FileName);
    Table1->Edit();
    TBlobField* field = (TBlobField*)Table1->FieldByName("FIELDNAME");
    field->LoadFromFile(OpenDialog1->FileName);
    Table1->Post();
  }


To retrieve images you should set your DBImage1 control's AutoDisplay
property to false. Then do one of the following based on the image type in
the database:

    // do for jpeg
    TBlobField* field = (TBlobField*)Table1->FieldByName("OVERLAY");
    TBlobStream* stream = new TBlobStream(field, bmRead);
    TJPEGImage* image = new TJPEGImage;
    DBImage1->Picture->Assign(image);
    DBImage1->Picture->Graphic->LoadFromStream(stream);
    delete image;

    // do for metafile
    TBlobField* field = (TBlobField*)Table1->FieldByName("OVERLAY");
    TBlobStream* stream = new TBlobStream(field, bmRead);
    Image1->Picture->Metafile->LoadFromStream(stream);

    // do for icon
    TBlobField* field = (TBlobField*)Table1->FieldByName("OVERLAY");
    TBlobStream* stream = new TBlobStream(field, bmRead);
    Image1->Picture->Icon->LoadFromStream(stream);

    // do for bitmap
    DBImage1->LoadPicture();

Kevin Berry
kevinrberry@charter.net