Delphi實現在數據庫中存取圖像(2)

然後按照相同的方式順序向Image.db數據庫中添加“樣品.wav”、“葉子.wav”和“荷花”圖像文件。

最後通過下面的代碼把Image.db數據庫中存儲的文件名字添加到窗體的TListBox組件中：

with Table1 do
begin
　First;
　while not Eof do
　begin
　　ListBox1.Items.Add(FIEldByName(’Name’).AsString);
　　Next;
　end;
end;

在程序運行過程中，如果用戶在窗體的TListBox組件中選擇了圖像文件，程序會通過TTable組件的First方法把數據表中的第1條記錄作為當前記錄，然後通過一個循環來遍歷數據庫中的記錄。如果某條記錄中Name字段的內容和用戶的選擇相同，那麼就把該記錄中Data字段中的圖像信息讀取出來，並且把圖像顯示在窗體上的TImage組件上。代碼如下：

procedure TForm1.ListBox1Click(Sender: TObject);
var
　mem:TStream;
　bmp:TBitmap;
begin
　with Table1 do
　begin
　　First;
　　while not Eof do
　　begin
　　　if FIEldByName(’Name’).AsString=ListBox1.Items[ListBox1.ItemIndex] then
　　　break;
　　　Next;
　　end;
　　bmp:=TBitmap.Create;
　　mem:=CreateBlobStream(FIEldByName(’Data’),bmRead);
　　mem.Position:=0;
　　bmp.LoadFromStream(mem);
　　self.Image1.Picture.Assign(bmp);
　　bmp.Free;
　　mem.Free;
　end;
end;

程序代碼如下：

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, DBTables,mmsystem, ExtCtrls;
type
　TForm1 = class(TForm)
　ListBox1: TListBox;
　Table1: TTable;
　Image1: TImage;
　procedure FormCreate(Sender: TObject);
　procedure ListBox1Click(Sender: TObject);
private
　{ Private declarations }
public
　{ Public declarations }
end;
var
　Form1: TForm1;
　implementation
　{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
　mem:TMemoryStream;
begin
　if Table1.Eof and Table1.Bof then
　begin
　　with Table1 do
　　begin
　　　Insert;
　　　FIEldByName(’Name’).AsString:=’鳥’;
　　　mem:=TMemoryStream.Create();
　　　mem.LoadFromFile(’鳥.bmp’);
　　　TBlobField(FIEldByName(’Data’)).LoadFromStream(mem);
　　　Post;
　　 　Insert;
　　　FIEldByName(’Name’).AsString:=’樣品’;
　　　mem:=TMemoryStream.Create();
　　　mem.LoadFromFile(’樣品.bmp’);
　　　TBlobField(FIEldByName(’Data’)).LoadFromStream(mem);
　　　Post;
　　　Insert;
　　　FIEldByName(’Name’).AsString:=’葉子’;
　　　mem:=TMemoryStream.Create();
　　　mem.LoadFromFile(’葉子.bmp’);
　　　TBlobField(FIEldByName(’Data’)).LoadFromStream(mem);
　　　Post;
　　　Insert;
　　　FIEldByName(’Name’).AsString:=’荷花’;
　　　mem:=TMemoryStream.Create();
　　　mem.LoadFromFile(’荷花.bmp’);
　　　TBlobField(FIEldByName(’Data’)).LoadFromStream(mem);
　　　Post;
　　　mem.Free;
　　end;
　end;
　with Table1 do
　begin
　　First;
　　while not Eof do
　　begin
　　　ListBox1.Items.Add(FIEldByName(’Name’).AsString);
　　　Next;
　　end;
　end;
end;
procedure TForm1.ListBox1Click(Sender: TObject);
var
　mem:TStream;
　bmp:TBitmap;
begin
　with Table1 do
　begin
　　First;
　　while not Eof do
　　begin
　　　if FIEldByName(’Name’).AsString=ListBox1.Items[ListBox1.ItemIndex] then
　　　　break;
　　Next;
　　end;
　　bmp:=TBitmap.Create;
　　mem:=CreateBlobStream(FIEldByName(’Data’),bmRead);
　　mem.Position:=0;
　　bmp.LoadFromStream(mem);
　　self.Image1.Picture.Assign(bmp);
　　bmp.Free;
　　mem.Free;
　end;
end;
end.

保存文件，然後按F9鍵運行程序，程序運行的初始畫面如圖3所示。

在TListBox組件中選中一項後，就會顯示相對應的圖像文件，如圖4所示。

圖3 程序運行的初始畫面

圖4 程序運行結果