数据库应用程序开发中图像数据的存取技术
delphi提供了数据访问(dataaccess)和数据控制(datacontrols)的可视化控件,能够方便快捷地产生具有良好界面且功能强大的数据库应用程序。对于涉及图像数据(含graphic字段)的数据库应用程序,如人事管理信息系统等,图像数据的存取技术是一个关键。然而,有关delphi下图象的存取,特别是图像的保存方面的技术各种资料上很少提及。下面,笔者结合一个简单的例子来说明。一、图像数据的保存
1.创建一个含有graphic字段的数据库列表。
在windowsisq(或databasedesktop)下create database mydb.gdb
create table myfrieds
(name varchar(15) notnull,
telephone varchar(12),
address varchar(30),
zipvarchar(8),
picture varchar(15),
image blob); 其中,picture字段用于保存图像的名称(包括路径),image(graphic字符)则用于存储图像,其数据类型
为“blob”。 2.建立窗体,设置窗体中各控件的属性。 该窗体的主要功能是将某人信息进行编辑和保存。需要注意的图像保存所用的图像框必须用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);
begin
opendialog1.execute;
image1.picture.loadfromfile(opendialog1.filename);
end; (2)图像保存的处理。
图像保存的处理程序完成把在窗体1所编辑的信息包括图像保存到相应的数据库中,其关键是要定义一个graphic类型的变量且该变量要用assign()函数传递到相应数据库中保存。具体程序如下:
proceduretform1.savebtnclick(sender:tobject);
var
graphic1: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;
delphi提供了数据访问(dataaccess)和数据控制(datacontrols)的可视化控件,能够方便快捷地产生具有良好界面且功能强大的数据库应用程序。对于涉及图像数据(含graphic字段)的数据库应用程序,如人事管理信息系统等,图像数据的存取技术是一个关键。然而,有关delphi下图象的存取,特别是图像的保存方面的技术各种资料上很少提及。下面,笔者结合一个简单的例子来说明。一、图像数据的保存
1.创建一个含有graphic字段的数据库列表。
在windowsisq(或databasedesktop)下create database mydb.gdb
create table myfrieds
(name varchar(15) notnull,
telephone varchar(12),
address varchar(30),
zipvarchar(8),
picture varchar(15),
image blob); 其中,picture字段用于保存图像的名称(包括路径),image(graphic字符)则用于存储图像,其数据类型
为“blob”。 2.建立窗体,设置窗体中各控件的属性。 该窗体的主要功能是将某人信息进行编辑和保存。需要注意的图像保存所用的图像框必须用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);
begin
opendialog1.execute;
image1.picture.loadfromfile(opendialog1.filename);
end; (2)图像保存的处理。
图像保存的处理程序完成把在窗体1所编辑的信息包括图像保存到相应的数据库中,其关键是要定义一个graphic类型的变量且该变量要用assign()函数传递到相应数据库中保存。具体程序如下:
proceduretform1.savebtnclick(sender:tobject);
var
graphic1: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;
解决方案 »
- Sql语句里比较日期
- TStringGrid单元格里的数据如何分行显示?
- office 开发如何使用Delphi中Servers的word,excel控件
- 在昆明理工大学或是认识这的老师的兄弟请进。。。。。。。
- delph初学者的一个问题(在线给分)
- 寻访shuixin13有问题要请教(有关mysql)
- 哪位高手有delphi连orcale数据表的实例,请进去
- 那里有好一些的关于数据库的源程序下载,多谢!!!!!
- DELPHI下设置系统时间的最简单方式是什么?setsystemtime(now+33) ?
- 请问各位大虾:我用DELPHI连ADO报错!!最多就让我给45分我再加100分!一定给!!!
- csdn下载软件我怎么下在不起?
- Paradox数据库好像万一死机后,修改的数据就复原,有没有办法可以避免
with OpenPictureDialog1 do
if Execute then
begin
LoadJPEGToTBitmap(FileName, dbimage1.Picture.bitmap);
那么应该怎么存dbimage1.Picture.bitmap到数据库的ole对象字段里?
这里dbimage1是指向ole对象的