delphi mysql 图片_如何读取delphi数据库中的图片
展开全部
第7章 数据库处理实例
实例122 在数据库中存取图像
本实例演示如何在数据库中存取图像文件。
向窗体上添加一个TListBox组件、32313133353236313431303231363533e58685e5aeb931333231626263一个TImage组件和一个TTable组件,设计完成的主界面如图7-13所示。
图7-13 主界面
本系统中需要设计一个新的基于Paradox 7的数据库Image.db,图7-14为设计完成的Image.db数据库。
图7-14 设计完成的数据库
为了方便测试程序,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键运行程序,程序运行的初始画面如图7-15所示。
在TListBox组件中选中一项后,就会显示相对应的图像文件,如图7-16所示。
图7-15 程序运行的初始画面 图7-16 程序运行结果
本回答由电脑网络分类达人 郭强推荐
已赞过
已踩过<
你对这个回答的评价是?
评论
收起
delphi mysql 图片_如何读取delphi数据库中的图片相关推荐
- mysql中查看图片_查询已存入数据库中的图片,并显示出来
思路:在存的时候同时存入其图片信息.查询时可以直接调用并显示. BOOL Load(CString sFilePathName); BOOL Load(UINT ResourceName, LPCST ...
- android 读取mysql中的图片_Android 通过API获取数据库中的图片文件方式
Overview 今天复习了一下Android 如何将我们数据库中图片获取出来,并且将其转换为bitmap进行显示. 开发环境以及技术 使用Visual Studio 2019 Android Stu ...
- php 输出图片 变叉,想把数据库中的图片取出并自动显示!但得到的却是红叉叉!哪位大哥给看看 谢谢!...
想把数据库中的图片取出并自动显示!但得到的却是红叉叉!哪位大哥给看看 谢谢! 本脚本目的是把数据库中的图片取出并自动显示出来,可是我每次得到的却是很多红叉叉,有哪位大大好人帮我看看.这问题困人好久了, ...
- dw读取access中的图片_怎样从Access数据库中读取图片?解决办法
当前位置:我的异常网» C# » 怎样从Access数据库中读取图片?解决办法 怎样从Access数据库中读取图片?解决办法 www.myexceptions.net 网友分享于:2013-03-0 ...
- access导出MySQL表格_将ACCESS 的数据库中的表的文件 导出了EXCEL格式
'''' '将ACCESS数据库中的某个表的信息 导出为EXCEL 文件格式 'srcfName ACCESS 数据库文件路径 'desfName excel 文件路径 Public Function ...
- vue样式 引入图片_详解Vue.js中引入图片路径的几种方式
vue --version 3.6.3 记录总结一下的Vue中引入图片路径的几种书写方式 vue中静态资源的引入机制 Vue.js关于静态资源的官方文档 静态资源可以通过两种方式进行处理: 在 Jav ...
- java窗体中添加图片_在java窗体程序中添加图片的方法
在java窗体程序中添加图片的方法 发布时间:2020-06-16 11:24:13 来源:亿速云 阅读:148 作者:Leah 这篇文章主要为大家详细介绍了在java窗体程序中添加图片的方法,图文详 ...
- react前端显示图片_如何在react项目中引用图片?
如何在react项目中引用图片?本文码云笔记将为大家整理在react项目中插入图片以及背景图片的方法,希望对需要的小伙伴提供一些参考. 在react项目中插入图片以及背景图片的方法共有2种: 1.im ...
- java 添加gif图片_一个简单的数据库插入gif图片,帮我看看哪里不对
该楼层疑似违规已被系统折叠 隐藏此楼查看此楼 执行的时候异常: Exception in thread "main" com.mysql.jdbc.exceptions.jdbc4 ...
最新文章
- 这是2018年的第一场AI生态论坛,比以往来得更早一些
- c++ 解析从浏览器端传过来的图像base64编码,并转换成opencv识别的格式
- 从产业链看技术的突破,第二届N+ VRARMR技术高峰论坛圆满落幕
- switch日版有中文吗_任天堂switch国行和日版的区别
- 2张表,轻松搞定你的收入问题
- spring中使用mockito
- cap理论具体含义_架构设计之「 CAP 定理 」
- 基于JAVA+SpringMVC+Mybatis+MYSQL的小说管理系统
- 模块电源(三):PCB Layout
- Eclipse的版本、下载网址和安装
- Android布局之表格布局
- 面试题 | ISP 图像处理算法工程师
- java 五角星十个坐标_五角星十个点坐标计算
- 创客使用Fusion 360 - 草绘
- 用python画小兔子_用Python画一只兔子——turtle库circle画圆函数的详细用法介绍
- hibernate创建配置遇到问题:!-- https://mvnrepository.com/artifact/javassist/javassist -- dependency
- php 打印数组格式化,php 打印数组格式化显示
- 启动任务管理器两种方法
- java xml最火的的工具_几种高效的Java工具类推荐
- WuThreat身份安全云-TVD每日漏洞情报-2022-12-22
热门文章
- matlab 画三维动画
- python编程语言汇总-Python技术之书籍汇总
- 羊了个羊第二关“真实”攻略
- linux下开发basic程序设计,使用 Visual Basic 编写基于 Unity3D 的计算器
- FelixPaul为VR一体机Oculus Go推出《侏罗纪世界:蓝色》5K重制版
- 07. vue3+vite+qiankun搭建微应用前端框架,并接入vue3微应用
- 藏语计算机语言学基础知识,语言学概论(00541)基础知识点.docx
- scipy.optimize.minimize
- ubuntu查看端口使用情况
- WeakReference弱引用