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