請教各位高手,我要寫一個upload圖片的程式 Form1 有 Edit1, Image, button1, OpenpictureDialog1,table1, query1 當使用者按下button時,OpenpictureDialog會出現,使用者可以選擇圖片.我會比對edit1的id是否已經存在,如還沒就新增. Table1.append; Table1.FieldByName('id').AsString:=Edit1.text; Table1.FieldByname('ImageName').AsString := extractfilename(OpenPictureDialog1.filename); TBlobField(Table1.FieldByName('images')).loadfromfile(OpenPictureDialog1.filename); Table1.post; Image1.Picture.LoadFromFile(OpenPictureDialog1.filename); 新增是沒問題,但如果用query 來 update的話,會出現error.請問有那位知道寫法嗎? 謝謝~

var
  bs: TBlobStream;
begin
  Query1.Edit;
  try
    bs := Query1.CreateBlobStream(Table1.FieldByName('Images'), bmWrite);
    try
      Image1.Picture.SaveToStream(bs);
    finally
      bs.Free;
    end;
    Query1.Post;
  except
    Query1.Cancel;
    raise;
  end;
end;

還是您出現了什麼 Error 訊息？ --- 奉行寶蘭主義 服從天使領導 保衛各版安全 完成KTop大業 發表人 - hagar 於 2003/07/07 18:54:57

引言: 請教各位高手,我要寫一個upload圖片的程式 Form1 有 Edit1, Image, button1, OpenpictureDialog1,table1, query1 當使用者按下button時,OpenpictureDialog會出現,使用者可以選擇圖片.我會比對edit1的id是否已經存在,如還沒就新增. Table1.append; Table1.FieldByName('id').AsString:=Edit1.text; Table1.FieldByname('ImageName').AsString := extractfilename(OpenPictureDialog1.filename); TBlobField(Table1.FieldByName('images')).loadfromfile(OpenPictureDialog1.filename); Table1.post; Image1.Picture.LoadFromFile(OpenPictureDialog1.filename); 新增是沒問題,但如果用query 來 update的話,會出現error.請問有那位知道寫法嗎? 謝謝~

你用的是db或dbf檔嗎? 如果是, 使用query來做為更新的話, 要搭配updateSQL元件及query的cacheupdate與requestlive都要為true才能更新!

謝謝大家~ 我後來用TABLE去UPDATE就是現用LOCATE去檢查TABLE中是否有那筆資料,再用TABLE.EDIT去改.... 這樣就可以了 QUERY的還是有ERROR... Query1.close; Query1.SQL.clear; Query1.SQL.add('update shippingmarks'); Query1.SQL.add('set ImageName = :N, TBlobField(Query1.FieldByName('IMAGE')).loadfromfile(OpenPictureDialog1.filename)'); Query1.SQL.add('where ID = :H'); Query1.ParamByname('N').AsString := extractfilename(OpenPictureDialog1.filename); TBlobField(Query1.ParamByName('M')).loadfromfile(OpenPictureDialog1.filename); Query1.ParamByname('H').AsString := Edit30.text; Query1.Prepare; Query1.open;

  Query1.close;
  Query1.SQL.clear;
  Query1.SQL.add('update shippingmarks');
  Query1.SQL.add('set ImageName = :N, Images = :M');
  Query1.SQL.add('where ID = :H');
  Query1.ParamByname('N').AsString := extractfilename(OpenPictureDialog1.filename);
  TBlobField(Query1.ParamByName('M')).loadfromfile(OpenPictureDialog1.filename);
  Query1.ParamByname('H').AsString := Edit30.text;
  Query1.Prepare;
  Query1.ExecSQL;

--- 奉行寶蘭主義 服從天使領導 保衛各版安全 完成KTop大業

thank you hagar~

hi hagar,請問你一下:我有你的方法可以了,可是當image 的 height或width around 180 時,在儲存時出現 TBlob length error. 我的資料庫設定image 的datatype 是image, lenght 16. 是那個地方錯了.....~~~~ (如果image大小在50以內都沒問題) 我用的是bmp檔

執行 BDE, 在 Configuration 頁中 加大 Blob Size 的值試試 --- --<-<-<@

hi hagar,還是不行說~

Blob To Cache 這項也加大呢？ --- --<-<-<@

還是不行說~~~

那直接設定 TDatabase 元件的 Param 屬性呢？ --- --<-<-<@