用delphi实现一幅图片的图像动画

《用delphi实现一幅图片的图像动画》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、万方数据用Delphi实现一幅图片的图像动画摘要：结合实例，讲述了用Delphi将一幅动画图片实现成图像动画的方法．关键词：动画图片：图像动画1引言冈像可U包含大量的信息逵也正说明图像住多媒体应用中的特别作用。令^m花缔乱的动画小仅吸引人而且能直观请晰地表达出静态月像所不能宴现的功能，罔像动自多数宴琏的方陆是将动画的移动演变的静志图H保存在多幅图片中．然后按照时问的顺序连续地打开播威。该方法的缺点就是影响盟不速度．uf能会出现闪烁的现象．根据这十想法给出r一个将一幅动画蝌片完成捌像动丽的倒槐2处理方案21单个图像组件实现图像的播放将动画的移动、演变的静志罔片雠存在多幅阿“巾然后按照时Ⅻ的顺

2、序琏续地打开播放。浚方法的缺点就足每次闱像显Ⅲ均需重新牲裁嘲H，影响R示建度．町能全出理闪烁的现象。22多个图像组件实现图像的播放用多个图像组件．通过罔像预装人．播放时无需重装R需复制组件的图像属性，-4宴现蝌像的平滑播放该方法的缺点就是使用组件多．币恒程霄实现和管理。鉴于“t两种方法郝有缺点综音两者优点：将完成动目的静态图片保存在一橱闭片中用程序算法分时显示在一十图像组件中。该方法显示速度快管理x方便。3开发过程一幅罔片的陌像动画程序界面．如图l所示．围1托体吐程如F：¨)新建一十应用程序T程．在Fo邢l窗体中放人2个李贤强Tlr蝴g组件．一个R示一辐台币动i罔片例罔·十演示金币蹦像动画

3、。(2)在F0册I窗体中放^一个1mⅢ∞r组件。用于定时Ⅱ示金币旋转址程的每幅静态图片实现播放动面。(3)在F0丌nI窗俸-p破^一个TEdit组件。厢于设置动画播放建度．(4)在F"丌nl宙体中放^2十TButton组件．用于控制动画的开船和停止(5)设置各组件的主要属性，如丧1所示表1主要属性设置目”￡I■％M#mt一·l筹兰，1hnTrue，一l篙三。附∞‰hI"曲l】5m’“№]00*女自日*U：自w(6)首先定女全局变最用来记录姓币哪个金m闭片度复制的罔片区域位置．井在谢仲的‰c蛐事件中对此堂量设置韧值。代码如下VarFormlTForml：DesLSource：TRect；Ⅳ图

4、片区域大小Count：Integer；11盎：1'5旋转图片个教implementation幅R·dfmJprocedureTFormlFotmCreate(Sender：TObject)；坩rLogWidth．LogHeight：Integer；，／每个金币图片的宽和高Ioegin忆rmlDoubteBuffered：=True；／／开启双缓冲区绘图LogWidth：=lmagelWidthdrv15．／／每个金币图片的宽LogHeight：=lmagelHeight；w整幅金币图片的高Image2Width：=LogWidth；∥图像组件2的宽为每个：F转第80m)，l毒叠吃瞒-i2i

5、0再11与．0Ii9≯、69万方数据实用第一／智慧密集jH打停止提供服务(毽嚣血亲身经所廿的项13)。11总结假如要诃整服舟器的怿能．邶☆左现H越的排贵顺序厚则是：垤件州腰_网络M题·应用胝务器+数据库配置的月题一谭代码数揩库脚本的问题一系统设jf的架构问题。最后．补充两个案例如下案蜊分析现象：数据库CPU资源B缱牦尽大世任务位于运行队州(v肼tal)。诊断步骤(”TOP命夸．查看魁胥打明显过高使用CPU的进程。(2)幢查进程数量．发现进程数较平时偏多．判断是数据库或腑用出了州题．导致任务无法完成．不断累积，从而出现大址队列等待。【3)查看等待事件《v$*ssionwai0．(4)捕获相关

6、s。L。(5)查看执行计划，(6)创建新索{I消除全击扫描．M题解麂。总结：如皋数据库CPU使用耗尽，要优化SQL浯言比女II创建新索引消除全衷扫捕。案例分析■现象：用TOP命令扯现CPU资源占_}l】殆尽，存在很多占用CPU报高的进程但是内存和10的r～用毕都不高，诊断步骤(¨先戎开告臀Ⅱ忠．滥发现¨幺错误存在。(2)在看r々用CPU赞谭很高的ORACI￡进程在做什么操作。(使JtJSQL语锄)．发现占用cPu资源很高的进程揶是执行同一个SQl语句．(3)古再等待事件．发理大都是htchfree，进步矗询发现这些等待都是由泼SQL语句产生。(4)查看SQL浯句的执行计划，发现似乎存在过多

7、的扫捕。(5)枉片个间样的库J．执行该计划．发现有两个索引是不随嵌有的。{堑查袅上的索{】个数，多出3十索引。总结：删除多余的索引，将问胚解央。(收稿日期20II_02一17)⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯⋯(t接第69贞)，／金币图片的宽Image2Height：=LogHeight；，阍像组件2的高为整幅／／金币图片的高DestLe竹=O．／／复制图片的目标区域大小DestTop：=0；DestRight：=LogW