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中是否可以更好一点呢？
