delphi數(shù)據(jù)庫應(yīng)用程序開發(fā)中圖像數(shù)據(jù)的存取技術(shù)

1、Delphi提供了數(shù)據(jù)訪問（DataAccess）和數(shù)據(jù)控制（DataControls）的可視化控件，能夠方便快捷地產(chǎn)生具有良好界面且功能強大的數(shù)據(jù)庫應(yīng)用程序。對于涉及圖像數(shù)據(jù)（含Graphic字段）的數(shù)據(jù)庫應(yīng)用程序，如人事管理信息系統(tǒng)等，圖像數(shù)據(jù)的存取技術(shù)是一個關(guān)鍵。然而，有關(guān)Delphi下圖象的存取，特別是圖像的保存方面的技術(shù)各種資料上很少提及。下面，筆者結(jié)合一個簡單的例子來說明。一、圖像數(shù)據(jù)的保存1創(chuàng)建一個含有Graphic字段的

2、數(shù)據(jù)庫列表。在WindowsISQ（或Databasedesktop）下createdatabasemydbgdbcreatetablemyfrieds（namevar（15）notnull，telephonevar（12），addressvar（30），zipvar（8），picturevar（15），imageblob）；其中，picture字段用于保存圖像的名稱（包括路徑），image（Graphic字符）則用于存儲圖像，其數(shù)據(jù)類

3、型為“blob”。2建立窗體（如圖1所示），設(shè)置窗體中各控件的屬性。該窗體的主要功能是將某人信息進行編輯和保存。需要注意的圖像保存所用的圖像框必須用TImage而不能用TDBImage，編輯框宜用Tedit而不宜用TDBEdit，這一點與圖像的讀取恰好相反。其中，各主要控件的屬性設(shè)置如下：Datasource1Dataset：=table1；Table1Databasename：=mydbgdb；Table1Tablename：=my

4、friends；Table1active：=true；其他諸如Caption之類的屬性設(shè)置不再敘述。3數(shù)據(jù)處理程序的建立。（1）圖像（bmp文件）打開的處理。procedureTFm1pictopenbtnClick（Sender：TObject）；beginopendialog1execute；image1pictureloadfromfile（opendialog1filename）；end；（2）圖像保存的處理。圖像保存的處理程序

5、完成把在窗體1所編輯的信息包括圖像保存到相應(yīng)的數(shù)據(jù)庫中，其關(guān)鍵是要定義一個Graphic類型的變量且該變量要用assing（）函數(shù)傳遞到相應(yīng)數(shù)據(jù)庫中保存。具體程序如下：procedureTfm1Savebtnclick（sender：TObject）；vargraphic1：TGraphic；begingraphic1：=TGraphicCreate；graphic1loadfromfile（opendialog1filename）；t

6、able1；table1fieldbyname（′name′）asstring：=edit1text；table1fieldbyname（′telephon′）asstring：=edit2text；table1fieldbyname（′address′）asfloat：=（edit3text）；table1fieldbyname（′zip′）asfloat：=（edit4text）；table1fields［4］assign（grap

7、hic1）；table1post；graphic1free；end；二、圖像數(shù)據(jù)的讀取在數(shù)據(jù)庫數(shù)據(jù)（包括Graphic字段的數(shù)據(jù)）的讀取和瀏覽方面，Delphi這一具有強大代碼自動生成功能的面向?qū)ο蟮拈_發(fā)工具的優(yōu)越性得到淋漓盡致的體現(xiàn)。毫不夸張地說，不需要一條語句即可完成這一功能！建立窗體（如下圖所示），設(shè)置各控件的屬性。圖中Table1和Datasource1的屬性的設(shè)置與數(shù)據(jù)的保存部分（圖1）相同，所不同的是數(shù)據(jù)庫數(shù)據(jù)的讀取時用TD