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

2008-02-23 07:14:42来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折


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

  向窗体上添加一个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所示。

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:Delphi实现自动停靠的菜单

下一篇:Delphi编程播放无声音的AVI动画