在Delphi实现在数据库中存取图像的图文演示无错
<P class=STYLE3>本实例演示如何在数据库中存取图像文件。 </P><P class=STYLE3>向窗体上添加一个TListBox组件、一个TImage组件和一个TTable组件，设计完成的主界面如图1所示。 </P>
<CENTER class=STYLE3><SPAN class=STYLE3><IMG style="FILTER: ; WIDTH: 191px; HEIGHT: 105px" height=105 alt="" hspace=0 src="https://www.jb51.net/upload/20080101160733850.jpg" width=191 border=0 twffan="done"> </SPAN></CENTER>
<P class=STYLE3 align=center>图1 主界面 </P>
<P class=STYLE3>本系统中需要设计一个新的基于Paradox 7的数据库Image.db，图2为设计完成的Image.db数据库。 </P>
<CENTER class=STYLE3><SPAN class=STYLE3><IMG style="FILTER: ; WIDTH: 380px; HEIGHT: 268px" height=268 alt="" hspace=0 src="https://www.jb51.net/upload/20080101160733204.jpg" width=380 border=0 twffan="done"> </SPAN></CENTER>
<P class=STYLE3 align=center>图2 设计完成的数据库 </P>
<P class=STYLE3>为了方便测试程序，Image.db数据库存储在实例程序所在的路径下。 </P>
<P class=STYLE3>设置TTable组件的TableName属性为Image.db，Active属性为True。 </P>
<P class=STYLE3>在程序运行初期，首先会判断Image.db数据库中是否存在记录，如果没有记录存在，那么就执行以下代码向Image.db数据库中添加“鸟.bmp”文件： </P>
<P class=STYLE3>procedure TForm1.FormCreate(Sender: TObject); <BR>var <BR>mem:TMemoryStream; <BR>begin <BR>if Table1.Eof and Table1.Bof then <BR>begin <BR>with Table1 do <BR>begin <BR>Insert; <BR>FieldByName('Name').AsString:='鸟'; <BR>mem:=TMemoryStream.Create(); <BR>mem.LoadFromFile('鸟.bmp'); <BR>TBlobField(FieldByName('Data')).LoadFromStream(mem); <BR>Post; <BR>end; <BR>end; <BR>end; <BR>然后按照相同的方式顺序向Image.db数据库中添加“样品.wav”、“叶子.wav”和“荷花”图像文件。 </P>
<P class=STYLE3>最后通过下面的代码把Image.db数据库中存储的文件名字添加到窗体的TListBox组件中： </P>
<P class=STYLE3>with Table1 do <BR>begin <BR>First; <BR>while not Eof do <BR>begin <BR>ListBox1.Items.Add(FieldByName('Name').AsString); <BR>Next; <BR>end; <BR>end; <BR>在程序运行过程中，如果用户在窗体的TListBox组件中选择了图像文件，程序会通过TTable组件的First方法把数据表中的第1条记录作为当前记录，然后通过一个循环来遍历数据库中的记录。如果某条记录中Name字段的内容和用户的选择相同，那么就把该记录中Data字段中的图像信息读取出来，并且把图像显示在窗体上的TImage组件上。代码如下： </P>
<P class=STYLE3>procedure TForm1.ListBox1Click(Sender: TObject); <BR>var <BR>mem:TStream; <BR>bmp:TBitmap; <BR>begin <BR>with Table1 do <BR>begin <BR>First; <BR>while not Eof do <BR>begin <BR>if FieldByName('Name').AsString=ListBox1.Items then <BR>break; <BR>Next; <BR>end; <BR>bmp:=TBitmap.Create; <BR>mem:=CreateBlobStream(FieldByName('Data'),bmRead); <BR>mem.Position:=0; <BR>bmp.LoadFromStream(mem); <BR>self.Image1.Picture.Assign(bmp); <BR>bmp.Free; <BR>mem.Free; <BR>end; <BR>end; <BR>程序代码如下： </P>
<P class=STYLE3>unit Unit1; <BR>interface <BR>uses <BR>Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, <BR>Dialogs, StdCtrls, DB, DBTables,mmsystem, ExtCtrls; <BR>type <BR>TForm1 = class(TForm) <BR>ListBox1: TListBox; <BR>Table1: TTable; <BR>Image1: TImage; <BR>procedure FormCreate(Sender: TObject); <BR>procedure ListBox1Click(Sender: TObject); <BR>private <BR>{ Private declarations } <BR>public <BR>{ Public declarations } <BR>end; <BR>var <BR>Form1: TForm1; <BR>implementation <BR>{$R *.dfm} <BR>procedure TForm1.FormCreate(Sender: TObject); <BR>var <BR>mem:TMemoryStream; <BR>begin <BR>if Table1.Eof and Table1.Bof then <BR>begin <BR>with Table1 do <BR>begin <BR>Insert; <BR>FieldByName('Name').AsString:='鸟'; <BR>mem:=TMemoryStream.Create(); <BR>mem.LoadFromFile('鸟.bmp'); <BR>TBlobField(FieldByName('Data')).LoadFromStream(mem); <BR>Post; <BR>Insert; <BR>FieldByName('Name').AsString:='样品'; <BR>mem:=TMemoryStream.Create(); <BR>mem.LoadFromFile('样品.bmp'); <BR>TBlobField(FieldByName('Data')).LoadFromStream(mem); <BR>Post; <BR>Insert; <BR>FieldByName('Name').AsString:='叶子'; <BR>mem:=TMemoryStream.Create(); <BR>mem.LoadFromFile('叶子.bmp'); <BR>TBlobField(FieldByName('Data')).LoadFromStream(mem); <BR>Post; <BR>Insert; <BR>FieldByName('Name').AsString:='荷花'; <BR>mem:=TMemoryStream.Create(); <BR>mem.LoadFromFile('荷花.bmp'); <BR>TBlobField(FieldByName('Data')).LoadFromStream(mem); <BR>Post; <BR>mem.Free; <BR>end; <BR>end; <BR>with Table1 do <BR>begin <BR>First; <BR>while not Eof do <BR>begin <BR>ListBox1.Items.Add(FieldByName('Name').AsString); <BR>Next; <BR>end; <BR>end; <BR>end; <BR>procedure TForm1.ListBox1Click(Sender: TObject); <BR>var <BR>mem:TStream; <BR>bmp:TBitmap; <BR>begin <BR>with Table1 do <BR>begin <BR>First; <BR>while not Eof do <BR>begin <BR>if FieldByName('Name').AsString=ListBox1.Items then <BR>break; <BR>Next; <BR>end; <BR>bmp:=TBitmap.Create; <BR>mem:=CreateBlobStream(FieldByName('Data'),bmRead); <BR>mem.Position:=0; <BR>bmp.LoadFromStream(mem); <BR>self.Image1.Picture.Assign(bmp); <BR>bmp.Free; <BR>mem.Free; <BR>end; <BR>end; <BR>end. <BR>保存文件，然后按F9键运行程序，程序运行的初始画面如图3所示。 </P>
<P class=STYLE3>在TListBox组件中选中一项后，就会显示相对应的图像文件，如图4所示。 </P>
<CENTER class=STYLE3><SPAN class=STYLE3><IMG style="FILTER: ; WIDTH: 218px; HEIGHT: 120px" height=120 alt="" hspace=0 src="https://www.jb51.net/upload/20080101160733797.jpg" width=218 border=0 twffan="done"> </SPAN></CENTER>
<P class=STYLE3 align=center>图3 程序运行的初始画面 </P>
<CENTER>
<P class=STYLE3><IMG style="FILTER: ; WIDTH: 218px; HEIGHT: 120px" height=120 alt="" hspace=0 src="https://www.jb51.net/upload/20080101160734826.jpg" width=218 border=0 twffan="done"> </P></CENTER>
<div class="art_xg">
<b>您可能感兴趣的文章:</b><ul><li>delphi实现保存和读取图片的方法</li><li>Delphi基本图像处理方法汇总</li><li>TImage组件实现保存图片到Stream</li></ul>
</div>
</div>
<!--endmain-->
頁:
[1]