數據庫應用程序開發(fā)中圖像數據的存取技術

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

一、圖像數據的保存

1.創(chuàng)建一個含有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.建立窗體(如圖1所示)，設置窗體中各控件的屬性。

該窗體的主要功能是將某人信息進行編輯和保存。需要注意的圖像保存所用的圖像框必須用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);

beginopendialog1.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;


二、圖像數據的讀取

在數據庫數據(包括Graphic字段的數據)的讀取和瀏覽方面，Delphi這一具有強大代碼自動生成功能的面向對象的開發(fā)工具的優(yōu)越性得到淋漓盡致的體現。毫不夸張地說，不需要一條語句即可完成這一功能！

圖中Table1和Datasource1的屬性的設置與數據的保存部分(圖1)相同，所不同的是數據庫數據的讀取時用TDBEdit和TDBImage控件而不用TEdit和TImage。控件TDBEdit和TDBImage只要將datafield屬性設置為其相對應的域;TDBNavigator的datasouce屬性設置為datasource1即可。
tre 

procedure TForm1.Button1Click(Sender: TObject);
var
sfilename:string;
function blobcont(const filename:string):string;
  begin
  with tfilestream.Create(filename,fmopenread) do
   try
    setlength(result,size);
    read(pointer(result)^,size);
   finally
    free;
   end;
  end;

begin
if opendialog1.Execute then
  begin
    sfilename:=opendialog1.FileName;
    adodataset1.Append;
    adodataset1.FieldByName(’ff’).asstring:=blobcont(sfilename);
    adodataset1.Post;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
sfilename:string;
bs:tadoblobstream;
begin
bs:=tadoblobstream.Create(tblobfield(adodataset1.FieldByName(’ff’)),bmread);
try

  sfilename:=’c:ff.doc’;//換成圖片格式就可以了
  if fileexists(sfilename) then
   deletefile(sfilename);
  bs.SaveTofile(sfilename);
  OleContainer1.CreateObjectFromFile(sfilename,false);
  //OleContainer1.LoadFromFile(sfilename);
  //OleContainer1.LoadFromStream()
  //memo1.Lines.LoadFromFile(sfilename);
// WebBrowser1.Navigate(pchar(sfilename));
finally
  bs.free;
end;