如何用QRIMAGE将BLOB字段中的JPEG图片显示并打印出来?

Question

用TStringStream读出Blob的数据，然后弄到TQRImage里面去。

Answer 1

TO:欣慰
请问代码应该放在什么地方?我试过把代码放在ONPREVIEW,BEFOREPRINT等处,但不行!

Answer 2

to: stlont,
好像还是不行!?提示说"找不到字段...."!这是什么问题?我是从FORM1中直接调用QUICKRPT1
的,FORM1和FORM2中各有DATASOURCE和TABLE控件,且属性设置教师一样的.救人救到底吧!
代码如下:
procedure form1.button1click(sender: tobject);
begin
  form2.quickrep1.preview;
end;procedure
var
  tmpg: tblobstream;
  jpg: tjpegimage;
begin TForm8.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
  if TBlobField(form8.Table1.FieldbyName('photo')).isnull=false then
  begin
    tmpg:=TBlobStream.Create(TBlobField(Table1.FieldbyName('photo')), bmRead);
    jpg:= TJPEGImage.Create;
    jpg.LoadFromStream(tmpg);
    qrImage1.Picture.Assign(jpg);
    tmpg.free;
    jpg.free;
  end
else
  qrimage1.picture:=nil;
end;