線上訂房服務-台灣趴趴狗聯合訂房中心
發文 回覆 瀏覽次數:1128
推到 Plurk!
推到 Facebook!

影像讀檔存檔的問題

答題得分者是:
cello
一般會員


發表:8
回覆:20
積分:5
註冊:2003-10-01

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-12-25 01:58:15 IP:211.76.xxx.xxx 未訂閱
請問一下...我使用了OpenPictureDialog來讀取影像來做處理... 那有沒有辦法將處理過後的影像全都存到我程式所在的資料夾中的pic資料夾中(如Image\pic).. 不管我的Image資料夾移到D槽或E槽都可以將處理過的影像存到Image的pic中...    我是使用下面的程式碼來存檔..     
 
   String temp ;
   temp = "..//pic//"   Now().FormatString("yyyymmddhhnnss")   ".bmp" ;
   MyImage->Picture->SaveToFile(temp) ;
但是這樣的話...如果我讀進來的檔不是在pic中的話..就會有錯誤... 而我是希望不論是從哪邊讀進來的檔..經過處理後都能存到pic中... 請大家幫幫我吧...謝謝~ 發表人 -

中階會員


發表:36
回覆:142
積分:70
註冊:2003-07-24

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-12-25 04:03:34 IP:163.23.xxx.xxx 未訂閱
cello 您好:    如果在存檔之前先判斷資料夾是位於哪一個槽之下呢?
您如果覺得這樣可以的話,那可試試以下的方式    void __fastcall TForm1::ButtonPicSaveClick(TObject *Sender)
{
String Path = "d:\\Image" ; // 預計存檔的路徑在 D 槽下
String temp = "\\pic"
if (DirectoryExists(Path)) // 看 D 槽下是否有 Image 的資料夾
  {
      Path = Path   temp ; // Path = D:\\Image\\pic
      CreateDir(path) ;  // 建 pic 的資料夾,若已存在,則不會覆蓋
      Path = Path   "\\"   Now().FormatString("yyyymmddhhnnss")   ".bmp" ; // 存檔路徑
      MyImage->Picture->SaveToFile(Path) ;
  }
else // 如果沒在 D 槽下的話,就往 E 槽去 Check
  {
    Path = "e:\\Image" ;
    if (DirectoryExists(Path)) // 以下的程式碼同上
      {
        Path = Path   temp ;
        CreateDir(path) ;
        Path = Path   "\\"   Now().FormatString("yyyymmddhhnnss")   ".bmp" ;
        MyImage->Picture->SaveToFile(Path) ;
      }
    else ShowMessage("資料夾不存在喔!") ; // 在 D 與 E 槽下都沒有 Image 資料夾時
  }
}    祝順心           
        
cello
一般會員


發表:8
回覆:20
積分:5
註冊:2003-10-01

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-12-25 10:32:37 IP:140.118.xxx.xxx 未訂閱
不好意思... 我在試的時候編譯時發生了 [C++ Error] Unit1.cpp(164): E2141 Declaration syntax error 的錯誤...請問是什麼問題呢?謝謝~

中階會員


發表:36
回覆:142
積分:70
註冊:2003-07-24

發送簡訊給我
#4 引用回覆 回覆 發表時間:2003-12-25 13:06:17 IP:163.23.xxx.xxx 未訂閱
cello 您好:    之前的語法出了點錯,造成您的困擾真是抱歉
下面的程式小弟已經有測試過了,應該沒問題了,您再試試    void __fastcall TForm1::Button1Click(TObject *Sender)
{
String Path = "d:\\Image" ; // 預計存檔的路徑在 D 槽下
String temp = "\\pic" ;
if (DirectoryExists(Path)) // 看 D 槽下是否有 Image 的資料夾
  {
      Path = Path   temp ; // Path = D:\\Image\\pic
      CreateDir(Path) ;  // 建 pic 的資料夾,若已存在,則不會覆蓋
      Path = Path   "\\"   Now().FormatString("yyyymmddhhnnss")   ".bmp" ; // 存檔路徑
      MyImage->Picture->SaveToFile(Path) ;
  }
else // 如果沒在 D 槽下的話,就往 E 槽去 Check
  {
    Path = "e:\\Image" ;
    if (DirectoryExists(Path)) // 以下的程式碼同上
      {
        Path = Path   temp ;
        CreateDir(Path) ;
        Path = Path   "\\"   Now().FormatString("yyyymmddhhnnss")   ".bmp" ;
        MyImage->Picture->SaveToFile(Path) ;
      }
    else ShowMessage("資料夾不存在喔!") ; // 在 D 與 E 槽下都沒有 Image 資料夾時
  }
}     
cello
一般會員


發表:8
回覆:20
積分:5
註冊:2003-10-01

發送簡訊給我
#5 引用回覆 回覆 發表時間:2003-12-25 14:12:13 IP:140.118.xxx.xxx 未訂閱
沒問題了~~很好的方法說!!! 真的非常感謝您的幫忙~~~~謝謝!!!!
系統時間:2024-05-06 2:51:23
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!