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

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

【先锋】事务、高性能,王涛谈打造超越MongoDB的NoSQL 浅谈互联网数据中心海量运营之道 一篇文章读懂开源web引擎Crosswalk Facebook创建新开源组织TODO,Google、Twitter等继续捧场 微软明日将启动第二轮裁员 涉及所有的事业部 IBM推出Watson Analytics 将人机对话带进企业决策 参与2014中国移动开发者大调查 MDCC门票等你拿 手游开发经验谈:付费体系决定游戏收成好与坏? 惠普推出全新ProLiant Gen9服务器 腾讯安全出杀手锏 搭建全国最大Wi-Fi开放平台帮助网友免费蹭网 云与数据安全实践尽在ISC 2014(免费门票) 开源的对决,MapR将Apache Drill引入企业应用 令程序员费解的10个语言特性 走进雅虎北京全球研发中心:五年光阴缔造雅虎全球创新引擎 超强集成游戏编辑器!开源跨平台引擎Wave 求别再侵犯儿童隐私!FTC狠罚Yelp和TinyCo 华为应用市场助力开发者 软硬结合造就强大生态系统 【CTO俱乐部看板研修班北京站现场速递】看板方法:渐进变革的过程 《近匠》不背单词,用“沉浸”征服英语学习 ETpl——强复用、灵活、高性能的JavaScript模板引擎 MDCC 2014大会日程概览发布 最新嘉宾议题揭秘 终于来了,微信企业号正式开启公测! 【问底】王帅:深入PHP内核(一)——弱类型变量原理探究 谷歌Kubernetes专访:未来BigTable开发只是课后习题 首届“最具价值CTO”评选来啦!我们在找你! 【CTO俱乐部走进顺丰总部】活动图文直播进行中 中国第一个云主机评测发布:天翼云性价比第一、青云质量第一 Ruby 2.1.3发布,降低内存消耗、修复众多Bug! OpenHW2014开源硬件总决赛鏖战西安 AMD力推异构计算 《坦克世界:闪电战》:PC转手游,不止免费! 【讲师】道里云毛文波:网络虚拟化与SDN实现Docker连通 我要毕业啊 ===============想知道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口是不是打开着,能不能不用控件高分. (X-2500)*[8+(2900-X)/50*4]=5000 8.5x-3.5x=27.5 求方程 2(x-2. 解方程(4* (2900-X) / 50 +8 )(X-2500)=5000 0.1(X+2)-0.9=0.5这个方程怎么解 8(X-6.2)=41.6 (X-3)/2=7.5 这两个方程怎么解 (x-2500)(50分之x-2900乘以4+8)=5000 ×的2.5倍比它的1.8倍多9.8.求方程的解 帮忙解一道方程,x-18=3(x-26) (2900-x-2500)(8+4x/50)=5000怎么算 方程:6乘9+3x=70怎么解? (x-2)/(x+2)+16/(4-x^2)=(x+2)/(x-2) 这个方程怎么解?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题怎么做直接列方程不用解 求解方程:200(x-15)=200*5+80(x-5) 要有过程 谢谢 8(x-3)-5x=27方程怎么做?完整无误! X+6/5X+6/5X*31/4=320这个方程怎么解
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn