??????? 以前用FastReport制作報(bào)表,從來(lái)沒(méi)有打印過(guò)圖片,這段時(shí)間做了個(gè)打印個(gè)人簡(jiǎn)歷的程序，需要打印照片。試著在frreport模板中加載照片沒(méi)問(wèn)題，可是想要?jiǎng)討B(tài)的裝載照片要怎么做呢，我的要求是將個(gè)人簡(jiǎn)歷包括照片存放在數(shù)據(jù)庫(kù)中，在用戶查看簡(jiǎn)歷時(shí)，先將簡(jiǎn)歷數(shù)據(jù)載入，照片放在IMAGE控件中，如果要打印，點(diǎn)擊[打印]按鈕即可。

?????? 由于每個(gè)人的簡(jiǎn)歷照片都不同，所以只能在打印時(shí)裝入照片。上網(wǎng)找了段代碼，是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的照片}

運(yùn)行后發(fā)現(xiàn)：第一次打印時(shí)沒(méi)問(wèn)題，但退出后提示錯(cuò)誤，而image1中的照片也不見(jiàn)了，估計(jì)是TfrPictureView打印結(jié)束時(shí)，將Image1里的照片F(xiàn)ree了。試著將最后一句代碼如下修改：

ft.Picture.Assign(image1.Picture) ;

OK了。