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：='图片';        //可在属性里直接设置
  DBImage1.DataSource:=DataSource1;    //可在属性里直接设置

end;

建议：该方法只支持image格式的图片，tiff格式的图片支持存储，取出时还需要自己捉摸一下。在应用期间查询时，建议其他字段和image数据类型的字段分开查询，尤其是遍历数据库记录时，否则记录多了速度会很慢。
---------------------
作者：秋天之落叶
来源：CSDN
原文：https://blog.csdn.net/leavesguth/article/details/76178153
版权声明：本文为博主原创文章，转载请附上博文链接！