说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Delphi数据库应用程序开发中图像数据的存取技巧

HTML文档下载 WORD文档下载 PDF文档下载
Delphi数据库应用程序开发中图像数据的存取技巧

Delphi提供了数据访问(DataAccess)和数据控制(DataControls)的可视化控件,能够方便快捷地产生具有良好界面且功能强大的数据库应用程序。对于涉及图像数据(含Graphic字段)的数据库应用程序,如人事管理信息系统等,图像数据的存取技术是一个关键。然而,有关Delphi下图象的存取,特别是图像的保存方面的技术各种资料上很少提及。下面,笔者结合一个简单的例子来说明。

一、图像数据的保存

1.创建一个含有Graphic字段的数据库列表。

在WindowsISQ(或Databasedesktop)下createdatabasemydb.gdb

createtablemyfrieds

(namevarchar(15)notnull,telephonevarchar(12),addressvarchar(30),zipvarchar(8),picturevarchar(15),imageblob);

其中,picture字段用于保存图像的名称(包括路径),image(Graphic字符)则用于存储图像,其数据类型为“blob”。

2.建立窗体(如图1所示),设置窗体中各控件的属性。

该窗体的主要功能是将某人信息进行编辑和保存。需要注意的图像保存所用的图像框必须用Image而不能用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;

备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘