知识大全 Delphi实现在数据库中存取图像

Posted 2022-07-14 知

篇首语：生活只有在平淡无味的人看来才是空虚而平淡无味的。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 Delphi实现在数据库中存取图像相关的知识，希望对你有一定的参考价值。

Delphi实现在数据库中存取图像 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

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

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

图主界面

　　本系统中需要设计一个新的基于Paradox 的数据库Image db 图为设计完成的Image db数据库

图设计完成的数据库

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

　　设置TTable组件的TableName属性为Image db Active属性为True

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

procedure TForm FormCreate(Sender: TObject); var mem:TMemoryStream; begin if Table Eof and Table Bof then begin with Table 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 Table do begin First; while not Eof do begin ListBox Items Add(FieldByName( Name ) AsString); Next; end; end; 　　在程序运行过程中如果用户在窗体的TListBox组件中选择了图像文件程序会通过TTable组件的First方法把数据表中的第条记录作为当前记录然后通过一个循环来遍历数据库中的记录如果某条记录中Name字段的内容和用户的选择相同那么就把该记录中Data字段中的图像信息读取出来并且把图像显示在窗体上的TImage组件上代码如下

procedure TForm ListBox Click(Sender: TObject); var mem:TStream; bmp:TBitmap; begin with Table do begin First; while not Eof do begin if FieldByName( Name ) AsString=ListBox Items[ListBox ItemIndex] then break; Next; end; bmp:=TBitmap Create; mem:=CreateBlobStream(FieldByName( Data ) bmRead); mem Position:= ; bmp LoadFromStream(mem); self Image Picture Assign(bmp); bmp Free; mem Free; end; end; 　　程序代码如下

unit Unit ; interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs StdCtrls DB DBTables mmsystem ExtCtrls; type TForm = class(TForm) ListBox : TListBox; Table : TTable; Image : TImage; procedure FormCreate(Sender: TObject); procedure ListBox Click(Sender: TObject); private Private declarations public Public declarations end; var Form : TForm ; implementation $R * dfm procedure TForm FormCreate(Sender: TObject); var mem:TMemoryStream; begin if Table Eof and Table Bof then begin with Table 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 Table do begin First; while not Eof do begin ListBox Items Add(FieldByName( Name ) AsString); Next; end; end; end; procedure TForm ListBox Click(Sender: TObject); var mem:TStream; bmp:TBitmap; begin with Table do begin First; while not Eof do begin if FieldByName( Name ) AsString=ListBox Items[ListBox ItemIndex] then break; Next; end; bmp:=TBitmap Create; mem:=CreateBlobStream(FieldByName( Data ) bmRead); mem Position:= ; bmp LoadFromStream(mem); self Image Picture Assign(bmp); bmp Free; mem Free; end; end; end 　　保存文件然后按F 键运行程序程序运行的初始画面如图所示

　　在TListBox组件中选中一项后就会显示相对应的图像文件如图所示

图程序运行的初始画面

cha138/Article/program/Delphi/201311/8527