Delphi FastReport动态加载图片

 以前用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了。

你可能感兴趣的:(Delphi FastReport动态加载图片)