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

如何判定有相同的圖檔?

答題得分者是:cashxin2002
huangeider
高階會員


發表:288
回覆:492
積分:231
註冊:2003-02-26

發送簡訊給我
#1 引用回覆 回覆 發表時間:2003-09-11 10:07:53 IP:210.201.xxx.xxx 未訂閱
小弟在資料庫中編輯中在儲存前欲判定有無相同圖檔以下是我的方法 qIMAGE 是TQUERY型態; QIMAGE.Close; QIMAGE.SQL.Clear; QIMAGE.SQL.ADD('SELECT * FROM IMAGE1 WHERE B003=' DBIMAGE1.xxx); QIMAGE.OPEN; IF QIMAGE.RecordCount>0 THEN APPLICATION,MessageBox('已有相同的圖片','錯誤視窗',MB_OK); TQUERY語法中的xxx與TDBIMAGE是相關連的(DBIMAGE1是要儲存前的圖); 請問在XXX中要如何做 「堅持」從洗馬桶做起 Aric
cashxin2002
版主


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

發送簡訊給我
#2 引用回覆 回覆 發表時間:2003-09-11 10:29:29 IP:63.84.xxx.xxx 未訂閱
您好﹗    小弟沒有直接用DBImage來做﹐相同的部分是選擇用DBEdit配合Image來做的﹐請見如下﹕
begin
  if OpenPictureDialog1.Execute then
    DBEdit1.Text := OpenPictureDialog1.FileName;
    Image1.Picture.LoadFromFile(DBEdit1.Text);
end;
//以DBEdit來記錄圖檔的路徑名稱﹐再以Image來顯示﹒
//在查詢是否重覆的時候﹐就可利用DBEdit1的Text來判斷﹐如下﹕
begin
  QImage.Close;
  QImage.SQL.Clear;
  QImage.SQL.Add('Select * From Image1 Where B003=''' DBEdit1.Text '''');
  QImage.Open;
  if QImage.RecordCount>0 then
    Application.MessageBox('已有相同的圖片','錯誤視窗',MB_OK);
...
參考看看﹗ ===================== 努力,相信會獲得美麗! 忻晟
------
忻晟
huangeider
高階會員


發表:288
回覆:492
積分:231
註冊:2003-02-26

發送簡訊給我
#3 引用回覆 回覆 發表時間:2003-09-11 10:57:43 IP:210.201.xxx.xxx 未訂閱
引言: 感謝
「堅持」從洗馬桶做起 Aric
系統時間:2024-06-28 5:10:21
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!