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;