如何给FastReport报表导入一张图片并显示

Posted 2023-03-09

我制作了一个FastReport报表文件：MyReport.fr3我在这个报表里放了一个Picture1控件，我想在运行的时候动态导入一张图片到该报表的Picture1控件中去，我该怎么做呢？

参考技术A 你的意思是想在A4纸张上打印2次这样的内容是么？好比上面的是存根。
如果你要会编程的话 可以把所有的报表上的控件复制一遍添加在报表文件里。即可。如果没有编程基础的话，那只能依靠设置打印来完成了，可以设置个字定义的纸张（是A4一半大小）然后打印时设置打印2份即可。
参考技术B 碰巧，这几天做了一个个人简历的报表，和你的问题类似，把源码贴出来，你参考一下吧。
procedure Tzjl_rsda_cx_f.frReport_grjlBeforePrint(Memo: TStringList;
View: TfrView);
var
xpstream:TStringStream;
xpjpeg:Tjpegimage;
begin
if View.Name='Picture1' then
begin
xpstream:=TStringStream.Create('');
TBlobField(ADOQuery_xp.FieldByName('x_xp')).SaveToStream(xpstream);
xpstream.Position:=0;
xpjpeg:=TJPEGImage.Create();
xpjpeg.LoadFromStream(xpstream);
TfrPictureView(View).Picture.Bitmap.Assign(xpjpeg);
xpstream.Free;
xpjpeg.Free;
end;
end;

应该能看懂吧。
祝你好运！！！