Thanks-a-heap for that. I'll give it a go and then write about the outcome in a day or two. The sample DB I am using has BMP embedded images. I will have to create a sample DB with JPEG to see if this code works.
Regards Anu Rang http://totallyfreeenergy.freehoxt.com --- In [email protected], Zoran Milenkovic <[EMAIL PROTECTED]> wrote: > > LoadJpgPic(PicDisplay,(ADOQuery1.FieldByName('Picture') as TBlobField)); > > > procedure LoadJpgPic(JpgPic:TImage; PicField:TBlobField); > var > bS : TADOBlobStream; > Pic : TJpegImage; > begin > JpgPic.Picture.Graphic:=nil; > try > bS := TADOBlobStream.Create(PicField,bmRead); > try > bS.Seek(JpegStartsInBlob(PicField),soFromBeginning); > Pic:=TJpegImage.Create; > try > Pic.LoadFromStream(bS); > JpgPic.Picture.Graphic:=Pic; > finally > Pic.Free; > end; > finally > bS.Free > end; > except end; > end; > > > Hope that helps... > > > > > --------------------------------- > Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it now. > > [Non-text portions of this message have been removed] >
