Firedac 在数据表中插入BLOB数据的方法

准备在一个比较简单的数据表中插入图片。

该数据表的创建代码如下：

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