全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1770
推到 Plurk!
推到 Facebook!

我是這樣查找圖片的,但總是出最後一張圖片呀?fastreport

答題得分者是:hahalin
hua2000
中階會員


發表:102
回覆:200
積分:65
註冊:2006-11-04

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-04-14 14:54:59 IP:218.20.xxx.xxx 未訂閱
我是這樣查找圖片的,但總是出不了圖片呀? 在master表中有一個companyname field,detail表中有一個kind field, 我通過這兩個field的值來查找圖片的 procedure Tmainform.frReport1BeginPage(pgNo: Integer); var picf:string; begin picf:='t:\' trim(wwdbcombobox2.Text) '\' trim(wwdbedit6.Text) '.jpg'; if fileexists(picf) then (frreport1.FindObject('Picture1') as Tfrpictureview).Picture.LoadFromFile(picf) else (frreport1.FindObject('Picture1') as TfrpictureView).Picture:=nil; end; 但圖片就是出不來,出錯! (每個detail表中的每一筆數據都對應的有一圖片的,但要通過過主表的companyname與detail表中的kind要顯示圖片于fastreport中的picture中) 不知如何辦才好! IMPROVE FOREVER
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-04-14 17:58:15 IP:210.243.xxx.xxx 未訂閱
 可否將資料庫與報表檔傳上來     以便幫您處理...     Fear is the path to the dark side. Fear leads to anger.Anger leads to hate.Hate leads to suffering....
hua2000
中階會員


發表:102
回覆:200
積分:65
註冊:2006-11-04

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-04-14 18:51:13 IP:218.19.xxx.xxx 未訂閱
可以呀!    地址: http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28691        http://delphi.ktop.com.tw/topic.php?TOPIC_ID=28688(maybe you couldn't visit this.) 看看有沒有!    有不明的還可以:yahoomessenger:lovelyman_gold@yahoo.com.cn    IMPROVE FOREVER 發表人 -
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-04-14 22:00:13 IP:203.203.xxx.xxx 未訂閱
      你只有附上報表檔跟資料庫,      資料庫找到兩個table      shipmentbillmain,shipmentbilldetai      報表檔對應的datamodule檔案沒有一起附上來,
  
  preview會出現錯誤      an error occured during calculating      [dm.adodatasetmain."auditperson"]      report:fastreport1
  object:memo11...      移掉換memo13
  
  還有,報表中相關的caption是簡體字....-____-      這樣不好查喔...    
Fear is the path to the dark side. Fear leads to anger.Anger leads to hate.Hate leads to suffering....
hua2000
中階會員


發表:102
回覆:200
積分:65
註冊:2006-11-04

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-04-15 09:24:30 IP:218.20.xxx.xxx 未訂閱
這可就麻煩啦! 我以前在此站上下了一些軟體,都是亂碼,我也用過南極星等軟件來convert,但還是亂碼,想一想還是英文的好呀! 不過還是感謝你!    
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#6 引用回覆 回覆 發表時間:2003-04-15 12:36:24 IP:210.243.xxx.xxx 未訂閱
  哎呀呀,沒有幫你解決問題,怎可以給分呢...     Fear is the path to the dark side. Fear leads to anger.Anger leads to hate.Hate leads to suffering....
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#7 引用回覆 回覆 發表時間:2003-04-15 18:08:16 IP:210.243.xxx.xxx 未訂閱
  我收到你的訊息了,公司的電腦沒有裝fastreport,晚上   回家後再處理.      你要不要先測試看看,   用一個edit或是label類型的報表物件,將你所要動態指定   的圖檔檔名秀出來,當秀出來的結果是對的時候,   你再動態指定frpictureview的圖片來源就確定會是對的.     Fear is the path to the dark side. Fear leads to anger.Anger leads to hate.Hate leads to suffering....
hua2000
中階會員


發表:102
回覆:200
積分:65
註冊:2006-11-04

發送簡訊給我
#8 引用回覆 回覆 發表時間:2003-04-15 18:52:59 IP:218.20.xxx.xxx 未訂閱
我在程序中能很好的顯示圖片,也是通過master表的一個Tcombobox的text和detail表的一個Tdbedit的text來正确顯示圖片的;可在報表中我也設了打印兩次,也用了上面講的代碼,可就是不行!(只出現一個圖片,所有的報表中的從表中的圖片都是同一個圖片,本應和程序中一樣有不同的圖片才對) IMPROVE FOREVER 發表人 - hua2000 於 2003/04/15 18:56:05
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#9 引用回覆 回覆 發表時間:2003-04-15 23:17:12 IP:203.203.xxx.xxx 未訂閱
  建立資料庫後      依據你的datamodule跟fastreport檔案建立一個測試project      執行時會出現 對於 picture1的access violation      根據fastreport的help指出      function FindObject(Name: String): TfrView;      findobject的回傳值是tfrview類型      而再查tfrview      Description This object is parent for all visual objects of FR. 可以知道tfrview是tfrpictureview的父類別. 我檢驗的結果如上,很抱歉不能解決你的問題,我很好奇你的還可以 show一張同樣的圖片,是不是你在設計報表的時候就指定一個圖檔 來檢驗排版用的. Fear is the path to the dark side. Fear leads to anger.Anger leads to hate.Hate leads to suffering.... 發表人 - hahalin 於 2003/04/15 23:18:31
hua2000
中階會員


發表:102
回覆:200
積分:65
註冊:2006-11-04

發送簡訊給我
#10 引用回覆 回覆 發表時間:2003-04-16 09:43:50 IP:218.20.xxx.xxx 未訂閱
上面那個是有問題的, 我又試下面這個還是不行, 你參考一下 (frreport1.FindObject('picture1') as Tfrpictureview).Picture.Graphic:=mainform.Image1.Picture.Graphic; 但上面這個代碼只能顯示出從表中數據對應的第一張圖片,所有的picture1都顯示的是這一個圖片! IMPROVE FOREVER
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#11 引用回覆 回覆 發表時間:2003-04-16 09:54:07 IP:210.243.xxx.xxx 未訂閱
你可能要等我到晚上     我今天晚上期中考...     白天要抱個佛腳...     Fear is the path to the dark side. Fear leads to anger.Anger leads to hate.Hate leads to suffering.... 發表人 - hahalin 於 2003/04/16 09:55:21
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#12 引用回覆 回覆 發表時間:2003-04-16 21:50:49 IP:203.203.xxx.xxx 未訂閱
引言: (frreport1.FindObject('picture1') as Tfrpictureview).Picture.Graphic:=mainform.Image1.Picture.Graphic;
如果你這樣可以,那也就是說,在form上拉一個dbimage,去對應資料庫的圖片 欄位, 也就是說,你在adodataset新增一個calculated field,type設為blob. 在adodataset的oncalculate事件去動態存入這個欄位,就可以解了. 不知道這個方式你能否接受. 或是,一百零壹招,開個報表資料庫,就解決了,或是clientdataset也可以, 費事了點. Fear is the path to the dark side. Fear leads to anger.Anger leads to hate.Hate leads to suffering.... 發表人 - hahalin 於 2003/04/16 21:57:08
hua2000
中階會員


發表:102
回覆:200
積分:65
註冊:2006-11-04

發送簡訊給我
#13 引用回覆 回覆 發表時間:2003-04-17 08:24:58 IP:218.20.xxx.xxx 未訂閱
但我程序中的image1顯示的圖片都是從D盤上找出來顯示在image1上的呀,不是存在資料庫中的,如果存在資料庫中的話,有幾個G都不止呀!    在adodataset的oncalculate事件也沒有找到呀,不知何處!    也許報表天生就是一個難題!
hahalin
版主


發表:295
回覆:1698
積分:823
註冊:2002-04-14

發送簡訊給我
#14 引用回覆 回覆 發表時間:2003-04-17 08:47:23 IP:210.243.xxx.xxx 未訂閱
 有的,oncalcfields     你可以在這個事件中,依據你的kind欄位值,去取得圖片讀入tblobfield,
 多動點腦筋想想囉,     程式這麼好寫,就不用學囉...
Fear is the path to the dark side. Fear leads to anger.Anger leads to hate.Hate leads to suffering....
系統時間:2024-05-03 13:33:54
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!