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]
