MS SQL Server 2008的代码截图

delphi使用ADO在sql数据库存取图片的方法

新手参考，老鸟绕行

我一直不认为能把代码写的和天书一样的程序员是好的程序员，那不过是因为我真的对delphi也就是略懂皮毛，太深了看不懂。

网上查询数据库存取图片的方式，看的是一头雾水，有人提出保存路径使用时再调用，方法很好，但现实很残酷，在客户端使用时才发现，无法调用服务器端的路径和图片（我指的服务器也就是一台部门使用的普通的PC机，只不过是安装了数据库而已）。使用网络路径需要将服务器端的图片目录共享，或者使用FTP上传下载，不是不安全，就是很麻烦。

一个部门也就200人左右，保存成图片，规格小一点，数据库应该不会太大，调用速度应该不会太慢的，于是又回归了数据库保存的思路。

人懒了写代码就愿意少一点，研究后才发现，网上那些复杂的代码就是故意让人们发晕的。

只为了演示如何存取，什么控件、路径、对话框什么的就省了，知道怎么保存和取出图片就行了。sql数据库图片字段使用image类型，存储时如果要显示图片建议使用TImage，取图显示时建议使用TDBImage。

存储图片

procedure TForm1.Button1Click(Sender: TObject); 

 var 

   Picture1: TPicture; 

 begin 

   Picture1 := TPicture.create; 

   Picture1.loadfromfile('你自己定义的图片路径+名字.bmp');  

   image1.picture.loadfromfile('你自己定义的图片路径+名字.bmp'); 

   ADOQuery1.Close; 

   ADOQuery1.sql.clear; 

   ADOQuery1.sql.add('insert into pic values(:名字,:图片) '); 

   ADOQuery1.Parameters.ParamByName('名字').Value :='你自己定义的名字'; 

   ADOQuery1.Parameters.ParamByName('图片').Assign(Picture1); 

   ADOQuery1.ExecSQL; 

   Picture1.Free; 

 end;

取出图片

procedure TForm1.Button2Click(Sender: TObject); 

 begin 

   ADOQuery1.Close; 

   ADOQuery1.sql.clear; 

   ADOQuery1.sql.add('select * from pic where 名字:=名字'); 

   ADOQuery1.Parameters.ParamByName('名字').Value :='你自己查询的名字'; 

   ADOQuery1.Open; 

   DBEdit1.Text:=ADOQuery1.FieldByName('名字').AsString; 

DBImage1.DataField：='图片';        //可在属性里直接设置
//可在属性里直接设置

end;

建议：该方法只支持image格式的图片，tiff格式的图片支持存储，取出时还需要自己捉摸一下。在应用期间查询时，建议其他字段和image数据类型的字段分开查询，尤其是遍历数据库记录时，否则记录多了速度会很慢。