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