delphi mysql 图片_Delphi实现在数据库中存取图像

本文介绍了如何在Delphi应用程序中使用TTable组件将图像文件存储到MySQL数据库,并从数据库中读取显示。通过创建TListBox和TImage组件,用户可以选择列表中的图像项,程序会自动从数据库加载并显示相应的图片。
摘要由CSDN通过智能技术生成

向窗体上添加一个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”文件:

procedureTForm1.FormCreate(Sender: TObject);varmem:TMemoryStream;begin

if Table1.Eof and Table1.Bof then

begin

with Table1 do

beginInsert;

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

beginFirst;while not Eof do

beginListBox1.Items.Add(FieldByName(’Name’).AsString);

Next;end;end;

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

procedureTForm1.ListBox1Click(Sender: TObject);varmem:TStream;

bmp:TBitmap;begin

with Table1 do

beginFirst;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;

程序代码如下:

unitUnit1;interface

usesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, DB, DBTables,mmsystem, ExtCtrls;typeTForm1= class(TForm)

ListBox1: TListBox;

Table1: TTable;

Image1: TImage;procedureFormCreate(Sender: TObject);procedureListBox1Click(Sender: TObject);private

{Private declarations}

public

{Public declarations}

end;varForm1: TForm1;implementation

{$R *.dfm}

procedureTForm1.FormCreate(Sender: TObject);varmem:TMemoryStream;begin

if Table1.Eof and Table1.Bof then

begin

with Table1 do

beginInsert;

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

beginFirst;while not Eof do

beginListBox1.Items.Add(FieldByName(’Name’).AsString);

Next;end;end;end;procedureTForm1.ListBox1Click(Sender: TObject);varmem:TStream;

bmp:TBitmap;begin

with Table1 do

beginFirst;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所示。

图3 程序运行的初始画面

图4 程序运行结果

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值