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

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

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;

运行之后数据库如下：

 

 也算是成功的吧。

顺便说一句，刚才的所有的代码中，创建的对象都没有释放，这是个不好的习惯。

 

原文地址：http://www.cnblogs.com/luohq001/p/16835631.html

1. 本站所有资源来源于用户上传和网络，如有侵权请邮件联系站长！ 2. 分享目的仅供大家学习和交流，请务用于商业用途! 3. 如果你也有好源码或者教程，可以到用户中心发布，分享有积分奖励和额外收入！ 4. 本站提供的源码、模板、插件等等其他资源，都不包含技术服务请大家谅解！ 5. 如有链接无法下载、失效或广告，请联系管理员处理！ 6. 本站资源售价只是赞助，收取费用仅维持本站的日常运营所需！ 7. 如遇到加密压缩包，默认解压密码为"gltf",如遇到无法解压的请联系管理员！ 8. 因为资源和程序源码均为可复制品，所以不支持任何理由的退款兑现，请斟酌后支付下载 声明：如果标题没有注明"已测试"或者"测试可用"等字样的资源源码均未经过站长测试.特别注意没有标注的源码不保证任何可用性