准备在一个比较简单的数据表中插入图片。
该数据表的创建代码如下:
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
标签:img,Firedac,Create,st,数据表,BLOB,il1,qry1 From: https://www.cnblogs.com/ynmsnc/p/18365329