自動載入檔案 並自動運算 |
尚未結案
|
pusong
一般會員 發表:2 回覆:7 積分:1 註冊:2003-02-27 發送簡訊給我 |
|
pcboy
版主 發表:177 回覆:1838 積分:1463 註冊:2004-01-13 發送簡訊給我 |
|
pusong
一般會員 發表:2 回覆:7 積分:1 註冊:2003-02-27 發送簡訊給我 |
|
cashxin2002
版主 發表:231 回覆:2555 積分:1937 註冊:2003-03-28 發送簡訊給我 |
您好﹗ 相關的文章有很多﹐關鍵看您是想將圖檔直接存入資料庫﹐或是將圖檔的路徑存入資料庫中﹐我比較建議選用后者﹐其好處可以減小資料庫檔案空間﹐因為圖檔存進資料庫﹐一定是增加了蠻可觀的大小﹐這種變通的方法﹐可避免因為因資料庫檔案空間過大而影響資料存取的效率﹐請見如下連接并結合迴圈方法即可完成您的需求﹕
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
------
忻晟 |
zombit
初階會員 發表:63 回覆:39 積分:30 註冊:2004-05-11 發送簡訊給我 |
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 |
pusong
一般會員 發表:2 回覆:7 積分:1 註冊:2003-02-27 發送簡訊給我 |
|
zombit
初階會員 發表:63 回覆:39 積分:30 註冊:2004-05-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |