Acessing OLE image in Access DB

LoadJpgPic(PicDisplay,(ADQuery1.FieldByName('Pictu re') as TBlobField));


procedure LoadJpgPic(JpgPic:TImage; PicField:TBlobField);
var
bS : TADBlobStream;
Pic : TJpegImage;
begin
JpgPic.Picture.Graphic:=nil;
try
bS := TADBlobStream.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]