BLOB Not Open |
|
尚未結案
|
|
Teamfaith
一般會員   發表：3 回覆：4 積分：1 註冊：2005-05-20 發送簡訊給我 |
大大們, 參考過各位的blod文章後,嘗試編寫程式如下,但執行後有bde提示"blod not open". 希望各位幫忙改正. 謝謝!!!. sfile := 'c:\fpf.bmp';
TBF := TBLOBField(table1.fieldbyname('FP_image'));
image1.Picture.LoadFromFile(sfile);
fs := TFileStream.Create(sfile,fmOpenRead);
query1.SQL.Clear;
query1.SQL.Add('select * from fps_info where seq_id = 2');
query1.ExecSQL;
table1.Edit;
bs := TBlobStream.create(TBF,bmWrite);
table1.post;
bs.Free;
fs.Free;
|
|
supman
尊榮會員  發表：29 回覆：770 積分：924 註冊：2002-04-22 發送簡訊給我 |
您好: query1.SQL.Clear;
query1.SQL.Add('select * from fps_info where seq_id = 2');
query1.Open;//這裡是open才對. table1.Edit;//這裡也可能導致問題
bs := TBlobStream.create(TBF,bmWrite);
table1.post; 能否貼出完整的一段程式出來,以利大家知道問題出在哪. 發表人 - supman 於 2005/05/31 18:10:00
|
|
Teamfaith
一般會員 發表：3 回覆：4 積分：1 註冊：2005-05-20 發送簡訊給我 |
|
|
Teamfaith
一般會員 發表：3 回覆：4 積分：1 註冊：2005-05-20 發送簡訊給我 |
該段程式如下:-
procedure TForm1.Button4Click(Sender: TObject);
var
TBF: TBlobfield;
BS : TBlobStream;
FS : TFileStream;
sfile : String;
begin
sfile := 'c:\fpf.bmp';
TBF := TBLOBField(table1.fieldbyname('FP_image'));
image1.Picture.LoadFromFile(sfile);
fs := TFileStream.Create(sfile,fmOpenRead);
query1.SQL.Clear;
query1.SQL.Add('select * from fps_info where seq_id = 2');
query1.open;
table1.Edit;
bs := TBlobStream.create(TBF,bmWrite);
table1.post;
bs.Free;
fs.Free;
{ form1.FPS_Database.StartTransaction;
begin
try
form1.Query1.SQL.Text := form1.UpdateSQL1.InsertSQL.Text;
form1.Query1.ExecSQL;
except
form1.FPS_Database.Rollback;
end;
form1.FPS_Database.Commit;
end;
form1.Memo1.Lines.Add(inttostr(table1.RecordCount));}
end;
|
|
supman
尊榮會員 發表：29 回覆：770 積分：924 註冊：2002-04-22 發送簡訊給我 |
|
|
Teamfaith
一般會員 發表：3 回覆：4 積分：1 註冊：2005-05-20 發送簡訊給我 |
發表時間：2005-05-31 17:45:59
IP:210.176.xxx.xxx 未訂閱
系統時間：2024-07-02 0:19:42
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |