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

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;

初创公司Kickboard:让父母了解孩子的在校表现 Rackspace收购开源数据库公司ObjectRocket 投资人表示微软应推出iPad版Office 三星:谷歌养大的一匹狼 UC九游年度战略:2013计划分成超3亿元 X-Canvas:UC将发布高性能HTML5游戏引擎 淘宝:OceanBase分布式系统负载均衡案例分享 Cloud Foundry面临代码分支 策略为王股票软件VC源代码简介 StarCraft开发:用肮脏的技巧解决难题 忠于用户:美团1000亿的卫星与Groupon的窘境 360周鸿祎开放日回应质疑:都是做搜索惹的祸 轻量级的高性能Web框架:Play 为什么会失败?社交鼻祖Friendster的“验尸”报告 那些年Google公开的大数据领域论文 遍地撒网,重点培养,King.com颠覆性游戏商业模式 Adobe正式发布Photoshop Touch图像处理应用 2013年全球重要黑客大会一览 Gartner:2013年公有云将增长18.5%,达1310亿美元 开源炫彩界面库简介 一周消息树:我的十年编程自学之路 移动搜索状态:谷歌称雄 仍有较大发展空间 移动周报:我为什么弃用Objective-C而选择RubyMotion? 2月浏览器排行:IE高歌猛进 Chrome创17个月新低 Twitter创始人:最好的程序员大多是自学成才的 Evernote遭到攻击,5000万用户密码重置 VC++开源项目:P2P播放器AVPlayer NetIQ亚太区经理Ian Yip:移动社交工具崛起带来新机遇 快播CEO王欣:我不做内容,只钻技术! EMC中国凭什么说营收5年再增5倍? HTML5:或助三星Tizen 2.0逆袭主流移动OS 关于my3b (重阳公子) 的注释的问题,我也在奇怪. 平铺的数据 征集意见:写一个酒店管理系统.分不够再加 vb.net是怎么回事/?在学之前要哪些基础准备? 在VMware如何装SCO UNIX 谁有VMware版的SCO UNIX 5.06啊!!! 如何实现啊?---- 求一个函数! 50分,请大家帮忙寻找这个笔记本网卡驱动紧急求助(Fast Ethernet pc card) 求 Quoted-Printable,8bit编码方式的解码函数 菜COM:DELPHI如何独立编译,WAITING ONLINE 请求速答 请指点 但不知pb是怎么回事 在学之前要哪些基础准备? Authorware新家园,捧捧场哦 各位,那有候捷翻译的《windows 95系统大奥秘》的简体中文版可下啊 关于作用域 反对有些人以爱国或真理为名侮辱我们的政府!!!!! 但不知delphi是怎么回事 在学之前要哪些基础准备? 请问 SET XACT_ABORT ON 怎么用啊 散分!!分不够再加!!! 请问扩展名名为asp的文件怎么打开? [ZT]GOOGLE的彩蛋 看看,怎回事? Xsl:for-each进行循环,如何能从循环中退出!急急急!!!给分 怎样实现更新 DBGrid 选中的多行记录? 有人能帮我看看这个存储过程到底是为什么运行不了吗?晚上结 请教高手 :在一个bean内只能有一个结果集吗? 如何从表单radio中得到它的value值呀. 验证问题 还是没有解决windows NT密码丢失问题啊 求救呀,来看看,谢了 可否用程序动态改变机器名? 动态创建数据窗口的问题 怎么给那么多份啊,为什么我不能给阿 [RMI]为何说找不到stub类? 求购sniffer pro 的使用教程 第一次来水源,散分!! 倾尽家财只为一题,不吝赐教者奉送全部分数 SP1 激活问题,新手求助! 可以解释一下dll是什么吗? 第一次来水源,散分!!(2) 大哥大哥!!!!!!!!!!!!救命 我是初哥! 活动目录问题:如何实现这样的活动目录服务? 请问我在水晶报表里面要每页都显示报表页眉应该怎样设置?万分感谢! 郁闷啊!!学VC真的是太累了!! db文件格式 xp下有什么好的调试工具 名校科班出身的程序员进来聊聊目前的状况吧 大本营会员注册问题 俺给各位磕头了!!!只要能解决一个问题。。。。online waiting... 目前开发MS SQL Server 2000最好的工具是什么? 哪种前端开发程序较好? 立体几何有关距离问题有关距离的问题,最好附上例题哈好的话我追加50分. 宗的拼音是什么?这个字 只能打 我拼音 如图,有三边分别为0.4m、0.5m和0.6m的三角形形状的铝皮,问怎样剪出一个面积最大的 我该怎样理解这句话和一个男生相处得时间不长,但感觉还不错,我们今年刚好考到不同的地方上学.可是他说他“预感不会持续太久,我们的关系是维持在语言交流层面上的,总会有没话说的一 如图,天车下吊着两个质量都是m的工件A和B 系A的吊绳较短,系B的吊绳较...如图,天车下吊着两个质量都是m的工件A和B系A的吊绳较短,系B的吊绳较长.若天车运动到P处突然停止,则吊绳所受的拉力F 残圆怎么画出整个圆 含“然”字的成语;含“笑”字的成语;含“海”字的成语每一种至少要20个.急——急——急——! 如图所示,天车下吊着两个质量为m的工件AB整体一起向左匀速运动.系A的吊绳较短,系B的吊绳较长,若天车运动到P处突然静止,则两吊绳所受力FA,FB的大小关系是? 我要详细解析过程.... 机械能守恒定律的题目一固定斜面的倾角为α,高为h,一小球从斜面顶端沿水平方向落至斜面底端,不计小球运动中所受的空气阻力,设重力加速度为g,则小球从抛出到离斜面距离最大所经历的时 汽车之旅英语怎么翻译 猫和猫头鹰是不是近亲啊? 建筑结构一道题,就是3.8那道 英语翻译"新疆是个好地方" 对许褚的四个字的称呼有什么 一道题 求极限的问题. 怎样裁剪90度铁皮弯头求关键步骤 许褚到底怎么出装 关于建筑结构问题我是初学者,如果一间四层高的私人住宅,二楼打算用大面积落地玻璃,从经济安全方面考虑是框架结构,砖混结构,还是混合结构好?我知道框架结构造价最贵,我还想知道它比砖 铁皮弯头怎样做能够准确分份、、、、、? 许褚是什么人物,有关历史语? 建筑结构的一道问题 斜面倾角为a 长为L AB段光滑 BC段粗糙 质量为m的木块从斜面顶端无初速度滑下 到达C时速度刚好为零求BC摩擦因数 许褚怎么死的 海运SER什么意思 立体几何求角问一下立体几何有一个求角的公式.记得是从一点引出3条射线,则3条射线两两所成的平面角和侧面3个二面角有关系.(是什么忘了.)我想起来了。是叫三面角。自己回答自己吧~ 请问“健康养生院”的英文应该怎么翻译? 这句话怎样理解张晓风的人生哲理是:在生命高潮的波峰,享受它;在生命低潮的波谷,忍受它:享受生命,使我感到自己的幸运;忍受生命,使我了解自己的韧度,两者皆令我喜悦.那么这段话怎么理 对立体几何的三面角有了解的进~已知三面角A-XYZ,其中的二面角X-AY-Z=a,X-AZ-Y=b,Y-AX-Z=c,求角XAY,角XAZ,角YAZ以及三个线面角(XA-YAZ...反过来,知道三个角XAY,XAZ,YAZ,怎么求三个二面角? 系粽子的绳叫什么 怎样理解这句话的 斜屋顶的吊顶该怎么设计? 物体除了做匀速圆周运动时有向心力,还在做什么运动时有向心力 你是怎样理解这句话的 吊顶在房顶上开个圆怎么样在石膏板吊成顶之后再顶中间弄个圆 圆上面怎么固定在房顶 怎样用最快的方式完成作业 填空(建筑物的结构)大神们帮帮忙请把填这些建筑物分类:民居,高楼大厦,电视塔,客家土楼,桥,石亭子 例:薄壳JIEGOU的有:石亭子.1.框架结构的建筑物有:( ).2.实习结构的建筑物有 .3.{ }结 屋顶是斜坡怎么装修? 一货车下用3m钢丝悬吊着一个质量为M的重物,货车以V的速度匀速行驶,若突然刹车,钢丝受到的拉力为多少? 建筑中的发券该如何理解?与拱顶结构有什么关系? 一物体从倾角θ=30 °的斜面上A点由静止开始下滑,AB段光滑,BC段粗糙,已知BC = 3AB,物体到达C点时速度刚好为零,则物体在BC段与斜面间的动摩擦因数?物体在ab段的加速度a1与bc段的加速度a2的b比? 看图猜的成语 英语翻译Personal factsOn the first day of class,Tom's teacher asked class to fill the out a form.The information always helped her get to know her students.Tom filled out the form like this. Full name:Thomas Smith 物体从倾角为30°斜面由静止开始下滑s1段光滑s2段粗糙.已知s2=2s1,物体到达底部的速度为0,求动摩擦因数 看图猜个成语 请问这是什么东西,有药用价值吗? 天哪,有没有快速完成作业的办法啊 1、下列物体所做的运动可以近似地看成匀速直线运动的是(). a 高楼中电梯的升降运动 b 机械表指针的运动 谁能告诉我这是什么,有药用价值吗...根有点像 2 物体从倾角为30度的斜面上由静止开始下滑S1段光滑,S2段粗糙,已知S2=2S1,物体到达斜面底部时速度恰好为0.求1,S2那段的动摩擦因数;2,物体运动总时间 一升降机从静止出发开始做匀速直线运动!一升降机从静止出发开始做匀速直线运动,先匀加速了3秒,又匀速运动了8秒,再匀减速后4秒停止,共进46米.问最大速度,各阶段的位移,各阶段的加速度 梧桐有什么药用价值作用麻烦告诉我 立体几何 求距离设A(2,3,1)B(4,1,2)C(6,3,7)D(-5,-4,8),求点D到平面ABC的距离 怎么样完成作业更快,求方法 豌豆的药用价值,豌豆不能与什么同食 立体几何距离,急,急已知OA,OB,OC两两所成的角相等,都为60度,P为OB上一点,且OP=m,求P到面OAC得距离. 39 English 42用所给动词的适当形式填空 1.There ______ [be]no food in the fridge this morning. 2.The young man _____ [get] the book therr days age. 3.The foreigners __ 曹妃甸湿地公园介绍 要文字,可以有图,但文字介绍必须多!不要怎么去湿地公园,更不要写曹妃甸湿地!湿地和湿地公园是有区别的!唐海湿地公园! 立体几何距离问题9-4-6 平面外有两点A和B,它们与平面的距离分别为a和b;线段AB上有一点P,已知AP∶PB=1∶2.那么点P到平面的距离是______. 如图 在矩形ABCD中E F 分别为边AB AD中点 现将三角形ADE沿DE折起 得四棱锥A-BCDE求证 EF∥平面ABC she has no paper ________.a.to writeb.writing onc.to write on选C对吗,to write on这里的on 能去掉吗,这是什么结构为什么不能去介词呢 强台风再次登陆日本 伊豆大岛全岛发布美国报告称纽约无家可归家庭与个人再创旧金山拟耗资数十亿美元改建饮用水及排日本抗议韩国在竹岛周边海域举行军演2014年巴西世界杯球员座席\"中国杭州一工地藏獒咬人 三支麻醉针才把它在未成年人中播洒\"善\"的种子 浙加沙学校课本纳入“武装抵抗”内容澳国防部就引燃新州“超级”林火向公众法国一女摄影师以中国题材作品获得美术美国8州将建方便设施 鼓励公民购买生委内瑞拉政府增设负责公民社会幸福感副马来西亚保安员枪杀银行职员后抢走19英媒:巴基斯坦女性地位低下 致女警招纽约一毒贩壁橱藏价值300万美元可卡马达加斯加举行总统选举南亚地区仍有6.75亿人露天排便法国职业足球俱乐部罢赛抗议 不满缴纳24架美军“鱼鹰”运输机落户冲绳 半美国监听行为激怒欧盟 欧盟各国首脑纷德媒翻奥巴马“旧账” 称其冷酷不愿交苏宁四大攻略领衔“五一”盛惠青工定向越野赛一季度工业经济稳中趋缓全新威驰荣获C NCAP五星好评名企集聚软件基地夯实湾区经济国产手机掀起新一波市场浪潮观致3五门版中国首秀东南R7、V6菱仕CROSS版亮相雅安40位单亲妈妈获资助全国成品油价格指数 小幅上扬农地抵押贷款“破冰”星河World启动城市公共艺术设计大雷凌强势抢滩中级车市场蓝珀身价 半年猛涨三成央行总资产规模全球居首深投教育企业管理创新高级研修班大鹏新区高端人才 和世界团队加速集聚斯柯达全新越级行旅车昕动上市昆仑山雪山寻源之旅报名踊跃祝惠春:自主品牌车企“一个品牌”或是2013年韩国GDP为1.3万亿美元
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘