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

用Delphi实现JPEG格式图像的显示

HTML文档下载 WORD文档下载 PDF文档下载
用Delphi实现JPEG格式图像的显示

Delphi中的TImage控件直接支持Bitmap格式(.bmp)、 Icon格式(.ico)和Metafile格式(.emf or .wmf)的图像文件。在Delphi的设计窗口中可以把这三种格式的文件赋给TImage控件的Picture属性。TImage控件还能显示其他格式的图像,如JPEG格式的图像。但不能直接把文件名赋值给Picture属性,而需要把图像对象赋值给属性Picture的Graphic属性。Delphi 3.0 提供了TJPEGImage类来支持JPEG图像,调用TJPEGImage的方法LoadFromFile可以从文件中装载JPEG图像。因此显示JPEG格式的图像,实现起来相对容易一些。以下是一个测试程序的制作过程:

1.建立一个新的应用程序,窗体(Form)的名字为Form1,对应的单元名为Unit1。

2.在窗体中放置一个TImage控件,名字为Image1,将其AutoSize属性设为True。

3.在窗体中放入一个按钮(即TButton控件),取名为Button1,把其属性Caption改为“装载图像”,在Button1的OnClick事件中,加入代码后如下:

procedure TForm1.Button1Click(Sender: TObject);

var

JPEGImage:TJPEGImage;

begin

JPEGImage:=TJPEGImage.Create;  //创建JPEG图像对象

try

JPEGImage.LoadFromFile(′F:\forest.jpg′);   //从文件F:\forest.jpg中装载图像,视实际情况改变此处的文件名

Image1.Picture.Graphic:=JPEGImage;  //赋值,使Image1显示JPEG图像

finally

JPEGImage.Free; //释放对象

end;

end;

4. 类TJPEGImage定义在单元jpeg.pas中,因此必须在本单元(即单元Unit1)的uses 子句中包括单元jpeg。

5.运行本程序,进行测试。

以上程序在Delphi 3.0下调试通过。

初创公司AppNeta:4轮融资,4780万美元 MongoDB释放2.4版本:692更新及8大得意之作 十年6亿美元!Amazon云计算喜获CIA大单! 国人当自强:HTML5+联盟首次筹备会成功举行 开源框架TAAE发布 快速打造iOS音频应用 如何学会600多种编程语言 “第五届中国云计算大会”将于2013年6月5-7日在京召开 Ridiculous Fishing:游戏遭遇山寨如何一雪前耻 老游戏的今天:Doodle Jump每周进账2万美元 剑指Evernote 谷歌正式推出Google Keep 开源的JS MVC框架 Backbone.js 1.0发布 前Facebook资深员工王淮给技术创业团队的十点建议 微软发布Windows Embedded 8系列操作系统 Google Play 4.0抢先体验 中国 vs. 非洲:移动医疗的前世今生 Java大数据框架初创企业Concurrent获400万美元融资 基于Edge Animate开发CSS3 Animations 后端服务商Firebase发布全新iOS SDK [爆料]百度云或在秘密打造实时移动Web App开发框架 打造最佳开发团队的几点建议 Facebook与开发者交恶 扼杀第三方应用 负载大逃亡:四十二路怪兽联军及七条逃生法则 那些年,MIT技术男们奇妙的黑客作品 深度分析:腾讯3.3亿美元收购Epic股份值吗? 传下一代iOS或将推行扁平化设计 iOS开发者注意:苹果将拒绝访问UDID的应用上架 领先Google、Amazon、Dropbox,Apple云存储用户最多 传IBM重新设计晶体管 预计五至七年内成熟 快讯:云计算大会6月召开 云计算概念企业股票飙升 集成开发环境:Qt Creator 2.7.0发布 移动周报:“今日头条”CEO,爱冒险的技术宅 请问是否有可以统计数据的电子表格控件? 给点看法? 是不是来这里的人混得好的不多,搞得我都不敢跳槽了 倒霉就一个字,我只说一次。 一个关于Delphi的简单循环外提(编译优化)的测试,有兴趣进来看看 大家遇到这样的问题了吗? DTPicker的问题,急急急!!!! sun的ultra5启动时显示没有键盘设备,可能是键盘坏了,哪里能找到这种8芯的鬼键盘? softice调试时出现的有意思的问题 怎样终止一个函数? 关于j2ee的几个问题 谁有数值计算方法与c语言工程函数库的代码,急!!! 麻烦有项目开发经验的大虾进来看看,给项目估个价!谢谢! 急!!大问题!!求助!!发扬你们的美德吧! JAVA的配置问题 菊花在水里跳舞!!! 用什么来写啊!!!jdk还是jbuilder TP-LINK的RTL8029(AS)芯片的网卡怎么装? w32dasm怎么把程序中的中文字符串反汇编成指令了呢? 曾用B/S四层结构开发过OA的,请进!! sql语句的问题? 关于QUERY->SQL的赋值 c++学习中的问题,拿来和大家一起讨论。 求助!要写一个MP3的播放程序~~ Project Settings里面的设置怎么设为默认值,让以后新建的每个工程都适用? 怎样读取数码相机的照片,并将它存入sqlserver数据库中(100分) VB6菜单设计器设计的菜单跟到WINDOWSXP下面,会自动变成XP类型的菜单吗? 请问openpicturedialog的用法? 紧急求教:ScktSrvr(Borland Socket Server)设置问题????????? 关于com与asp的疑惑 怎样读取数码相机的照片,并将它存入sqlserver数据库中 JSP里连接DB2的疑问? 为什么dbgrid的网格颜色属性的更改不是每次都可以。 请教名位大虾!~怎么安装.NET?今天刚买的,却不会装,七张光盘的!~ rose 的问题, SELECT 语句中的WITH TIES作用是什么? 西南交大 农历这么转换成公历?UP有分!急用!问题解决马上给分!不够再加。 关于数组的问题!在线等,谢谢了 不从新发送信息,则无法刷新页面!!! 一个旧声卡怎么才能知道它的型号? 我使出浑身解数,还是装不上sql server2000 ,怎么办? 各位师兄,想问一本书(王国荣的)的书具体内容?! 请问该如何处理?? 请教:关于excel2000链接对象.谢谢() CBC6使用手记--鸡肋 在线等待 如何从一个数据表的某字节中只提出来N个字符!!!!(帮我看一下,谢谢) dbgrid 与 adoquery 的记录如何...? 难道没有人懂水晶报表!??? 季老大帮我搞定!!!!!!!!! 如何依据性格因材施教 乔布斯属于四种气质类型中的哪一种?或者是哪几种的混合?求心理学高手分析,谢谢 一文中最后说:"坐下来亲密地交谈起来."他们会交谈什么? 因材施教是什么?请从实际出发讲解几个方面. I need to buy a lot of things 改为反义疑问句 请根据苏教版小学6年级课文《负荆请罪》的结尾,想象并写出二人亲密交谈的场景,字数150左右 什么的暑假生活为题的作文 She was covered in mud.in为什么不能换成with? 负荆请罪他们会交谈什么? 暑假为题的作文不用你把文章给写出来,只是希望得到一些别出心裁的点子. 谜语,什么锁没有孔?什么书没有字?什么情说不出?答案可以连成一句很浪漫的话, 在《老王》怎么理解那是一个幸运的人对一个不幸者的愧怍 某炼油厂有一批石油,用甲种油车装要45辆,如果用乙种油车装要36辆.已知甲车比乙车多2辆,问:"总共多少吨?某炼油厂有一批石油,用甲种油车装要45辆,如果用乙种油车装要36辆。已知甲车比乙车2 什么锁没有孔 什么书没有字 什么心不会跳 什么情说不出 什么灯不会亮 答案会连成一句浪漫的话, 《卖炭翁》一文中表现卖炭老矛盾心理的诗句是“_______,______”?两句 最让难忘的一句名言 什么锁没孔,什么书没字,什么心不会跳,什么情说不出,什么灯不会亮,答案连成一句浪漫的话, 卖炭翁中表现卖炭老人矛盾心理的句子 观察一组数:-3 -15 -35 -63 第100个数是多少第N个数是多少? 为什么真空包装后会漏气 帮帮我猜猜谜语,什么锁没有孔?什么书没有字?什么情说不出?什么灯帮帮我猜猜谜语,什么锁没有孔?什么书没有字?什么情说不出?答案会连成一句浪漫的话. 一批石油,用甲种车装要20辆,用乙种车装要25辆,已知甲种油罐比乙种油罐每辆多装2吨,求这批石油重多少吨 She covered the well with a big stone 的被动语态及The workers are buiding a new road. 我是艺术生 马上要艺考了 想根据我是的名字写自我介绍怎么写 一批货物,用甲种车装要用45辆,如果用乙种车装,只要36辆,已知乙种车比甲种车每辆多装4吨,求这顿货物重量不要用解方程方式,怎么列方程式啊,不要解方程 帮帮忙猜猜,什么锁没有孔 什么书没有字 什么心不会跳 什么情说不出 什么灯不会亮 答案会连成一句浪 去婚姻介绍的地方,我是男生,填表格,怎么介绍自己?怎么写自己想要什么样的对象?我第一次,脑子挺空的. 数学题阅读及理解(好的另加分)!题:某项工程,甲队单独做需12天完成,乙队单独做需9天完成,若按整日安排两队工作,有几种方案可以使这项工程完工的天数不超过8天?解法:①设甲乙合作x 第三周期金属元素都为碱性氧化物吗 文中对老王用到了哪些描写方法?试举例说明 We need to eat a lot of g______(grain)lke ice and wheat 简短现代诗 蜗牛爬树 树有10米白天爬4米晚上落3米几天爬完 请问什么是孵化器?一般有什么作用?对企业有什么好处? Now,the rain___只能一个词 蜗牛某天早上开始从树根沿着树干往上爬,白天爬四米,夜间下滑三米,按这个速度,蜗牛爬到高十米的树顶,需要的天数为().A.5 B.6 C.7 D.8 《最让我难忘的一句名言》作文,不知道不要乱回答. Now,the rain_______.这个空格只能填一个单词急快! She is not-----she used to be.A what B whom C that D which 为什么谢谢. 我与 同行为题目的作文,别跟我说奥运 一批货,用甲车装,要45辆;如用乙车装,要36辆.已知乙种车比甲种车每辆多装4吨,求这批货的重量 蜗牛沿着树干向上爬,白天向上爬90厘米,夜晚向下滑70厘米,第5天结束时到达树顶.这棵树有多高? 最让我难忘的一句名言,急 请看下图.答案为[-8,1], bag的复数形式是什么?如题. 一个数的70%是35,这个数是( ). 请阅读下列材料:谈祥柏是中国人民解放军军医大学数学教授,在科普领域辛勤耕耘,创作出不少优秀作品,深受广大青少年喜爱.此外,他对文学诗歌很有研究,将数学与文学诗歌有机地结合在一 look!my room is--------bigger than yours -------填什么 最让我难忘的一句名言结尾咱奥比给丸子妹妹头、我叫、Doy_卡哇伊要快、快、快、快、快、快、 whom did you meet yesterday?That man?yes,he's the man whom I met yesterday.为啥上面的meet不用过去式 上山速度为5千米每小时,下山速度要达到多少,才能使上山下山的平均速度达到10千米每小时?请列方程解,无解的话需要解释为什么为什么会无解,题目有什么问题?请解释一下, 不要就方程 一个数的70%加63等于它本身,这个数是? how do you men in Amerrica greet each other wehn they meet? My schoolbag is bigger and heavier than .A.you B.yours C.your 一个数的35%是70,这个数的1/5是( )一个数的35%是70,这个数的1/5是( ) 直接引语转间接引语 She said,"Did you meet this man at the station two hours ago,Mr Li?" 什么锁没有孔?什么书没有字?什么情说不出?答案会连成一句浪漫的话. 利用心理学的相关知识谈谈如何因材施教 描写蝉的句子 杨绛的老王一文中作者为什么觉得自己是幸运的人 土耳其敦促安理会解决叙利亚难民危机洪水袭击“印度米碗”伊朗外长与联合国-阿盟特别代表呼吁政孟加拉国总理呼吁反对党取消全国大罢工奥地利总理国庆讲话告诫不忘纳粹历史巴勒斯坦呼吁共同抵制以扩建犹太人定居印度东部洪灾死亡人数升至45人李娜打入总决赛排名进Top3 创亚洲河南济源一路段7公里6个“收费站”专刘云山:教育实践活动整改工作要准、狠白岩松惋惜恒大未能锁定胜局:首尔死刑亚冠决赛首回合恒大2-2首尔 穆里奇中国科学家成功研发人感染H7N9禽流宗庆后语出惊人:中国不能再造房子了李克强在中南海紫光阁会见东盟十国经贸捅死医生的连恩青烦躁时砸东西打母亲 亚冠决赛首回合恒大2-2首尔 穆里奇美国“窃听门”持续发酵 欧洲各国一致德国品牌专家:中国品牌升级要品质更要浙江省委书记夏宝龙:希望天下浙商争做亚洲食学国际论坛登陆绍兴 中国大厨展“伟哥”是把双刃剑绿都公元基金亮相中国资本高峰论坛道德退散,法律架空枕头的功劳荷德会师能进几个球?二手房降价如何“捡漏儿”绿地启动首个产业平台项目谁的沙滩阿根廷配得上冠军还是流言?“浦东杯”钓鱼大赛举行德国PK阿根廷是一场“巴荷”“掌上故宫”带你玩转故宫7月楼盘继续大举入市新闻点点评集美家居举办30周年庆典国博展出“越王勾践剑”话题1 巴西被保送进决赛?公交地铁调价今起征集意见
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘