Delphi FastReport动态加载图片
| Delphi??FastReport動(dòng)態(tài)加載圖片 2011-01-06 ????????作者:李海彬 閱讀:684 |
| ??????? 以前用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; ?參照著在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了。 |
轉(zhuǎn)載于:https://www.cnblogs.com/hssbsw/archive/2012/06/03/2533078.html
總結(jié)
以上是生活随笔為你收集整理的Delphi FastReport动态加载图片的全部?jī)?nèi)容,希望文章能夠幫你解決所遇到的問(wèn)題。
- 上一篇: PowerDesigner 小工具窗
- 下一篇: 一个完整的操作UI线程的例子,用到了多种