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

請問有關Image的存入問題

尚未結案
20052020
初階會員


發表:121
回覆:79
積分:40
註冊:2005-01-18

發送簡訊給我
#1 引用回覆 回覆 發表時間:2005-06-10 16:50:59 IP:61.59.xxx.xxx 未訂閱
請問各位大大 幫我看看下面是那裡有問題 可以顯視圖片,但是儲存後 重開程式後圖片還是沒存進Image1    if   FileExists(Edit1.Text)=True then     begin      Image1.Picture.LoadFromFile(Edit1.Text);//(選定圖檔後,會依照           Edit1 show圖在Image1)         Image1.Picture.LoadFromFile(Edit1.Text);//(Image1會依照Edit1的       路境將圖存在Image1裡)         close;    3Q
------
Xax
RedSnow
版主


發表:79
回覆:1322
積分:845
註冊:2003-12-15

發送簡訊給我
#2 引用回覆 回覆 發表時間:2005-06-10 18:55:10 IP:218.19.xxx.xxx 未訂閱
20052020 您好:    您列出來的程式碼中用到兩次 LoadFromFile(),但是並無儲存的動作,儲存動作的函式是 SaveToFile(),檢查一下您的程式敘述是否有誤?
20052020
初階會員


發表:121
回覆:79
積分:40
註冊:2005-01-18

發送簡訊給我
#3 引用回覆 回覆 發表時間:2005-06-13 11:13:59 IP:61.59.xxx.xxx 未訂閱
if   FileExists(Edit1.Text)=True then      begin           login.Formlogin.Image1.Picture.SaveToFile(Edit1.Text);      login.Formlogin.Image1.Picture.LoadFromFile(Edit1.Text);         close;    不好意思~我改正還是不可以~
------
Xax
RedSnow
版主


發表:79
回覆:1322
積分:845
註冊:2003-12-15

發送簡訊給我
#4 引用回覆 回覆 發表時間:2005-06-13 12:04:36 IP:219.137.xxx.xxx 未訂閱
20052020 您好:    我測試的結果是 OK 的,可能是程式的其它地方沒配合好吧?您現在貼上來的動作是先存檔,然後再讀檔重新顯示,那麼您是否在執行您貼上來的那段程序之前,確認 Image1 已經有內容了呢? 如果程式執行過程沒有發生錯誤的話,您不妨在執行過您寫的那一段程序之後,檢查一下磁碟上是否有產生對應的檔案?並看看檔案大小為何?另外也可以使用其它的看圖程式查看一下該檔,看是不是與您所要的內容是相同的?
20052020
初階會員


發表:121
回覆:79
積分:40
註冊:2005-01-18

發送簡訊給我
#5 引用回覆 回覆 發表時間:2005-06-13 15:50:40 IP:61.59.xxx.xxx 未訂閱
感謝RedSnow大大 以下是我的程式碼 麻煩過目一下    procedure TFormLOGINJK.BitBtn1Click(Sender: TObject); begin      openPictureDialog1.FileName    := Edit1.Text;      openPictureDialog1.InitialDir  :=openPictureDialog1.FileName;      openPictureDialog1.Execute;      Edit1.Text                     :=openPictureDialog1.FileName;        if   FileExists(Edit1.Text)=True then      begin      login.Formlogin.Image1.Picture.LoadFromFile(Edit1.Text);//這行ok      login.Formlogin.Image1.Picture.SaveToFile(Edit1.Text);//沒有反映      close; end;    是可以改變圖檔 但是重新關閉程式後,開起又回到原圖檔了 是不是要用令一種方式~就是建一個目錄讓它讀 在把要存的存在目錄中讓它讀    請教RedSnow大大
------
Xax
RedSnow
版主


發表:79
回覆:1322
積分:845
註冊:2003-12-15

發送簡訊給我
#6 引用回覆 回覆 發表時間:2005-06-13 16:56:53 IP:219.137.xxx.xxx 未訂閱
20052020 您好:    我有點被您搞糊塗了....,您第一次試寫成兩個 LoadFromFile,第二次是寫成先 SaveToFile 再 LoadFromFile,現在則是變成先 LoadFromFile 再 SaveToFile....?    以您這次貼上來的程式碼來看,您僅僅是將圖檔載入,然後又直接的儲存起來,既未變更圖檔內容,也沒有變更儲存檔案的位置與名稱,那您存的不就是 "原圖" 嗎?關閉程式後再開啟該圖,內容當然不會變啊,這樣有什麼不對嗎?    如果您只是 "摘錄" 您的程式片斷貼上來,那麼您應該要摘錄得完整一點,將其它相關的處理過程也一併貼上來,否則真的很難搞懂您到底要做何種處理?問題到底是什麼耶?
deity
尊榮會員


發表:90
回覆:876
積分:678
註冊:2003-05-09

發送簡訊給我
#7 引用回覆 回覆 發表時間:2005-06-13 16:57:28 IP:218.15.xxx.xxx 未訂閱
插个花: 20052020您好;您要实现“儲存後重開程式後将圖片存進Image1”有SaveToFile是不行的,SaveToFile用于将image1的图片保存至电脑中,并不是将图片保存至image1中,image1只是显示的一个容器。 想要实现您所要的功能,可参考如下: Justmade 前辈:【Delphi】【發表】在 Runtime 直接將資料存進 Exe  http://delphi.ktop.com.tw/topic.php?TOPIC_ID=31613 里面有实例和介绍,试试看 <> ============================ 为什么经过多年以后,得失的过程如此冷漠 ============================
cashxin2002
版主


發表:231
回覆:2555
積分:1937
註冊:2003-03-28

發送簡訊給我
#8 引用回覆 回覆 發表時間:2005-06-13 18:31:20 IP:202.62.xxx.xxx 未訂閱
您好﹗    相關的文章有很多﹐關鍵看您是想將圖檔直接存入資料庫﹐或是將圖檔的路徑存入資料庫中﹐我比較建議選用后者﹐其好處可以減小資料庫檔案空間﹐因為圖檔存進資料庫﹐一定是增加了蠻可觀的大小﹐這種變通的方法﹐可避免因為因資料庫檔案空間過大而影響資料存取的效率﹐請見如下連接﹕ http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37248 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=37249 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=30976 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=19482 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=27715    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================
------
忻晟
系統時間:2024-06-02 18:02:32
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!