我现在急... 关于qrimage动态加入图片！！！送50分

Question

请给代码！！！

Answer 1

procedure Trp_print.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var
vstream:tstream;
begin
 if not dm.query1.FieldByName('图片).IsNull  then
  begin
  vstream:=dm.query1.CreateBlobStream(dm.query1.FieldByName('图片'),bmread);
  qrimage1.Picture.Graphic:=tjpegimage.Create;
  qrimage1.Picture.Graphic.LoadFromStream(vstream);
  end
  else
  qrimage1.Picture.LoadFromFile('');
end;

Answer 2

在打印内容所在BAND中BEFOREPRINT事件中：
qrimage1.Picture.LoadFromFile('filename');

Answer 3

你不用如此吧.
qrimage1.picture.assign(dm.query1.fieldbyname('图片'));
这样不就行了.

Answer 4

如果你的图片不是以bmp格式存储的，恐怕qrimage1.picture.assign(dm.query1.fieldbyname('图片'));是不行的吧！