Mislim da ovo moze da bude resenje:
Code:
TStream *bstream;
bstream = DataModule2->IBQuery4->CreateBlobStream(DataModule2->IBQuery4->FieldByName("SLIKA"), bmReadWrite);
TJPEGImage* image = new TJPEGImage;
image->LoadFromStream(bstream);
Image1->Picture->Graphic=image;
Ovo znaci koristi obicni mehanizam slike, a ne DBImage.
Inace nista on onih primera na linkovima ne radi (ili ja nisam dovoljno
pametan da ih sastavim).
Ovo ne radi ni u ludilu:
Code:
TBlobField* field = (TBlobField*)DataModule2->IBQuery4->FieldByName("DATA");
TBlobStream* stream = new TBlobStream(field, bmRead);
TJPEGImage* image = new TJPEGImage;
DBImage1->Picture->Assign(image);
DBImage1->Picture->Graphic->LoadFromStream(stream);
delete image;
to se kompajlira,ali kada se pokrene kaze ovo: Invalid class typecast
tako da mi uopste nije jasno sta je pisac hteo da kaze.
Pozdrav.
Ag + Na -> Xe