如何將圖片加入access的資料表中(同時加入多筆資料) |
尚未結案
|
bigcome2004
一般會員 發表:28 回覆:19 積分:9 註冊:2004-02-17 發送簡訊給我 |
|
yachanga
資深會員 發表:24 回覆:335 積分:296 註冊:2003-09-27 發送簡訊給我 |
Hi bigcome2004您好 以站長的範例為例子,加一個按鈕Button1..
以下為簡單例子...
procedure TForm1.Button1Click(Sender: TObject); var FileRec:TSearchrec; Sour: String; begin Sour:='D:\photo\'; if FindFirst(Sour '*.jpg',faAnyfile,FileRec) = 0 then repeat begin ADOTable1.append; ADOTable1.FieldByName('IMG_FILENAME').AsString:=extractfilename(Sour FileRec.Name); ADOTable1.FieldByName('IMG_FILESIZE').AsInteger:=filesizes(Sour FileRec.Name); TBlobField(ADOTable1.FieldByName('IMG_FILEDATA')).loadfromfile(Sour FileRec.Name); ADOTable1.post; ADOTable1AfterScroll(ADOTable1); end; until FindNext(FileRec)<>0; FindClose(FileRec); end;此簡單例子以jpg字尾,單一目錄來作, 放在站長範例中可行 如果您的目錄有子目錄, 或是您想要其他格式圖檔, 請以此為延伸 目錄操作可參考 http://delphi.ktop.com.tw/topic.php?topic_id=40942 希望對您有幫助~ |
bigcome2004
一般會員 發表:28 回覆:19 積分:9 註冊:2004-02-17 發送簡訊給我 |
|
yachanga
資深會員 發表:24 回覆:335 積分:296 註冊:2003-09-27 發送簡訊給我 |
引言: dear yachanga: 非常感謝你的指導...你的程式我已經試出來了...可以使用而且很讚...但現在又出現了一個問題是我之前沒想到的....也就是說...當連續被按下多次新增鈕時...會重複加入同樣的圖檔...而不會只加入新擷取的圖檔...不知是否有辦法判斷資料夾中的當案有否跟資料庫中以加入的圖檔重複,然後只加入新擷取進資料夾的圖檔. 感謝再感謝..時萬火急中 再謝謝一次... 可用檔名判斷 > > >>>< face="Verdana, Arial, Helvetica"> ~悠遊法國號~ |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |