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

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

跨平台打造移动原生应用的10大武器 iOS与Android本地数据库新选择:使用Objective-C和Java编写 Cloud Connect大会day3:Intel的大数据与Metacloud私有云 农民也玩数据挖掘:基于物联网的高端种菜模式 前谷歌Android开源项目主管Queru加盟雅虎 Windows 8.1售价出来了!分别是119.99美元、199.99美元 对AngularJS进行性能调优的7个建议 为什么说UX设计师的黄金时代已来临? 豌豆荚:“应用内搜索”是打通移动互联网最具竞争力的入口 苹果发布会后的冷思考,64位芯片为开发者带来了什么? 中兴Geek评测:高性价比的英特尔处理器智能机 SAE的资源、安全隔离与Container 平板电脑悬了 Phablets或成为未来移动设备的主流 拿什么拯救你:黑莓今年将裁员4500人 推荐10款免费的在线UI测试工具 最好的Java IDE之争:Eclipse PK IntelliJ IDEA Intel发布E5 2600 v2处理器 开放硬件监控信息 XP寿终大限将近 微软再次呼吁用户尽早“分手” Dropbox CTO:离开办公室就焦虑的技术宅男 看雪学院“走进企业看安全”活动百度站落幕 九大设计技巧+作品赏析 激发你的创作灵感! 排名前十CEO的工资条,你怎么看? 麻省理工TR35之IT界年轻有为创新者(下) Storm的“翻版”:LinkedIn开源实时数据处理系统Samza 呼吸监测耳机:一个在“呼吸”上做文章的可穿戴设备 谷歌7年210亿美元的基础设施建设,及可供17万家庭使用的风电 Touch ID很安全?德国黑客宣布已绕过苹果指纹识别系统 纽约警方鼓励用户升级iOS 7 你想好了吗? Android开发者不可或缺的四大工具 Mozilla开源TogetherJS:让网站拥有实时协作功能 可穿戴技术专家Jawbone UP向所有开发者开放API 100分求《Programming Jakarta Struts》这本电子书 如何设置某指定目录的属性 关于JB的简单问题,谢谢. 请大家谈一下win2000下VPN技术的实现 有关Libpcap的编译问题!急! .bak文件?请指教。 KMP算法求解~!!! 如何实现在线订购? 关于升级机器的问题 如何在Image中放大缩小一个WMF文件?还有如何去拖动这个放大缩小的WMF图片呢? 高手请指教 请教:如何由ip获得访问者所在地区 哪位兄弟教教我,如果实现自适应静音检测? 一个B-S结构的售楼软件的报价大致应该是多少? 我的确是做了错事,我决心去努力,但似乎力不从心? 100分 求《UML与Rational Rose从入门到精通》 急!各位高手关于要把多个DC放到一个pDC上显示的问题。 急。关于ppc和sybase的问题 请问编一个WINDOWS画笔 谁有c434009A主板的驱动程序。 请问在windows下如何实现像数据库一样的读、写锁? 为啥我在InstallShield中调用DLL中的函数总是出错呢? 如何能在HTML控件显示区域显示“....(指定的文件名)不存在”? 请问如何把TIF格式转换成JPG或GIF的格式?? 代理不能定时执行,请指教,谢谢。 怎样与外部数据库建立联合查询? 如何接受来自vbscript的字符数据列表 怎么在Gtk+的gnomemessagebox显示中文? (在线等待,急!)在vc中怎么使用datagrid控件 我使用的是odbc访问数据库 好急的问题,有关于SMS的接收字符处理问题,想了好几天没有结果 那位兄弟手头上有ASP.NET高级编程的电子书? DataGrid 控件问题,帮帮我把,朋友! automount? 一个比较难的问题! 关于datagrid的问题 在线等待 在cmd编辑器中用java运行已编译的文件运行不成功怎样解决 各位帮我解决一下这个问题!!!谢谢 关于ResourceManager的疑惑? 两台机器无法访问? 大家有没有听说过zebudom.js这个javascript的API?请问哪里可以下载它? 模块的连接 如何用php开发一个在线语音聊天室? 请问:有谁能提供Microsoft Project 2002简体中文专业版下载地址????急用!!!!!! 《The C++ Programming Language》有没有中译版? 请高手帮我看看: session的范围 硬件加、解密卡合作 请问那里能下到C或者C++的编译环境? 我的网页做好了,在我自己的机子上显示的很好看,在别的机子上有的显示的和在我的机子上显示的一样,很不错,但在有些机子上显示就变形了 怎样在文件中查找指定的字串? 某工人在一定时间内加工一批零件,如果每天加工44个,就比规定任务少加工20个;如果每天加工50个,则超额10个.求规定加工零件数和计划加工天数?(一元一次方程)如果可以的话我追加 人们将不愿意做那样的工作,将会感到厌烦 用英语怎么说 一个苹果四刀分成七份一个苹果,只能切四刀,分成七份.怎么分? 十三岁的际遇中“两岸风景交换”整句的意思 质量是物体的属性可以用什么实验证明?(除天平,写下实验步骤) 班风建设问题如何写啊 十一月四日风雨大作 夜阑卧听风吹雨的巧妙之处 马和驴故事的寓意 12字以内 班风建设怎么体现?我们要进行班级风采大赛,要求展现班风建设,不知从何入手, 夜阑卧听风吹雨 铁马冰河入梦来.描写的是哪个季节的雨...还有 "七八个星天外 ,两三点雨山前" 、"问君归期未有期,巴山夜雨涨秋池" 各是描写哪个季节的雨 .急 马和驴子的故事有什么启示?就是马和驴一起驮货驴子力气没有马大 感到很累 马没答应 过一会 驴就累死了 货物全都落到了马的身上大概就是这么个故事 告诉了我们什么深刻的道理呢? 圆明园里面有几个小园 请问 咖啡猫 翻译成英语是怎样的? 马和驴子的那个故事告诉我们什么道理?就是马和驴一起驮货驴子力气没有马大 感到很累 马没答应 过一会 驴就累死了 货物全都落到了马的身上大概就是这么个故事 告诉了我们什么深刻的道 浅谈如何加强班风建设 十一月四日风雨大作 僵卧孤村不自哀,尚思为国戍轮台. 夜阑卧听风吹雨,铁马冰河入梦来.诗中前两句“僵”一“孤”写出了诗人当时什么的处境;一个“思”字又集中表现了诗人什么的情感. 请问天秤有分几种性格啊?我是天秤女,我的感情路总是不顺,请问为什么呢?而且我的人缘方面总是时好时坏的,这又是为什么呢? 马和驴的寓意 借风雨抒发感情的诗句有哪些?类似“夜阑卧听风吹雨,铁马冰河入梦来.” 在图书馆,新生小林想借一本名著 你向他推荐 朝花夕拾 .下列不能作为推荐语的一项是 来看啊A.这本书记录了鲁迅先生的一些往事留下了他成长的足迹给人很多启发值得一 《马和驴》的寓意 庄子的《秋水》这则寓言,也许你能从中受到不少启发,请谈谈自己最深的感受? 在图书馆,新生小琳想借一本名著,你向她推荐《朝花夕拾》.下列不能作为推荐语的一项是( )A.这本书记录了鲁迅先生的一些往事,留下了他成长的足迹,给人很多启发,值得一读.B.我喜欢这 圆明园有什么称呼 朱门酒肉臭,路有冻死骨”欲穷千里目,更上一层楼"“谁知盘中餐,粒粒皆辛苦”各打一成语 人生自古多磨难,世间冷暖皆自知是什么意思? 长沙市博物馆作文50~100字 谁知盘中餐 打成语 给我找篇大约300字关于中秋节的文章,题目叫中秋随想300字左右,叫中秋随想,不要太深奥,我说了是300字,不是3000字,看清楚咯,是300字,是300字,是300字,是300字,是300字,是300字,是300字 急寻狭路相逢勇者胜辩论反方的辩论词啊提供详细的辩论词 最好能提供此辩论赛的视频 猜成语谁知盘中餐 狭路相逢勇者胜的辩论词 小明做了如下实验:①把一段带叶的植物枝条,用刀削成平整的斜面.②插入装有红墨水的烧杯中,置于阳光下照射.③待枝条基部颜色有变化后,取出枝条洗净.④在枝条上方横切和纵切植物枝条, 曾参中参的读音 看世间冷暖, 有没有在科技信息投过稿的,评价如何?在看的各位亲人,谁知道科技信息出刊怎么样,需要发论文,可杂志社也忒多了,挑的我眼花,同学以前发论文有上当受骗的,自己很担心~ 楞伽经谁懂里面的意思 我想知道楞伽经谁懂 我想知道 辩论 狭路相逢勇者胜马上有一场辩论赛,是狭路相逢勇者胜还是智者胜,我方是勇者胜,一辩陈词基本写完了,二三辩是提问题让对方回答,请大家帮着想想用什么问题能让对方很难回答,而更好的 科学发展是弊大还是利大 议论稿 100个字 有懂字体的高手吗,我想知道这是什么字体,有点急, 人间冷暖,何去何重, 琵琶行中琵琶女的演奏过程分为几个层次 底面半径8厘米的圆柱形容器与底面半径12厘米的圆锥形容器深相等,把圆锥体容器装满水,再把水倒入圆柱体容器内,水深比圆锥体容器的六分之五低2.5厘米,圆柱深几厘米 带时间陈述句改一般疑问句 意思是深入思考的四字成语是什么 我敬佩的一个人 400 把陈述句改为一般疑问句要怎么改?比如像名词性物主代词要改成什么? 高一数学题若点N(a,b)满足方程关系式a²+b²-4a-14b+45=0,则m=b-3/a+2的最大值为多少?答案是2+根号3 我敬佩的一个人作文400 将陈述句改一般疑问句They are going shopping tomorrow.是Are they going shopping tomorrow.还是Are they go shopping tomorrow.讲下为什么, 若点N(a,b)满足方程关系式a²+b²-4a-14b+45=0,则u=(b-3)/(a+2)的最大值 人们将不愿意做那样的工作,将会感到厌烦 英语怎么说 陈述句 改一般疑问句怎么改 this flower is weak.2this is an orange 《琵琶行》中琵琶女的乐曲演奏有何发展变化 一元一次方程···高手帮忙哈··用一根长60米的绳子围出一个矩形,使它的长是宽的1.5倍,长和宽各应是多少? 加菲猫在现实生活中是哪个品种提前说谢谢了哈 动物保健所有兽医吗? 几道关于初一奥数的一元一次方程:1.若abc=1,解方程 2ax 2bx 2cx________+________+________ =1ab+a+1 bc+b+1 ca+c+12.若a,b,c是正数,解方程 x-a-b x-b-c x-c-a_______+_______+_______=3c a b3.设n为自然数,(x)表示不超过x 像河南、陕西、河北、山东、山西等等这样的省份地形分划最早在哪个朝代形成了?我记得好像是元朝吧,山西,河南河北、陕西的省份地形已经成形了 有人知道 笑面冷暖心愈安 北约在东欧举行大规模军演 模拟外敌入李克强:确保地方政府机构财政供养人员杨洁篪:中国是二十国集团积极参与者、律师称斯诺登已适应俄罗斯 危险度仍相俄外交部:叙利亚化武前体将被运往第三洛杉矶国际机场因枪击案关闭近7小时美国一推销员晚间即“变身”木乃伊 获美国一长约4米重达330公斤巨鳄被捕律师称斯诺登已适应俄罗斯 危险度仍相美国一推销员晚间即“变身”木乃伊 获“窃听门”庭审曝哈里王子曾被窃听南京市民成“雾都孤儿” 环保局受访称美国一长约4米重达330公斤巨鳄被捕美军无人机空袭巴基斯坦超过20人死亡土库曼斯坦总统力推与中国开展能源合作超1/5东日本大地震复兴预算被用于与日媒称日本也是美国情报机构监控对象洛杉矶国际机场因枪击案关闭近7小时后超1/5东日本大地震复兴预算被用于与美国83岁珠宝大盗偷走2万美元戒指被美军无人机空袭巴基斯坦超过20人死亡国产担大旗推出安全双系统 315又耐金融传销“庞氏骗局”如何破?投资者切春行·三月 旅行不只在远方,长沙春行拆了吊牌也能退、微信转账不受理,这些太可怕!假货今年依然多!你该这么做…中国制造业转型,荣耀为何能当国货先锋别人都在去产能 全球最大铝生产商宏桥世卫组织报告:2012年全球约126抗震小英雄张春玲病重入院 林浩发微博金融杠杆:给我一个支点,我就能撬起整普京为何突然决定从叙利亚撤军:老子受南海事件反倒帮了中国大忙:多来几次就iPhone SE即将降临,6S面临炒股天才用余生研究出来操作方法,看了油价进退两难,涨跌双方你争我夺,败者这是朕的坐骑,带我到处游山玩水汇丰:全球经济衰退风险加剧,危机迫在俄军意外收兵叙利亚打道回府最安全手机,看到酷派锋尚的颜值,我傻由你“铜”领,多空不认“怂”选择决定未来,思想决定高度
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘