Delphi 图像数据的存取技术

  次阅读 作者:智能小宝 来源:互联网 2016-01-19 12:50 我要评论(0)

对于涉及图像数据的数据库应用程序,图像数据的存取技术是一个关键。由于缺少技术文档及DEMO例程演示,为此笔者在网上搜索了相关资料,有的根本不能用,有的过于繁杂,有的应用范围太窄(如只能适用于BMP图像),有的写得过于简单理解起来十分困难。。。而且在网上这也是大家比较关心的一个问题。笔者对这个问题进行了反复实作和探索,下边笔者将通过一个完整的简单例子来说明如何保存和显示SQL数据库中的图像数据(同时包括BMP和JPEG两种格式)。

一、 创建演示数据库

在SQL SERVER中新建一演示数据库:Demo,并创建一数据表Picture1,结构如下:

字段名 Dtata Type Identity

Id Int Yes

Isbmp Tinyint

Myimage Image

字段Isbmp是用来记录在Myimage中存入的图像的类型(0表JPEG,1表BMP,其它值表无图像),Isbmp数据类型选用整型 Tinyint而末选用逻辑bit型主要是考虑到如下方法仍适用于ACCESS数据库。在SQL中打开表Picture1,添入几条记录,Myimage 图像字段值暂不管,字段Isbmp值随便输入0和1之外的其它数。

二、 窗口设计

在Delphi中新建一个工程,在FORM1上放置如表所示控件(考虑到TDBImage型控件不能正确显示JPEG型图像,所以选用 Timage型控件显示所有类型图像)。

组件类别 组件属性名 属性值 用途说明

Timage caption Image1 显示图像

name Image1

Stretch True

Tbutton caption 选择图像 选择图像

name selectimage

Tbutton caption 保存图像 保存图像到数据库

name savetodb

TADOConnection caption Adoconnection1 创建与数据库demo的连接

name Adoconnection1

Connectionstring 见备注

Connected True

Loginprompt False

Tadotable Caption Adotable1 建立与表Picture1的连接

name Adotable1

Connection Adoconnection1

Tablename Picture1

Active True

Tdatasource Name Datasource1 建立数据源

Dataset Adotable1

Topenpicturedialog Caption Openpicturedialog1 选择图像文件

Name Openpicturedialog1

Tdbgrid Caption Dbgrid1 显示记录

Name Dbgrid1

Datasource Datasource1

备注:

adoconnection1.connectstring :=

'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=demo;

Data Source=Mysqlserver'

Mysqlserver 为SQL服务器的名称请据实际情况更改。

三、 程序代码(首先在单元文件接口部分的uses语句中添入JPEG单元引用)

1. 图像数据的选择及保存

procedure TForm1.selectimageClick(Sender: TObject); //选择图像

begin

if openpicturedialog1.Execute then

image1.Picture.LoadFromFile(openpicturedialog1.FileName );

end;

procedure TForm1.savetodbClick(Sender: TObject); //保存图像

var

strm:tmemorystream;

本站文章信息来源于网络以及网友投稿,本站只负责对文章进行整理、排版、编辑,是出于传递更多信息之目的,并不意味着赞同其观点或证实其内容的真实性。如果您有什么意见或建议,请联系QQ28-1688-302!

人工智能实验室
相关文章相关文章
  • 未来两年人工智能要怎么走?看这篇就够了

    未来两年人工智能要怎么走?看这篇就够了

  • 无人驾驶汽车如何改变城市生活?听听他们怎么说

    无人驾驶汽车如何改变城市生活?听听他们怎么说

  • 韩春雨称已能重复实验结果 近期将有消息公布

    韩春雨称已能重复实验结果 近期将有消息公布

  • 英国研发“杀生”机器人 通过生命体获取能量

    英国研发“杀生”机器人 通过生命体获取能量

网友点评网友点评
阅读推荐阅读推荐

据国外媒体报道,在过去两年内,聊天机器人(chatbot)、人工智能以及机器学习的研发和采用取得了巨大进展。许多初创公司正利用人工智能和...

霍金 视觉中国 图 英国著名物理学家霍金(Stephen Hawking)再次就人工智能(AI)发声,他认为:对于人类来说,强大AI的出现可能是最美妙的...

文|郑娟娟 今年,人工智能(AI) 60岁了。在AI60岁的时候,笔者想要介绍一下AI100,一个刚刚2岁的研究项目,但它的预设寿命是100年,甚至更长...

AlphaGo与李世石的人机大战,为大众迅速普及了人工智能的概念。 但对谷歌而言,除了下围棋,现在的人工智能进展到哪一步了?未来,人工智能...