Delphi实现在数据库中存取图像

本实例演示如何在数据库中存取图像文件。

向窗体上添加一个TListBox组件、一个TImage组件和一个TTable组件，设计完成的主界面如图1所示。

图1 主界面

本系统中需要设计一个新的基于Paradox 7的数据库Image.db，图2为设计完成的Image.db数据库。

图2 设计完成的数据库

为了方便测试程序，Image.db数据库存储在实例程序所在的路径下。

设置TTable组件的TableName属性为Image.db，Active属性为True。

在程序运行初期，首先会判断Image.db数据库中是否存在记录，如果没有记录存在，那么就执行以下代码向Image.db数据库中添加“鸟.bmp”文件：

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;
　　　end;
　　end;
end;