说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

Delphi数据库应用程序开发中图像数据的存取技巧

HTML文档下载 WORD文档下载 PDF文档下载
Delphi数据库应用程序开发中图像数据的存取技巧

Delphi提供了数据访问(DataAccess)和数据控制(DataControls)的可视化控件,能够方便快捷地产生具有良好界面且功能强大的数据库应用程序。对于涉及图像数据(含Graphic字段)的数据库应用程序,如人事管理信息系统等,图像数据的存取技术是一个关键。然而,有关Delphi下图象的存取,特别是图像的保存方面的技术各种资料上很少提及。下面,笔者结合一个简单的例子来说明。

一、图像数据的保存

1.创建一个含有Graphic字段的数据库列表。

在WindowsISQ(或Databasedesktop)下createdatabasemydb.gdb

createtablemyfrieds

(namevarchar(15)notnull,telephonevarchar(12),addressvarchar(30),zipvarchar(8),picturevarchar(15),imageblob);

其中,picture字段用于保存图像的名称(包括路径),image(Graphic字符)则用于存储图像,其数据类型为“blob”。

2.建立窗体(如图1所示),设置窗体中各控件的属性。

该窗体的主要功能是将某人信息进行编辑和保存。需要注意的图像保存所用的图像框必须用Image而不能用TDBImage,编辑框宜用Tedit而不宜用TDBEdit,这一点与图像的读取恰好相反。

其中,各主要控件的属性设置如下:

Datasource1.Dataset:Κtable1;

Table1.Databasename:Κmydb.gdb;

Table1.Tablename:Κmyfriends;

Table1.active:Κtrue;

其他诸如Caption之类的属性设置不再叙述。

3.数据处理程序的建立。

(1)图像( .bmp文件)打开的处理。

procedureTForm1.pictopenbtnClick(Sender:TObject);

beginopendialog1.execute;

image1.picture.loadfromfile(opendialog1.filename);

end;

(2)图像保存的处理。

图像保存的处理程序完成把在窗体1所编辑的信息包括图像保存到相应的数据库中,其关键是要定义一个Graphic类型的变量且该变量要用assing()函数传递到相应数据库中保存。具体程序如下:

procedureTform1.Savebtnclick(sender:TObject);

vargraphic1:TGraphic;

begingraphic1:ΚTGraphic.Create;

我想做个程序员:Technovation Challenge圆女孩编程梦想 未来我们开发的Google Glass应用将会是什么样? 独家:前RIM大中华区总经理刘征宇,加入Appconomy 用一个API搞定一切 Segment.io为移动开发者提供便利的分析数据分发服务 TIOBE 6月编程语言排行榜:JavaScript回归前十 《Kingdom Rush Frontiers》上线后 迅速抢占27个国家游戏榜首 移动周报:85后程序员,iOS开源项目,细数7天大事件! Instagram:从Redis到Cassandra 成本节省1/4 乐元素CTO凌聪访谈:游戏引擎技术选型之王道 iOS 7的新设计并非止于外表 WWDC 2013大会10大启示:正向开发者支付大量现金 云计算大会微软专场成功举办 Windows Azure公众预览版上线 IBM全球大裁员 在美国裁员已经开始 动动鼠标,决定“中国十大优秀开源项目”的归属 为改善Flickr 雅虎收购拍照应用开发商GhostBird 让你轻松学习新代码库的六个步骤 RESTful API 设计最佳实践 谷歌11亿美元豪购Waze原因:获取数据 争本地广告市场 为什么大家都要疯狂吐槽iOS 7的扁平化设计? 伟大的程序员是天生的,不是造就的 比Hive高效7倍 Facebook推新一代查询引擎Presto 未来的存储系统设计——PMC技术交流会举行 第五届中国云计算大会PPT尝鲜:十位专家分享的架构实践 “DIY”可穿戴设备:索尼开放智能手表固件 在微软的八个月里,我学到了这些 谷歌实习生每月都拿$6000,你呢? 【第五届中国云计算大会】由瓦特变比特输出,新疆要做中亚云服务中心 应用程序扩展性实现的十宗罪 图文:看谷歌实习生的惬意生活 为移动而设计:交互设计篇 小米游戏中心月度报告:极品、神庙、找你妹 如何启动与关闭外部程序. 怎么样删除某一个目录下的文件~~~~~急 请问在WIN2000PRO上安装PcAnyWhere Ver.10后经常死机,会是咩原因造成? 如何在SQLNET中配置配置命名服务器? 我做的鉤子,為什麼不能截獲WM_DESTROY消息 有谁用过java+Dimino开发过项目? vcl的类的析构函数怎么继承? 紧急求助!在线等待! DELPHI怎样通过ADO来对DBASE3的数据库表进行物理删除?高手请进 如何使用C给FOX的DBF库加上索引. Encrypt加密源码 将桌面存为图像文件? DIRECTX3D问题 如何统计字符串中的字符数量! 怎样知道自己电脑的声卡是什么型号?并安装相应的驱动程序? 跳转窗口的时候如何消除工具栏 使用cuteftp时出的错! 怎么能添加一个链接 寻求使用rtp/rtcp的实时视频传输例子!! 输入法与文字处理程序间的关系是怎样? 如何使数据窗口的全部数据默认选定!? 请问,Delphi中有类似VC的静态变量吗? 想要一个用jsp做的新闻发布系统 请问ORACLE的凭证检索失败是怎么回事?--谢谢 char *mdd=5 内存中进行了什么动作?可否解释一下 我想问多下,那wininet.dll 文件是不是nt的系统都有噶? 搞得我头都大了的"多媒体"问题??????????? 重新调用一个方法。 Query的问题? active report作出的报表地下怎么会有这个公司的广告呀? 求救:关于树在建立游戏模型上的应用,及说明 Win2000下屏蔽Win键 怎么把字符串拷到另一个字符串数组里 Delphi_Li(Delphi Li) ,lincanwen(海) ,Focus(老鱼) 刚才关于opengl的帖子手一发抖就给结了,对不住,麻烦来领分,谢谢各位 请教大家关于 认证考试 的问题 更改窗口标题条文字 jsp连接domino数据库? 帮我分析一下!!!!!!!!!!!!! 关于oracle的问题,很急 capDriverConnect函数和capDriveDisconnect函数疑问 crystal report 的问题 Delphi调用win32函数的帮助borland公司提供了吗? 请介绍几本考网络设计师的参考书! 怎样设置另一个对话框IDC_EDIT的值 在线等待:在Java中是否有权限修改一个文件的权限? 【 刚才很生气,深圳农民意识的人太多了,做出的事情好可笑,我很生气 】 急需Java程序员 有谁用过链接服务器? 关于用java连接domino数据库? 如何判断一个已打开的socket的状态? 坏习惯不知道该不该改,给个建议。来者有分! 数的运算分类 (小学阶段) 东莞虎门镇的GDP270亿江苏华西村GDP500亿,为什么很多人还吹东莞虎门呀? 为什么Mg+O2点燃是MgO不是MgO2镁的化合价不是+2么、然后氧的化合价不是-2么.约分掉是一比一、应该没变化的呀.为什么会是MgO.禁止复制他人的答案.如果别人的答案看得懂、我就不会问了.MgO2的 走一步再走一步最后一段的生活哲理是什么 到东莞的虎门怎么坐车? 为什么甲烷与氯气比例为1:4时,会完全生成四氯甲烷 进太空的食品为什么要真空包装 东莞虎门镇在哪个区 问一道生活中的物理题两本语文课本,都有260多页,把他俩的每页都交叉起来(就像洗牌一样),并叠起来的部分长20厘米,宽8厘米,把两本课本完全交叉以后,我用尽全身力气,整得面红耳赤都拉不 描写夏天热的句子 我国一颗人造地球卫星一圈需1.9小时,平均每秒飞行8千米.这颗卫星绕地球一圈飞行多少千米?是多少? 含容电路中电容器有没有电阻? 宇宙为什么存在,能把宇宙包含的东西用是什么 一颗人造地球卫星每分钟大约飞行499.2千米,1.5小时能飞多少千米? 计量一个城市面积以什么作单位 关于空间里的某东西我傻了 - = 所以 我这东西为什么是这样的 怎么弄正常 人造地球卫星每分钟大约飞行499.2千米,0.9小时能飞行多少千米?急 如题... 计算面积(单位厘米)快点第一采纳! 2012黑龙江省鹤岗地区全年积温 气候 一颗人造地球卫星8秒航行64千米,照这样计算,14秒可以航行多少千米?(用比例解)kkk! 为什么当人造卫星速度慢到每秒钟7千里左右,就不能再绕地球飞行了?请问一楼 为什么此时飞船的惯性减慢了 失去了地球对它的引力了 请问二楼 为什么如果卫星速度降低,它所需要的向心力 2010年黑龙江省绥化市全年积温多少度 南极是不是最冷的 关于走一步再走一步将困难分解有关名言 一切磁场起源于什么运动? 为什么南极会那么冷 走一步再走一步的相同名言警句要有中心的名言警句. 带电粒子在磁场中运动在xo的区域中,存在磁感应强度大小分别为B1,B2的匀强磁场。磁场方向均垂直于纸面向里,且B1大于B2.一个带负电荷的粒子从坐标原点o以速度v沿x轴负方向射出,要使 2011年水稻价格 走一步再走一步可用哪句名言警句来概括? 在小学里学过的数中,计数单位不变的是什么是列式 我国国土中,平原面积比丘陵多1/5,平原面积是丘陵的( ) A.6/5 B.4/5 C.5/6拜托了各位 谢谢 高数,利用判别法 讨论反常积分的收敛性e^-axcosxdx(a>0)从0积到正无穷 (小学题目)0、1、2、3、4……都是整数 ( ) 个位、十位、百位……都是整数的计数单位( ) 一个六位判断题0、1、2、3、4……都是整数 ( )个位、十位、百位……都是整数的计数 Mg+O2=MgO CO2+NaOH=NaCO3+H2O Fe+Cl2=FeCl3 NaOH+H2SO4=Na2SO4+H2O 请将这些化学方程式配平, 请问这个高数反常积分审敛法的证明过程 这个比较审敛法1怎么证明? 夏天真热呀!请用几句话描述一下夏天的热好点注意是夏天! C+O2=CO2 这个化学方程式和这个化学方程式Mg+o2=Mgo 好像没有配平,还是配平好了,(理由) 怎样去南极旅游? 走一步再走一步的道理 (成语) 为什么数学中单位要统一?才能计算 为什么人造地球卫星绕地球飞行不会落下来,而抛出的石头会落地.不用非常详细,但要组织好语言.因为人造卫星和飞船发射出去以后,它以特别大的速度围绕地球运转,抵挡住了地球对它的引 电子会在磁场中永久运动吗假定无其他作用力,磁场均匀 有什么简单的方法可以让水瞬间结冰!谁能瞬间结冰方法.要求简单.在生活中有的道具. 我试过用盐和吸管,打火机和盐(食盐). 烧了吸管封住一边的口插入盐水中后,水却不结冰!(试验失败) 人造地球卫星能够绕地球飞行,与________和____有关 丘陵海拔高度为多少? 实验室常用98%(密度=1.98g/ml)的浓硫酸配制1:4的稀硫酸.此稀硫酸的密度为1.23g/ml,其物质的量的浓度为 地球外有几颗人造卫星绕地球飞行?请把它们中的"之最"介绍一下 丘陵海拔高度 建三江水稻价格 南极最冷吗? 平均海拔小于200米的地形为平原或丘陵相对高度大于500米的地形为山地所有人问你海南岛的平原丘陵面积大还是山地面积大你如何回答 描写夏天热的诗急 急 急 急 急 急 急 南极怎么那么冷呢? 小学学过哪些数?有什么应用?今天要啊! 建三江水稻稻瘟病怎么把内荣删掉了 谁知道现在水稻价格.我是黑龙江方正的.我还有水稻.北稻五长粒稻有收的吗?多少钱. 在小学阶段我们曾经学过哪些数 冬天的时候,室内一般温度保持在多少度比较好? 现在黑龙江省水稻价格?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘