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;
然后按照相同的方式顺序向Image.db数据库中添加“样品.wav”、“叶子.wav”和“荷花”图像文件。

  最后通过下面的代码把Image.db数据库中存储的文件名字添加到窗体的TListBox组件中：

  with Table1 do
begin
First;
while not Eof do

• [1] [2] [3] [4] 下一页 
• 复制本页网址和标题，发送给你QQ/Msn的好友一起分享
  
  
• Delphi实现在数据库中存取图像 相关文章：
• ·Delphi实现在数据库中存取图像
• Delphi实现在数据库中存取图像 相关软件

上一篇:用Delphi编写清空回收站程序

下一篇:浅议Delphi中的Windows API调用

• 特别声明：本站除部分特别声明禁止转载的专稿外的其他文章可以自由转载，但请务必注明出处和原始作
• 者.文章版权归文章原始作者所有.对于被本站转载文章的个人和网站，我们表示深深的谢意。如果本站转
• 载的文章有版权问题请联系编辑人员,我们尽快予以更正. 转载请注明来源：http://www.hackhome.com