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了。