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

用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下调试通过。

iOS应用安全开发,你不知道的那些事 市场化API的十个捷径 MongoDB和Cloudera结盟,欲征服大数据市场 红帽收购Inktank,将统一Gluster与Ceph? 那些巨头公司Logo是这么演变来的…… 以史为镜,剖析PaaS大迷局 “心脏出血”还不够?又曝OAuth和OpenID登录漏洞 走近讲师:搜狐于顺治讲述搜狐PaaS云平台实践之路 AppFlood 2014 Q1报告:亚洲和中东市场成为开发者出海首选 华为联合运营商构建能力开放平台 Facebook产品设计主管:揭秘公司如何招聘优秀设计师 【附信息图】美国因软件缺陷导致的十大事件 二十一世纪Windows简史 为什么用户体验和生态系统决定云公司的成败 三星Tizen,路漫漫其修远兮 用户体验是新优势,互联网会受到何种影响? 从GitHub看编程语言流行度 陈沙克:Openstack Horizon Icehouse Blueprint简介 叶琪:Hadoop不是万能的 要明确场景扬长避短 云网融合驱动数据中心技术聚变 给想持续编码CEO的4个建议 盘点开发者最喜爱的十大开源Xcode插件 Cloudera CTO:取代MapReduce 未来会加大Spark等框架投入 中航信资深分析师李洋:自主搭建云平台 助力民航业低成本迎接大数据挑战 安全狗创始人陈奋:借助Hadoop与Spark,欲打造服务器上的360 业界良心:Square开源Viewfinder,25万行代码全公布! 比尔·盖茨:核心业务Bing虽不赚钱,却不能拆分 不可错过,参加第六届中国云计算大会的十大理由 章津楠:未来三年,OpenStack将成为企业去V首选 EMC收购闪存初创公司DSSD,走出联合储存战略第一步 创业失败的七个原因及解决之道 请教这个函数的作用 //创建列的问题,谁帮我看一看缺什么,谢了 如何在本地访问远程数据库,用什么样的方法在速度、安全上都好一些 请大家指点下在深圳哪里可以办个边防证?谢谢 各位大侠,谁能介绍一下utf8,还有怎么把它转到gb2132编码呢? 我的毕业设计,一百分的送分题啊!!!!!!!!!!!!!!!!!1 窗体问题。。。 现有一个小项目: 怎样动态增加表格? 有人解决了jive的中文问题吗?? 报表就是查询结果吗?用VB很难做吗?为什么这么多人讨论,请问设计报表难点是什么? 请问我的VC地ClassView无法打开,有什么快速的方法可以打开 一个关于tomcat中servlet的棘手问题..... 谁可以帮我提供一个PHP的站内目录管理程序! 请问c++中,函数重载和虚函数有什么区别,在实现多态性方面有差别吗? 现有一个小项目: 如何对多个按钮的BN_ClICK进行映射 SQLserver备份与恢复 Delphi中怎样声明一个类?怎样实现多态?如果要在类库的一个类中添加一个方法又怎么做? 然后怎样封装它?是不是封装以后维护就非常简单? 可 计算机网络--〉清华大学出版社,作者:Andrew S Tanenbaum哪里有电子版下载 把播放F4的时间上《我们程序员都是活雷锋》 随便问问:VC能不能调用Access中的Form,Report 用ADO在线程中打不开数据库,请帮忙 如何在VB中动态的加载Dll,并使用其加载的函数??? 高手们看过来 Oracle初学,兄弟们多帮忙了! 怎么打开一个.txt文件,然后一行一行读取? 请问大家知道一个局域网里的IP在因特网上如何表示的呢。 请问各位,如何在我的程序中用代码生成Access数据库? 神啊,救救我吧,我想要含笑半步喋=== 请教NT4。0下的IE2。0怎样升级到IE6。0或IE5。0? 我要在程序中重载CBitmap类的一个函数,请问如何做 为什么我在bcb的new中找不到multitier(就是多层)选项页 请问如何知道数据库中有哪些表存在?在线等待 向各位大侠求救中 这是数据库的缺点吗? Choice.asp?VehicleType=a+&VehicleColor=Red + 传不到Choice.asp 如何获取文件扩展名关联信息 急!应选择什么样的服务器? 请问哪里有关于DOS和BIOS的系统功能调用的e书籍下载?谢谢指点 想用bcb的DirectX编一个显示器(第二个)的独占程序!希望专家指点!也欢迎大家来交流! 你碰到过这样的问题吗? What is meaning "$1 $2 " in perl? 配置支持ISAPI调用的 apache 服务器 怎样判断内存有没有被释放? window2000的安装和IE的问题 像我這樣的Boy,是否可以找到GF??? Oracle816连接问题,急 小妹有一事相求,请问哪里有SQL Server 7.0 的虚拟光盘下载啊?急!!! 谢了! Delphi的枚举类型是怎么用的?如果它的元素是字符串,怎样判断它和某个字符串相等? 我以前是用Delphi的,现在新找了家公司,是用C++Builder的,请帮忙推荐本C++Builder的书,谢谢 液汞是什么东西?是纯净物吗? 提倡勤俭节约有什么意义 请设计一个实验,探究下列物体中,哪些是导体,哪些是绝缘体?物体:铜线,硬币,铅笔芯,橡皮,塑料尺,玻璃一定要帮我解答.2011年2月10日下午4点之前. 学校有哪些安全隐患 节能环保的定义?我们公司就是做节能环保,北京智弘洁环保系统工程有限公司,www.zhihongjie.com 硬币,玻璃三棱镜,橡皮,乒乓球,铅笔芯,瓷碗,将它们按某种性能分两类(物理). 有哪些安全隐患? 英语翻译我们都是人,终有一死,但是,我们每天都在完成着一个重要的使命---给自己的子孙一个生活的天地. 在橡皮,铅笔芯,塑料三角板,小刀片,硬币中哪些是导体?只需说明哪些是导体,哪些不是即可! GB2893-2008安全色的红色、黄色、蓝色、绿色色标值是多少? 节能降耗的含义是什么呀明天中午就要用, 朴素是什么意思? 怎样确定一氯代物的种类2,2-二甲基戊烷,3-乙基戊烷,怎样数它们的一氯代物种类呢?重复的应该怎么办?可是你的答案好象不对啊,和老师批改的不一致,你把3-乙基戊烷再解释下,重复的只算一个, 请问为什么氯化钠不和纯碱反应? 乙二醇的主要用途是什么 一氯代物和两氯代物的种类怎么求? 硫酸是否能和氯化钠反应? 安全色代表什么安全色是传递安全信息含义的颜色.红.黄.蓝.绿分别代表什么? 关于烷烃一氯代物种类的问题比如说这个:CH3-CH-CH2-CH2-CH3| CH3 怎么判断他有几个等效氢,并且关于哪个对称!应该是这样写的:下面那个 | 对着第2个CH 清纯是什么意思?要正正完完全全解释,"清纯"是什么意思?我可不留人. 怎样用一个小烧杯鉴别自来水、蒸馏水、硝酸银化学问题, 丙烷的氯代物的种类 朴素是什么意思 家中的水银体温计里的汞挥发了,会给人体带来怎样的伤害? 有机物氯代物的种类如何数?请举例说明!越清楚越好! 朴素的意思是什么 体温计碎了里面的水银对身体有没有危害 谁有瓦斯隐患定期排查治理工作制度?帮帮 在油,蒸馏水,人体,铅笔芯,糖水,铅丝,橡皮,塑料尺,盐水,干燥的木棒中,哪个是导体,哪个是绝缘体 什么时候氢氧化钠与二氧化碳反应生成碳酸氢钠和碳酸钠,什么时候只生成碳酸氢钠? 请问,聚乙二醇(PEG)是一种无电荷的直链大分子多糖吗? 安全色中的蓝色表示什么 说一个人清纯是什么意思 如果不小心吃了一点水银会怎么样 向蒸馏水中加几滴硝酸银溶液的现象是什么如题,还有其目的是什么?它的目的可不可以说是检验其中是否还有杂志呢? 用2种化学方法,一种物理方法:区分葡萄糖溶液和氯化钠溶液 不小心吃了水银,真苦! 国家《安全色》的蓝色是表示什么?国家颁布的《安全色》标准中,红色表示危险,黄色表示警戒,蓝色表示(?绿色表示安全。 鉴别氯化钠溶液和硫酸钾溶液,用两种方法, 不小心误吞水银如何处理? 硝酸银溶解于蒸馏水可以成为硝酸银水溶液吗? 实验试题:用实验方法鉴别3种无色透明的液体:蒸馏水、盐酸和氯化钠溶液 帮我把表格填好实验试题:用实验方法鉴别3种无色透明的液体:蒸馏水、盐酸和氯化钠溶液[实验器材]试管3支、 不小心吞了水银, 中世纪西欧的政治制度和古代日本有什么相同和差异 纯想即飞,纯情即堕 .是什么意思 金刚石和石墨是单质还是混合物 安全隐患有什么 纯情度是什么意思 氯化钠和纯碱反应吗?为什么? 黄色象征的意义 清纯无暇是什么意思 家庭存在的安全隐患交通安全方面的,两到三句话 黄色代表什么意思? 在橡胶、人体、铅笔芯、塑胶、金属、大地、陶瓷等物质中,属于导体的是________,属于绝缘体的是_______. 氯化钠如何一步反应为碳酸钠 黄色表示什么意思 分子中碳原子数不超过5的所有烷烃中,一氯代物只有一种的烷烃共有几种,为什么? 安全隐患有哪些 黄代表什么意思 一般情况下,下列物质中,属于导体的是_______ A.玻璃 B.煤油 C.铅笔芯 D.石灰水
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘