QRImage显示JPG图片 ( 积分: 100 )

数据库中保存的是JPG格式的图片，采用QRImage来显示并打印，我在OnNeedData事件中加入如下代码：
procedure TFrmprint.QuickRep1NeedData(Sender: TObject;
var MoreData: Boolean);
var
tempstream:TStringStream;
tempjpeg:TJPEGImage;
begin
if TBlobField(Table1.FieldByName('photo')).IsNull = false then
begin
try
tempstream:=TStringStream.Create('');
TBlobField(Table1.FieldByName('photo')).SaveToStream(tempstream);
tempstream.Position:=0;
tempjpeg:=TJPEGImage.Create;
tempjpeg.LoadFromStream(tempstream);
QRImage1.Picture.bitmap.Assign(tempjpeg);
finally
tempstream.Free;
tempjpeg.Free;
end;
end else
begin
QRimage1.Picture :=nil;
end;
end;
采用了这种方法数据库中的JPG图片怎么连预览都没出来，大家给指点指点问题所在？

QRImage1.Picture.bitmap.Assign(tempjpeg);
改为
QRImage1.Picture.Graphic:=tempjpeg;

还是不能显示，问题可能出在哪里？请指点

你加上QRImage1.Repaint试试。

还是不能显示

tempstream:TMemoryStream;

结题，散分了