Delphi FastReport动态加载图片

Delphi FastReport动态加载图片
2011-01-06 作者:李海彬　　　阅读:684

以前用FastReport制作报表,从来没有打印过图片,这段时间做了个打印个人简历的程序，需要打印照片。试着在frreport模板中加载照片没问题，可是想要动态的装载照片要怎么做呢，我的要求是将个人简历包括照片存放在数据库中，在用户查看简历时，先将简历数据载入，照片放在IMAGE控件中，如果要打印，点击[打印]按钮即可。

由于每个人的简历照片都不同，所以只能在打印时装入照片。上网找了段代码，是C ++ Builder的：

TfrPictureView *pic;
pic=(TfrPictureView*)frReport1-> FindObject( "Picture1 ");
pic-> Picture-> LoadFromFile( "C:\\pic\\xxx.bmp);

参照着在DELPHI7下改成这样。

var ft:TfrPictureView;

ft:=frReport1.FindObject('picture1') as TfrPictureView;

ft.Picture:=image1.picture; {image1中加载了JPEG的照片}

运行后发现：第一次打印时没问题，但退出后提示错误，而image1中的照片也不见了，估计是TfrPictureView打印结束时，将Image1里的照片Free了。试着将最后一句代码如下修改：

ft.Picture.Assign(image1.Picture) ;

OK了。

转载于:https://www.cnblogs.com/hssbsw/archive/2012/06/03/2533078.html

Delphi FastReport动态加载图片相关推荐

delphi fastreport 动态加载图片
1 (frxReport1.FindObject('picture1') as TfrxPictureView).Picture.LoadFromFile('d:\c.jpg'); 2 frxRepo ...
Delphi FMX正确加载图片最大限度减少内存占用（之一TBitmapSurface）
Delphi FMX正确加载图片最大限度减少内存占用(之一TBitmapSurface) 国庆前,无意间发现App内存占用陡增,发现是几张4K图片(7680x4320像素)加载引发的(TImage.B ...
Delphi FMX正确加载图片最大限度减少内存占用（之二TImageList）
Delphi FMX正确加载图片最大限度减少内存占用(之二TImageList) 继上篇<Delphi FMX正确加载图片最大限度减少内存占用(之一TBitmapSurface)>之后,我 ...
vue+elementui 中src动态加载图片的时候不起作用
vue+elementui 中src动态加载图片的时候不起作用代码如下: <el-table-column align="center" label="宠物图片& ...
vue 动态加载图片路径报错解决方法
vue 动态加载图片路径报错解决方法参考文章: (1)vue 动态加载图片路径报错解决方法 (2)https://www.cnblogs.com/qingcui277/p/8930507.html ...
jQuery页面滚动动态加载图片等元素
相信大家见过好多随着页面滚动,动态加载图片等元素的网站,我也是,以前见了好多,只是没时间去研究,今天晚上有空,百度了一下找了一个jquery插件,作者张鑫旭,效果挺好,代码也很简单,使用更方便,废话不 ...
解决问题：swiper动态加载图片后无法滑动
解决问题:swiper动态加载图片后无法滑动参考文章: (1)解决问题:swiper动态加载图片后无法滑动 (2)https://www.cnblogs.com/yangguoe/p/9857398 ...
html5动态加载图片和加载视频
这两在做一个动态加载图片的东西,有点类似QQ发说说里面附带图片的那种,经过测试可以任意添加.删除,然后该删除的位置被后一位自动填充,还有一个bug,就是最后一个图片的控件没做处理,删掉最后一个就会导致 ...
动态加载图片，实现瀑布流效果
瀑布流 1.瀑布流瀑布流,可以有多列,每一列的高度可以不相同,但是宽度必须一样: 排列的方式是,从左往右排列,哪一列总高度最小,就优先排序,把图片放在这一列. 这样排完所有的图片后,可以保证每一列的 ...

Delphi FastReport动态加载图片

Delphi FastReport动态加载图片相关推荐

最新文章

热门文章