如何用adoquery对象向ACCESS数据库插入图片 rt 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Delphi数据库应用程序开发中图像数据的存取技术Delphi提供了数据访问(DataAccess)和数据控制(DataControls)的可视化控件,能够方便快捷地产生具有良好界面且功能强大的数据库应用程序。对于涉及图像数据(含Graphic字段)的数据库应用程序,如人事管理信息系统等,图像数据的存取技术是一个关键。然而,有关Delphi下图象的存取,特别是图像的保存方面的技术各种资料上很少提及。下面,笔者结合一个简单的例子来说明。一、图像数据的保存1.创建一个含有Graphic字段的数据库列表。在WindowsISQ(或Databasedesktop)下createdatabasemydb.gdbcreatetablemyfrieds(namevarchar(15)notnull,telephonevarchar(12),addressvarchar(30),zipvarchar(8),picturevarchar(15),imageblob);其中,picture字段用于保存图像的名称(包括路径),image(Graphic字符)则用于存储图像,其数据类型为“blob”。2.建立窗体(如图1所示),设置窗体中各控件的属性。该窗体的主要功能是将某人信息进行编辑和保存。需要注意的图像保存所用的图像框必须用TImage而不能用TDBImage,编辑框宜用Tedit而不宜用TDBEdit,这一点与图像的读取恰好相反。其中,各主要控件的属性设置如下:Datasource1.Dataset:=table1;Table1.Databasename:=mydb.gdb;Table1.Tablename:=myfriends;Table1.active:=true;其他诸如Caption之类的属性设置不再叙述。3.数据处理程序的建立。(1)图像( .bmp文件)打开的处理。procedureTForm1.pictopenbtnClick(Sender:TObject);beginopendialog1.execute;image1.picture.loadfromfile(opendialog1.filename);end;(2)图像保存的处理。图像保存的处理程序完成把在窗体1所编辑的信息包括图像保存到相应的数据库中,其关键是要定义一个Graphic类型的变量且该变量要用assing()函数传递到相应数据库中保存。具体程序如下:procedureTform1.Savebtnclick(sender:TObject);vargraphic1:TGraphic;begingraphic1:=TGraphic.Create;graphic1.loadfromfile(opendialog1.filename);table1.insert;table1.fieldbyname(′name′).asstring:=edit1.text;table1.fieldbyname(′telephon′).asstring:=edit2.text;table1.fieldbyname(′address′).asfloat:=(edit3.text);table1.fieldbyname(′zip′).asfloat:=(edit4.text);table1.fields[4].assign(graphic1);table1.post;graphic1.free;end;二、图像数据的读取在数据库数据(包括Graphic字段的数据)的读取和浏览方面,Delphi这一具有强大代码自动生成功能的面向对象的开发工具的优越性得到淋漓尽致的体现。毫不夸张地说,不需要一条语句即可完成这一功能!建立窗体(如下图所示),设置各控件的属性。图中Table1和Datasource1的属性的设置与数据的保存部分(图1)相同,所不同的是数据库数据的读取时用TDBEdit和TDBImage控件而不用TEdit和TImage。控件TDBEdit和TDBImage只要将datafield属性设置为其相对应的域;TDBNavigator的datasouce属性设置为datasource1即可。也可以看看这里:http://www.delphibbs.com/delphibbs/dispq.asp?lid=1784052 网络视频流数据,保存到本地mpg格式视频文件 字符排序 treeview各节点是通过打开数据库后显示,如何使treeview刷新? 马上给分 关于DBGrid的菜问题 inttohex()函数 一个关于OLE的弱弱的问题!---后台运行. 谁能给我一个delphi6读取xml格式的INI文件的例程 这种表该怎么用sql语句统计!帮忙者有分 我想开始学分布式应用程序,请问各位大哥我该如何下手?何处有一个简单全面的例程?何种参考书最好?谢了. 条马枪的开发包 delphi远程修改ip ?能实现吗?
Delphi提供了数据访问(DataAccess)和数据控制(DataControls)的可视化控件,能够方便快捷地产生具有良好界面且功能强大的数据库应用程序。对于涉及图像数据(含Graphic字段)的数据库应用程序,如人事管理信息系统等,图像数据的存取技术是一个关键。然而,有关Delphi下图象的存取,特别是图像的保存方面的技术各种资料上很少提及。下面,笔者结合一个简单的例子来说明。一、图像数据的保存1.创建一个含有Graphic字段的数据库列表。
在WindowsISQ(或Databasedesktop)下createdatabasemydb.gdbcreatetablemyfrieds(namevarchar(15)notnull,telephonevarchar(
12),addressvarchar(30),zipvarchar(8),picturevarchar(15),imageblob);
其中,picture字段用于保存图像的名称(包括路径),image(Graphic字符)则用于存储图像,其数据类型为“blob”。2.建立窗体(如图1所示),设置窗体中各控件的属性。
该窗体的主要功能是将某人信息进行编辑和保存。需要注意的图像保存所用的图像框必须用TImage而不能用TDBImage,编辑框宜用Tedit而不宜用TDBEdit,这一点与图像的读取恰好相反。
其中,各主要控件的属性设置如下:
Datasource1.Dataset:=table1;
Table1.Databasename:=mydb.gdb;
Table1.Tablename:=myfriends;
Table1.active:=true;
其他诸如Caption之类的属性设置不再叙述。3.数据处理程序的建立。
(1)图像( .bmp文件)打开的处理。
procedureTForm1.pictopenbtnClick(Sender:TObject);
beginopendialog1.execute;
image1.picture.loadfromfile(opendialog1.filename);
end;(2)图像保存的处理。
图像保存的处理程序完成把在窗体1所编辑的信息包括图像保存到相应的数据库中,其关键是要定义一个Graphic类型的变量且该变量要用assing()函数传递到相应数据库中保存。具体程序如下:procedureTform1.Savebtnclick(sender:TObject);
vargraphic1:TGraphic;
begin
graphic1:=TGraphic.Create;
graphic1.loadfromfile(opendialog1.filename);
table1.insert;
table1.fieldbyname(′name′).asstring:=edit1.text;
table1.fieldbyname(′telephon′).asstring:=edit2.text;
table1.fieldbyname(′address′).asfloat:=(edit3.text);
table1.fieldbyname(′zip′).asfloat:=(edit4.text);
table1.fields[4].assign(graphic1);
table1.post;
graphic1.free;
end;二、图像数据的读取
在数据库数据(包括Graphic字段的数据)的读取和浏览方面,Delphi这一具有强大代码自动生成功能的面向对象的开发工具的优越性得到淋漓尽致的体现。毫不夸张地说,不需要一条语句即可完成这一功能!建立窗体(如下图所示),设置各控件的属性。图中Table1和Datasource1的属性的设置与数据的保存部分(图1)相同,所不同的是数据库数据的读取时用TDBEdit和TDBImage控件而不用TEdit和TImage。控件TDBEdit和TDBImage只要将datafield属性设置为其相对应的域;TDBNavigator的datasouce属性设置为datasource1即可。也可以看看这里:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1784052