mirate este link ahi se muestra como guardar un jpg
y como mostrarlo despues
http://www.clubdelphi.com/foros/showthread.php?t=12174
y esta es la forma como lo implemente en un query, en el evento afterscroll
Código Delphi
[-]
procedure TFrmCapturaDocumentos.QDocumentosAfterScroll(DataSet: TDataSet);
var bs : TStream; jp : TJpegImage; buff: Word;
begin
bs := QDocumentos.CreateBlobStream(QDocumentosImagen,bmRead);
try
bs.Seek(0,soFromBeginning);
if bs.Read(buff,2) > 0 then
begin
bs.Seek(0, soFromBeginning);
case buff of
$4D42: myImg.Picture.Bitmap.LoadFromStream(bs);
$0000: myImg.Picture.Icon.LoadFromStream(bs);
$0001,$CDD7: myImg.Picture.Metafile.LoadFromStream(bs);
$D8FF: begin
jp := TJpegImage.Create;
jp.LoadFromStream(bs);
myImg.Picture.Assign(jp);
FreeAndNil(jp);
end
else myImg.Picture := nil;
end;
end;
finally
FreeAndNil(bs);
end;
end;