我一直不认为能把代码写的和天书一样的程序员是好的程序员,那不过是因为我真的对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 版权声明:本文为博主原创文章,转载请附上博文链接!
|
请发表评论