📄 dpi23.htm
字号:
<html>
<head>
<title>Delphi数据库应用程序开发中图像数据的存取技巧</title>
<meta content="text/html; charset=gb2312" http-equiv=Content-Type>
</head>
<p align="center"><script src="../../1.js"></script></a>
<body bgcolor="#ffffff" leftmargin="5" topmargin="1" marginheight="5" marginwidth="5">
<div align=center>
<table border=0 cellpadding=0 cellspacing=0 width=680 align="center">
<tbody>
<tr>
</tr>
</tbody>
</table>
<table border=0 bordercolordark=#66aaff bordercolorlight=#66aaff cellpadding=0
cellspacing=0 width=680 align="center" height="128">
<tbody>
<tr>
<td bgcolor=#F9D23C height=14>
<div align=center class=H1> <b><font
color=#ffa000><b><b><font color="#FFFFFF">Delphi数据库应用程序开发中图像数据的存取技巧</font></b>
</font></b></font></b></font></div>
</td>
</tr>
<tr valign=top>
<td class=H1 height=236>
<p align="center"> <br>
</p>
<p align="center"> Delphi提供了数据访问（DataAccess）和数据控制（DataControls）的可视化控件，能够方便快捷地产生具有良好界面且功能强大的数据库应用程序。对于涉及图像数据（含Graphic字段）的数据库应用程序，如人事管理信息系统等，图像数据的存取技术是一个关键。然而，有关Delphi下图象的存取，特别是图像的保存方面的技术各种资料上很少提及。下面，笔者结合一个简单的例子来说明。
<br>
<br>
1．创建一个含有Graphic字段的数据库列表。 <br>
<br>
在WindowsISQ（或Databasedesktop）下createdatabasemydb．Gdb <br>
<br>
createtablemyfrieds <br>
<br>
（namevarchar（15）notnull，telephonevarchar（12），addressvarchar（30），zipvarchar（8），picturevarchar（15），imageblob）；
<br>
<br>
其中，picture字段用于保存图像的名称（包括路径），image（Graphic字符）则用于存储图像，其数据类型为“blob”。
<br>
<br>
2．建立窗体（如图1所示），设置窗体中各控件的属性。 <br>
<br>
该窗体的主要功能是将某人信息进行编辑和保存。需要注意的图像保存所用的图像框必须用Image而不能用TDBImage，编辑框宜用Tedit而不宜用TDBEdit，这一点与图像的读取恰好相反。
<br>
<br>
其中，各主要控件的属性设置如下： <br>
<br>
Datasource1．Dataset：Κtable1； <br>
<br>
Table1．Databasename：Κmydb．Gdb； <br>
<br>
Table1．Tablename：Κmyfriends； <br>
<br>
Table1．Active：Κtrue； <br>
<br>
其他诸如Caption之类的属性设置不再叙述。 <br>
<br>
3．数据处理程序的建立。 <br>
<br>
（1）图像（ ．Bmp文件）打开的处理。 <br>
<br>
procedureTForm1．pictopenbtnClick（Sender：Tobject）； <br>
<br>
beginopendialog1．Execute； <br>
<br>
image1．Picture．Loadfromfile（opendialog1．Filename）； <br>
<br>
end； <br>
<br>
（2）图像保存的处理。 <br>
<br>
图像保存的处理程序完成把在窗体1所编辑的信息包括图像保存到相应的数据库中，其关键是要定义一个Graphic类型的变量且该变量要用assing（）函数传递到相应数据库中保存。具体程序如下：
<br>
<br>
procedureTform1．Savebtnclick（sender：Tobject）； <br>
<br>
vargraphic1：Tgraphic； <br>
<br>
begingraphic1：ΚTGraphic．Create<br>
<br>
<p align="center"><font
color=#ffa000><b><br>
</b><b>
</td>
</tr>
</tbody>
</table>
</div>
<p align="center"><script src="../../2.js"></script></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -