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

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;

苹果设计师:开发者们的应用图标设计对了吗? AWS兴起之路:尚未成功 仍需努力 John Carmack:我们为什么不开发Linux游戏 最具创新力公司50强:耐克居首 Web如何成为另一个应用商店 Adobe发布Photoshop1.0.1源代码 大数据时代正在到来 微软CFO:我们的移动战略没有“B计划” TIOBE 2013年2月编程语言排行榜:历经十月Java重返第一 为让用户亲身体验产品 谷歌年底或开零售商店 谷歌推Chrome API支持HTML5实现本地离线数据存储与同步 Ubuntu开发者预览版将于月底开放下载 因Java漏洞,Facebook遭受恶意软件攻击但未泄密 HTML5预测 取代本地App将成为可能 2013年最佳实习企业:微软仅居第三 助力响应式设计:Adobe发布最新HTML5工具包 VMware控告Hortonworks恶意挖角 2013年大数据真谛:实时分析与批量处理 微软招聘信息证实Windows Blue项目正在推进 研究人员正开发永不会崩溃的计算机 Google:开发者应尽早进入可穿戴式计算 Chrome OS身世及其创始人之谜 谷歌举办Glass Foundry黑客马拉松活动 获80款Glass应用 政府和法律的干预拖慢了云计算发展 AMD打造开放的异构计算标准? Podcasts:苹果史上最烂iOS应用 烂过iOS Maps 日本游戏开发公司谈:如何在激烈的APP世界立足 VC不会告诉你的8件事 Reddit宣布将接受虚拟货币Bitcoin付款 OneID创始人:双因素身份验证无法保护Twitter Opera放弃自家内核转投WebKit的背后 ===============想知道111222去向的朋友,看这(独家披漏)===================== 以下SQL语言如何写? 111222走了~~送分~~~心里不好受~~~ 111222真的走了~~~~~~~~~~~ JBuilder中用MYSQL数据库,用中文进行条件查询时,查不出任和数据? ASM 菜鸟问题,请大家帮忙!谢谢 解释一下好了吗? ============答对我的问题者,将可获得111222的签名照片!!!!!!!!=========== 关于图片的上传 ======== 绝对好消息,activereport2.0已经release 了,cracker们出动啊~~~~~加油 ============= 关于什么才是真正的系统分析和系统分析员的讨论!——欢迎大家参加,进行善意地讨论!^&^ 今晚的球赛什么时候开始啊? 哪里有关于水平考试(高程)的模拟题的啊??? 为什麽还是不能显示中文呢? 怎样获取WIN2000的密码 在父窗体怎样画jpg格式的背景图? 如何注册MSComm控件????????? 如何解决这个问题啊?重赏啊!!!! 公告: 从现在开始封shines 111222 :)流芳斑主,结贴的工作要开始了,会很累啊!我代表大家先谢谢你了! 怎样改变MSHflexgrid中每条记录的背景颜色。急急急急急急急 各位,能不能给我讲一下“句柄”是怎么一回事? 唉,心情不爽 关于C++语法的问题? 灌水-----大学时的恶作剧(转载) "setdibs()"是什么来着,请指教,谢谢! 写注释不宜过头 这段代码错在哪里? 请大家预测一下比分(参与者都有分)开赛后就不算了,还有半个小时,赶紧着 写网络电话程序的讨论 最后一帖,贴完睡觉----如何在电梯里捣乱 怎样定制一个在程序中重用的组件?只能通过包方式吗? 寻寻觅觅 汉英计算机科技文章 互译!!有劳各位朋友费心帮忙找找 我靠!真TMD不爽,这个时候准老婆的老妈进了医院! 怎样调用*.db格式文件 谁知道哪儿有英汉互译,急急急急!!!! ISO 9001认证 VS CMM2 谁知道哪儿有《神秘的人月》下载? 为111222求情 怎样可以修改浏览器的标题? 怎样可以修改浏览器的标题1? 哪位能给我一个source insight 3.0的sn号? 怎样可以修改浏览器的标题2? 如何异步调用远程组件的方法? 哈哈!球赛开始了!我也不想去医院了!!!顶多明天挨顿骂! 上CSDN的有谁是七月份毕业,大家认识一下 我想问问,一个程序员的黄金年龄是多少? 如何由CRgn得到一组Polygon? 初学者请教一个小问题!急急急,尿都快急出来啦! 急急急急急急急急急急,用vb怎样知道COM口是不是打开着,能不能不用控件高分. 高手请看:20 分 我想给50 分,但是系统只让给20分,对不起大家了,有机会一定补上!!! 8.5x-3.5x=27.5 求方程 2(x-2. ..二元一次方程组...有一些苹果箱,若每只装苹果25千克,则剩余40千克无处装,若每只装30千克,则余20只空箱,这些苹果箱有多少只?请列式计算...PS...符号"^"表示上标..即N次方...每个方程组之间请 0.1(X+2)-0.9=0.5这个方程怎么解 8(X-6.2)=41.6 (X-3)/2=7.5 这两个方程怎么解 列二元一次方程组解2道初中数学题1,一旅馆的客房有3人间和2人间,3人间每人每晚25元,2人间每人每晚35元.一个50人的旅游团到该旅馆住宿,租住了若干客房且每个客房正好住满,一天共花住宿费1 ×的2.5倍比它的1.8倍多9.8.求方程的解 帮忙解一道方程,x-18=3(x-26) 初中数学二元一次方程组题一个两位数,个位数字比十位数字大5.如果把个位数字对调,那么所得到的新数与原来数的和是143.求原来的两位数 方程:6乘9+3x=70怎么解? (x-2)/(x+2)+16/(4-x^2)=(x+2)/(x-2) 初中数学题(有关二元一次方程组~急)1.若|X+Y-3|+(X-Y)^2=0,你能求出X,2.已知t满足方程组{2x=3-5t,则x和y之间满足的关系式是_______3y-2t=x, 这个方程怎么解?250X=200*(6.75-X) 3x+0.9=3.3的方程怎么解 解一道方程!3分之2(x-y)=4分之x+y-1 6(x+y)=4(2x-y)+16! 250X=200(6.75-X)怎么解,详细点,谢谢 3x-2.4=6.9 方程 第十六题该怎么算?方程式来的. x÷250+x÷200=6.75这个方程怎么解, 方程-3x>-6的解是? [(4-x+4)*4/2]+(4x/2)=16 这道方程怎么算 X/250+X/200=6.75 这题方程具体怎么解 请解这个方程:(9×0.7)×3x=1 x+9=2x-9这个方程怎么解 方程8分之1x-4分之1=2分之1的解是() 8(×-6.2)=41.6(方程) 求方程9^2x-1=4^x的解 怎么解x-(6/1x-30)=8/7x这个方程怎样解 (X+1)*6=(X-1)*8这个方程咋解? 方程9^(2x-1)=4^x的解x=RT x-4/1x=(150-x)-30 这个方程怎么解?是四分之一!不是一分之四! 判断题“方程X-1.2=1.6的解是2.8”这句话对吗? 2x—9=x+9(方程解答) x+4分之1x=30怎么解这个方程? 数学判断题:方程5+2x=16.2的解是5.6 x比6分之5=9分之5【比例方程】 20分之1x加30分之1x=1求方程怎么解? 判断题:x=2即是方程式,也是方程的解 解下列方程 15分之4+X=1-15分之4 X-(3分之2+4分之1)=6分之5 x-(8/1+21)+6/1x-4=102这个方程怎么解 怎么做在等式两边都有X的方程,比如说,8X+4=10X,要详解过程哦 3分之2(x+1)=6分之5(x+1)-1++方程怎么解 已知方程3(3x+3)—1=2x的解和3x+m=四分之m—27的解相同!求m的值 方程14+(4.8x-6)-2.8x=8怎么解 8题的方程. 已知方程3(3x+3)-1=2x的解与关于x的方程3m+m=m/4-27的解相同,求m的值. ﹙6分之5+8分之5﹚×x=20分之7(方程加过程) 求救7,8两题拜托用方程解 已知方程3(x+3-1)=2x的解与关于x的方程3x+m=3m-27的解相同,求m的解 列方程,求x的解 输入20,乘6,减去7x输出50 7.8-x=6.2这个方程怎么解 8(x-3)-5x=27类似的方程跪求!有的话给我发十道 列方程式解答:240比X的一半多60.一个数加上它的20%后是8.4,求这个数. 第6、7题用列方程解决. (x-3)+5x=27用方程解 【5+x】*8/2=6哦【列方程, 6、7、8题怎么做直接列方程不用解 8(x-3)-5x=27方程怎么做?完整无误! X+6/5X+6/5X*31/4=320这个方程怎么解 七年级上册数学复习题3答案 速度好急快啊要方程的式子 和答案 6.7.8.9题要过程 急 速度速度速度速度速
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn