Firedac 在資料表中插入BLOB資料的方法

沧江魅影發表於2024-08-18

準備在一個比較簡單的資料表中插入圖片。

該資料表的建立程式碼如下：

CREATE TABLE "imagelist" (
"id"  INTEGER PRIMARY KEY AUTOINCREMENT NOT NULL,
"name"  ftstring(10) NOT NULL DEFAULT 'image',
"pic"  BLOB
);

我準備把一個TIMAGELIST（命名為il1）中的圖片匯入資料表中。

首先想到的方法很簡單，就是直接透過append資料的方法，程式碼如下：

複製程式碼
 1 var i:integer;
 2     img:TBitmap;
 3     imdata:TBlobField;
 4     st:TMemoryStream;
 5     S:string;
 6 begin
    //首先清空資料庫
 7   qry1.ExecSQL('delete from imagelist');
 8   qry1.Open('select * from imagelist');
 9   img:=TBitmap.Create;;
10   imdata:=TBlobField.Create(self);
11   st:=TMemoryStream.Create;
12   for i:=0 to il1.Count-1 do
13   begin
14     img:=TBitmap.Create;
15     il1.GetBitmap(i,img);
16     s:=format('image%.2d',[i+1]);
17     st.Clear;
18     img.SaveToStream(st);
19     st.Position:=0;
20     qry1.Append;
21     qry1.Fields[1].AsString:=s;
22     TBlobField(qry1.Fields[2]).LoadFromStream(st);
23     qry1.Post;
24   end;
25 
26 end;
複製程式碼

但還是覺得這種方法略顯繁瑣，而且在append和post資料之間如果資料量大，可能會被意外中斷導致資料錯誤，後來想透過直接執行ExecSQL的方法新增，方法二的程式碼如下：

複製程式碼
 1   st:=TMemoryStream.Create;
 2   for i:=0 to il1.Count-1 do
 3   begin
 4     img:=TBitmap.Create;
 5     s:=Format('images%d',[i+1]);
 6     il1.GetBitmap(i,img);
 7     st.Clear;
 8     img.SaveToStream(st);
 9     st.Position:=0;
10     qry1.SQL.Text:='insert into imagelist(name,pic) values(:name,:pic)';
11     qry1.Params.ParamByName('name').AsString:=s;
12     qry1.Params.ParamByName('pic').LoadFromStream(st,ftBlob);
13     qry1.ExecSQL;
14   end;
複製程式碼

最後建了個button，測試了下直接附引數的形式新增檔案圖片如下：

複製程式碼
1 procedure Turlf.Button1Click(Sender: TObject);
2 var DT:TParam;
3 begin
4     DT:=TParam.Create(nil);
5     DT.LoadFromFile('F:\Url\images\PIC15.BMP',ftBlob);
6     qry1.ExecSQL('INSERT INTO IMAGELIST(NAME,PIC) VALUES(:NAME,:PIC)',
7                  ['testimage',DT.AsBlob]);
8 end;
複製程式碼

執行之後資料庫如下：

也算是成功的吧。

順便說一句，剛才的所有的程式碼中，建立的物件都沒有釋放，這是個不好的習慣。

如果dt定義為TFdParam，在FireDac中是否可以更好一點呢？

轉載https://www.cnblogs.com/luohq001/p/16835631.html

相關文章