本实例演示如何在数据库中存取图像文件。
向窗体上添加一个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;
然后按照相同的方式顺序向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 程序运行结果