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

时间：2007-06-15 来源： 作者： 【字体：

减小

增大】 点击： 收藏 | 投稿

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

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

图1主界面

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

图2设计完成的数据库

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

　　设置TTable组件的TableName属性为Image.db，Active属性为True。财软联盟 fs119.net

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

procedureTForm1.FormCreate(Sender:TObject);
　var
　　mem:TMemoryStream;
　begin
　　ifTable1.EofandTable1.Bofthen
　　begin
　　　withTable1do
　　　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组件中：财管家.园.fs119.net

withTable1do
begin
　First;
　whilenotEofdo
　begin
　　ListBox1.Items.Add(FieldByName(’Name’).AsString);
　　Next;
　end;
end;
　　在程序运行过程中，如果用户在窗体的TListBox组件中选择了图像文件，程序会通过TTable组件的First方法把数据表中的第1条记录作为当前记录，然后通过一个循环来遍历数据库中的记录。如果某条记录中Name字段的内容和用户的选择相同，那么就把该记录中Data字段中的图像信息读取出来，并且把图像显示在窗体上的TImage组件上。代码如下：

procedureTForm1.ListBox1Click(Sender:TObject);
var
　mem:TStream;
　bmp:TBitmap;
begin
　withTable1do
　begin
　　First;
　　whilenotEofdo 财管,家园,fs119.net
　　begin
　　　ifFieldByName(’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;

财软,联盟,fs119.net

财.管家园.fs119.net

财软联盟.fs119.net

财管家园.fs119.net

财软联盟.fs119.net

　　程序代码如下：

财软联盟,fs119.net

unitUnit1;
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;
　procedureFormCreate(Sender:TObject);
　procedureListBox1Click(Sender:TObject);
private
　{Privatedeclarations}
public
　{Publicdeclarations}
end;

var
　Form1:TForm1;
　implementation
　{$R*.dfm}

procedureTForm1.FormCreate(Sender:TObject);
var
　mem:TMemoryStream;
begin
　ifTable1.EofandTable1.Bofthen
　begin
　　withTable1do
　　begin
　　　Insert;
　　　FieldByName(’Name’).AsString:=’鸟’;
　　　mem:=TMemoryStream.Create();
　　　mem.LoadFromFile(’鸟.bmp’);
　　　TBlobField(FieldByName(’Data’)).LoadFromStream(mem);
　　　Post;

财管家园 fs119.net

　　　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;
　withTable1do
　begin
　　First;
　　whilenotEofdo
　　begin
　　　ListBox1.Items.Add(FieldByName(’Name’).AsString);
　　　Next;
　　end;
　end;
end;

procedureTForm1.ListBox1Click(Sender:TObject);

财软联盟,fs119.net

var
　mem:TStream;
　bmp:TBitmap;
begin
　withTable1do
　begin
　　First;
　　whilenotEofdo
　　begin
　　　ifFieldByName(’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程序运行的初始画面

财软联盟 fs119.net
图4程序运行结果

财管家园.fs119.net

财管家园,fs119.net

文章摘自网络,如有侵权,请与我们联系.

数据统计中！！

Google.cn搜索关键字： 图像数据库现在 end begin FieldByName do 程序 Name
Google.cn搜索相关文章：
谷歌中搜索全球网 Delphi实现在数据库中存取图像
百度中搜索 Delphi实现在数据库中存取图像
谷歌中搜索www.fs119.net Delphi实现在数据库中存取图像

上一篇：Delphi下“培养”自己的简单木马
下一篇：Delphi编程播放无声音的AVI动画

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

精品课程推荐