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

这个例子演示了如何访问数据库中的图像文件。

在表单中添加一个TListBox组件、一个TImage组件和一个Table组件来设计主界面。

本系统需要基于Paradox 7设计一个新的Image.db数据库。图2显示了设计的Image.db数据库。

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

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

在程序运行之初，它会首先判断Image.db数据库中是否有记录。如果没有记录，则执行以下代码将“bird.bmp”文件添加到Image.db数据库中:

程序TForm1。FormCreate(发件人:to object)；
var
mem:TMemoryStream；
如果表1，则开始
。Eof和表1。Bof然后
begin
with table 1 do
begin
Insert；
fieldbyname ('name ')。asstring:= ' bird '；
mem:=TMemoryStream。create()；
mem。LoadFromFile(' bird . BMP ')；
TBlobField(field by name(' Data '))。LoadFromStream(mem)；
Post；
end；
end；
end；

然后按照相同的顺序将“sample.wav”、“leaf.wav”和“lotus”图像文件添加到Image.db数据库中。

最后，通过以下代码将Image.db数据库中存储的文件名添加到表单的TListBox组件中:

从Table1开始，首先
开始
;
while not Eof do
begin
listbox 1。Items.Add(FieldByName('Name ')。AsString)；
接下来；
end；
end；