請問 如何做到 設定一個button來執行 自動載入圖片檔案 在執行想要做的動作後 繼續自動載入下一張圖片檔案？ （檔案主檔名已有順序） 要如何以DELPHI實現呢？ 感謝～～

>在執行想要做的動作後 繼續自動載入下一張圖片檔案？ 問題很模糊 , "在執行想要做的動作後" 指的是什麼 ? ********************* 如果您滿意答案,請結案 *********************

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

[quote] >在執行想要做的動作後 繼續自動載入下一張圖片檔案？ 問題很模糊 , "在執行想要做的動作後" 指的是什麼 ? 真抱歉 說的不清楚 問題如下： 就是我有主檔名為連續的BMP圖檔 （如 001.bmp 002.bmp 003.bmp ....100.bmp 等） 在經過我設定一個BUTTON後 他會去對單一張圖檔影像載入並去做影像處理 並記錄在資料庫中 在處理完後 會自動再把下一張圖檔載入來做處理 不知道這樣問題 是否清楚？

您好﹗    相關的文章有很多﹐關鍵看您是想將圖檔直接存入資料庫﹐或是將圖檔的路徑存入資料庫中﹐我比較建議選用后者﹐其好處可以減小資料庫檔案空間﹐因為圖檔存進資料庫﹐一定是增加了蠻可觀的大小﹐這種變通的方法﹐可避免因為因資料庫檔案空間過大而影響資料存取的效率﹐請見如下連接并結合迴圈方法即可完成您的需求﹕ 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    ================================= 有空來瞅瞅我﹗因為我是您的朋友﹐有您真好﹗ ================================ 發表人 - cashxin2002 於 2005/06/11 14:22:25

------
忻晟

Hi,  這是把目錄下的圖檔做處理, 按一次鈕全部圖檔處理完.     

 
procedure TForm1.btn1Click(Sender: TObject);
var
  img: TBitmap;
  imgfile: string;
  i: Integer;
begin      // 001 到 004
  for i := 1 to 4 do begin
    // 格式化出 3 位數字,不足三位前面補 0            
    imgfile := Format('%3.3d.bmp', [i]);        if FileExists(imgfile) then begin
      img := TBitmap.Create;          // 讀入圖檔
      img.loadfromfile(imgfile);          // 對圖檔處理, 這邊是把圖擷取 96x96 的大小.
      img.Width := 96;
      img.Height := 96;          // 存檔
      img.SaveToFile(imgfile);
      img.free;
    end
    else begin
      showmessage(imgfile   ' 不存在');
    end;
  end;
end;
end.    

發表人 - zombit 於 2005/06/11 14:17:48

// 對圖檔處理, 這邊是把圖擷取 96x96 的大小. img.Width := 96; img.Height := 96; 若每張圖的大小不一 該如何設定？ img.Width := ＊; img.Height := ＊; 設成星號嗎？ 謝謝回應

引言: 若每張圖的大小不一 該如何設定？ img.Width := ＊; img.Height := ＊; 設成星號嗎？

Hi, img.Width 與 img.Height 設定的是要存檔的圖檔大小. 不是要處理前的圖檔大小. 事實上 img.Width 與 img.Height 在你讀進圖檔後, 會被設成那張圖的 width 和 height.