《[精选]Delphi6程序设计及应用之多媒体与动画操作6310.pptx》由会员分享，可在线阅读，更多相关《[精选]Delphi6程序设计及应用之多媒体与动画操作6310.pptx（36页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、第第5章章 多媒体与动画操作多媒体与动画操作本章要点本章要点 5.1 5.1 动画控件动画控件AnimateAnimate的使用的使用 5.2 5.2 多媒体控件多媒体控件MediaPlayerMediaPlayer的使的使 5.35.3制作图片浏览器实例制作图片浏览器实例本章要点本章要点 动画控件动画控件AnimateAnimate的功能说明及其使用。的功能说明及其使用。多媒体控件多媒体控件MediaPlayerMediaPlayer的功能说明及其使用。的功能说明及其使用。使用使用ImageImage控件制作图片浏览器。控件制作图片浏览器。返回本章首页5.1 动画控件动画控件Animate的
2、使用的使用n5.1.1 5.1.1 动画控件动画控件AnimateAnimate功能简介功能简介n5.1.2 5.1.2 使用使用AnimateAnimate控件实现动画播放控件实现动画播放的实例程序的实例程序返回本章首页5.1.1 动画控件动画控件Animate功能简介功能简介AnimateAnimate控件使用两种不同的资源：控件使用两种不同的资源：它它 可可 以以 基基 于于 上上 面面 所所 描描 述述 的的 AVIAVI文文 件件，通通 过过 为为FileNameFileName属性设置相应的值就能实现。属性设置相应的值就能实现。它它可可以以使使用用一一种种特特殊殊的的Windows
3、 Windows 9595内内部部动动画画，这这是是通通用用控控件件的的一一部部分分。通通过过选选择择CommandAVICommandAVI属属性性的的一一个可能值就能实现。个可能值就能实现。AnimateAnimate控件位于控件板的控件位于控件板的Win32Win32页中，如图页中，如图5-15-1所示。所示。图5-1Animate控件的位置返回本节5.1.2 使用使用Animate控件实现动画播放的实例程序控件实现动画播放的实例程序1 1向设计窗体中添加控件向设计窗体中添加控件 如图如图5-25-2所示，在窗体的上半部分添加三个所示，在窗体的上半部分添加三个TGroupBoxTGrou
4、pBox控件、一个控件、一个TOpenDialogTOpenDialog控件、七控件、七个个TButtonTButton控件、三个控件、三个TLabelTLabel控件、三个控件、三个TSpinEditTSpinEdit控件，在窗体下半部分添加一个控件，在窗体下半部分添加一个TListBoxTListBox控件和一个控件和一个AnimateAnimate控件。其中，控件。其中，AnimateAnimate控件的位置应根据运行程序时，需要控件的位置应根据运行程序时，需要出现的位置来放置。出现的位置来放置。图5-2例5-1程序的设计界面2 2设定项目中控件的属性（见表设定项目中控件的属性（见表5-
5、15-1）（1 1）设置分组框）设置分组框GroupBoxGroupBox控件的属性控件的属性（2 2）设置）设置ButtonButton控件的属性控件的属性（3 3）设置）设置LabelLabel控件的属性控件的属性（4 4）设置）设置SpinEditSpinEdit控件的属性控件的属性(见表见表5-2)5-2)（5 5）设置）设置ListBoxListBox控件的属性控件的属性(见表见表5-3)5-3)（6 6）设置）设置OpenDialogOpenDialog控件的属性（见表控件的属性（见表5-45-4）（7 7）AnimateAnimate控件的常用属性和方法控件的常用属性和方法表5-
6、1控件GroupBox的属性控件属性属性值GroupBox1CaptionHeightWidth120240GroupBox2CaptionHeightWidth120240GroupBox3AlignCaptionHeightWidthalTop145800表5-2SpinEdit控件的属性属性属性值Icrement1Minvalue0表5-3ListBox控件的属性属性属性值Items.StringsUse an AVI File Find Folder Find File Find Computer CopyFiles Copy File Recycle File EmptyRecycl
7、eDeleteFile表5-4OpenDialog控件的属性属性属性值DefaultExtaviOptionsofPathMustExist,ofFileMustExistFilterAVIfile(*.avi)|*.avi3 3各个方法的实现代码各个方法的实现代码当当用用户户第第一一次次运运行行这这个个程程序序时时，希希望望列列表表框框中中的的有有一一个个默默认认选选项项被被选选中中。一一般般不不希希望望是是 Use Use an an AVI AVI FileFile选选项项，所所以以将将第第二二项项作作为为缺缺省省选选项项。这这一一要要求求可可以以通通过过窗窗体体的的OnCreateOn
8、Create事事件件来来实实现现，为为了了告告诉诉用用户户这这个个动动画画所所拥拥有有的的动动画画帧帧数数，可可以以调调用用AnimateAnimate的的FrameCountFrameCount属属性性来来设设置置“帧帧数数”标标签签的的值值。因因为为AnimateAnimate控控件件没没有有提提供供现现成成的的方方法法。我我们们可可以以使使用用SeekSeek方方法法，用用一一个个DowntoDownto型的循环语句来实现。型的循环语句来实现。返回本节5.2 多媒体控件多媒体控件MediaPlayer的使用的使用n5.2.1 5.2.1 多媒体控件多媒体控件MediaPlayerMedi
9、aPlayer功能简介功能简介n5.2.2 5.2.2 使用使用MediaPlayerMediaPlayer控件制作一个控件制作一个VCDVCD播放程序播放程序返回本章首页5.2.1 多媒体控件多媒体控件MediaPlayer功能简介功能简介MediaPlayerMediaPlayer控控件件不不仅仅可可以以播播放放AVIAVI文文件件，还还可可以以通通过过MCIMCI播播放放很很多多媒媒体体文文件件，比比如如WAVWAV，MIDIMIDI，CDCD音音乐乐文文件件和和DATDAT文文件件。它它位位于于控控件板的件板的SystemSystem页中，如图页中，如图5-35-3所示。所示。图5-3
10、MediaPlayer控件的位置返回本节5.2.2 使用使用MediaPlayer控件制作一个控件制作一个VCD播放程序播放程序1 1向向窗窗体体中中添添加加控控件件（其其窗窗体体及及控控件件布局如图布局如图5-45-4所示）。所示）。2 2主要控件分析主要控件分析3 3为控件添加代码为控件添加代码图5-4窗体与控件的布局图5-5MediaPlayer控件名 称按钮代号作 用PlaybtPlay开始播放多媒体文件PausebtPause如果正在播放或录音，则暂停播放或录音，如果已经停止了，则重新开始播放或录音StopbtStop停止播放与录音PrevbtPrev跳到上一个音轨，如果此多媒体不支
11、持音轨，则跳到文件的开始处StepbtStep向前跳过一帧BackbtBack向后跳过一帧RecordbtRecord开始录音EjectbtEject弹出媒体文件（比如说弹出光盘）表5-5MediaPlayer控件的按钮功能属性属性值AutoEnableTrueAutoOpenFalseAutoRewindTrueEnableButtons.btRecordEnableButtons.btEjectFalseFalseDeviceTypedtAutoSelectDisplayOleContainer1TimeFormatTfMilliSecondsVisibleFalse表5-6MediaPl
12、ayer的属性设置图5-6Mediaplayer1控件布尔值设置图5-7Mediaplayer1可播放的设备类型取值取值意义意义TfMilliSeconds以毫秒来计算长度以毫秒来计算长度TfHMS以小时分钟秒的方式计算长度以小时分钟秒的方式计算长度TfMSE以分钟秒帧计算长度以分钟秒帧计算长度TfFrames以帧数计算长度以帧数计算长度表5-7TimeFormat部分取值及意义图图5-8Mediaplayer1可选择的映像控件可选择的映像控件图图5-9 Panels编辑框编辑框返回本节5.3制作图片浏览器实例制作图片浏览器实例n5.3.1 5.3.1 窗体及其控件的布局窗体及其控件的布局n5
13、.3.2 5.3.2 控件的属性设置控件的属性设置n5.3.3 5.3.3 为控件添加事件驱动程序为控件添加事件驱动程序n5.3.4 5.3.4 图片浏览及其保存图片浏览及其保存返回本章首页5.3.1 窗体及其控件的布局窗体及其控件的布局n创建一个新的项目。创建一个新的项目。n在主窗体中放置一个映像控件在主窗体中放置一个映像控件Image1Image1。n放放置置一一个个打打开开文文件件对对话话框框Opendialog1Opendialog1，用用于打开图片文件的路径搜索。于打开图片文件的路径搜索。n放放置置一一个个保保存存文文件件对对话话框框Savedialog1Savedialog1，用用
14、于对图片进行保存。于对图片进行保存。n 放置一个容器控件放置一个容器控件Bevel1Bevel1，用于衬托两个按钮。用于衬托两个按钮。n 放置一个面板控件放置一个面板控件Panel1Panel1，用于说明图片浏览器。用于说明图片浏览器。n 放放置置两两个个按按钮钮控控件件，一一个个用用于于打打开开图图片片，另另一一个个用用于保存图片。于保存图片。n 其窗体及其控件布局如图其窗体及其控件布局如图5-105-10所示。所示。图图5-10 图片浏览器的窗体及控件布局图片浏览器的窗体及控件布局返回本节5.3.2 控件的属性设置控件的属性设置本范例所使用的控件属性设置如表本范例所使用的控件属性设置如表5
15、-105-10所示。所示。（1 1）Image1Image1（2 2）Opendialog1Opendialog1和和Savedialog1Savedialog1表5-10控件属性设置表属性属性值Image1.CenterImage1.StrechTrueTrueOpendialog1.FilterBitmaps(*.bmp)|*.bmpSavedialog1FilterBitmaps(*.bmp)|*.bmpPanel1.Caption欢迎使用图片浏览器Button1.CaptionButton21.Caption打开文件保存文件返回本节5.3.3 为控件添加事件驱动程序为控件添加事件驱动程
16、序（1 1）“打开文件打开文件”按钮的事件驱动程序。按钮的事件驱动程序。（2 2）“保存文件保存文件”按钮的事件驱动程序。按钮的事件驱动程序。返回本节5.3.4 图片浏览及其保存图片浏览及其保存对对于于已已经经制制作作的的简简易易图图片片浏浏览览器器，可可以以进行试运行：进行试运行：（1 1）按）按“F9”F9”键运行。键运行。（2 2）单单击击“打打开开文文件件”按按钮钮，出出现现一一个个文件路径搜索框如图文件路径搜索框如图5-115-11所示。所示。（3 3）找找到到浏浏览览的的图图片片文文件件，其其显显示示效效果果如图如图5-125-12所示。所示。图5-11图片文件搜索图5-12程序运
17、行效果返回本节THANK YOU VERY MUCH！n本章到此结束，本章到此结束，n谢谢您的光临！谢谢您的光临！结束放映返回本章首页n9 9、静夜四无邻，荒居旧业贫。、静夜四无邻，荒居旧业贫。3 3月月-23-233 3月月-23-23Thursday,March 30,2023Thursday,March 30,2023n1010、雨中黄叶树，灯下白头人。、雨中黄叶树，灯下白头人。22:17:4122:17:4122:17:4122:17:4122:1722:173/30/2023 10:17:41 PM3/30/2023 10:17:41 PMn1111、以我独沈久，愧君相见频。、以我独
18、沈久，愧君相见频。3 3月月-23-2322:17:4122:17:4122:1722:17Mar-23Mar-2330-Mar-2330-Mar-23n1212、故人江海别，几度隔山川。、故人江海别，几度隔山川。22:17:4122:17:4122:17:4122:17:4122:1722:17Thursday,March 30,2023Thursday,March 30,2023n1313、乍见翻疑梦，相悲各问年。、乍见翻疑梦，相悲各问年。3 3月月-23-233 3月月-23-2322:17:4122:17:4122:17:4122:17:41March 30,2023March 30,
19、2023n1414、他乡生白发，旧国见青山。、他乡生白发，旧国见青山。30 30 三月三月 2023 202310:17:41 10:17:41 下午下午22:17:4122:17:413 3月月-23-23n1515、比不了得就不比，得不到的就不要。、比不了得就不比，得不到的就不要。三月三月 23 2310:17 10:17 下午下午3 3月月-23-2322:1722:17March 30,2023March 30,2023n1616、行动出成果，工作出财富。、行动出成果，工作出财富。2023/3/30 22:17:412023/3/30 22:17:4122:17:4122:17:413
20、0 March 202330 March 2023n1717、做前，能够环视四周；做时，你只能或者最好沿着以脚为起点的射线向前。、做前，能够环视四周；做时，你只能或者最好沿着以脚为起点的射线向前。10:17:41 10:17:41 下午下午10:17 10:17 下午下午22:17:4122:17:413 3月月-23-23n9 9、没有失败，只有暂时停止成功！。、没有失败，只有暂时停止成功！。3 3月月-23-233 3月月-23-23Thursday,March 30,2023Thursday,March 30,2023n1010、很多事情努力了未必有结果，但是不努力却什么改变也没有。、很
21、多事情努力了未必有结果，但是不努力却什么改变也没有。22:17:4122:17:4122:17:4122:17:4122:1722:173/30/2023 10:17:41 PM3/30/2023 10:17:41 PMn1111、成功就是日复一日那一点点小小努力的积累。、成功就是日复一日那一点点小小努力的积累。3 3月月-23-2322:17:4122:17:4122:1722:17Mar-23Mar-2330-Mar-2330-Mar-23n1212、世间成事，不求其绝对圆满，留一份不足，可得无限完美。、世间成事，不求其绝对圆满，留一份不足，可得无限完美。22:17:4122:17:412
22、2:17:4122:17:4122:1722:17Thursday,March 30,2023Thursday,March 30,2023n1313、不知香积寺，数里入云峰。、不知香积寺，数里入云峰。3 3月月-23-233 3月月-23-2322:17:4122:17:4122:17:4122:17:41March 30,2023March 30,2023n1414、意志坚强的人能把世界放在手中像泥块一样任意揉捏。、意志坚强的人能把世界放在手中像泥块一样任意揉捏。30 30 三月三月 2023 202310:17:41 10:17:41 下午下午22:17:4122:17:413 3月月-2
23、3-23n1515、楚塞三湘接，荆门九派通。、楚塞三湘接，荆门九派通。三月三月 23 2310:17 10:17 下午下午3 3月月-23-2322:1722:17March 30,2023March 30,2023n1616、少年十五二十时，步行夺得胡马骑。、少年十五二十时，步行夺得胡马骑。2023/3/30 22:17:412023/3/30 22:17:4122:17:4122:17:4130 March 202330 March 2023n1717、空山新雨后，天气晚来秋。、空山新雨后，天气晚来秋。10:17:41 10:17:41 下午下午10:17 10:17 下午下午22:17:
24、4122:17:413 3月月-23-23n9 9、杨柳散和风，青山澹吾虑。、杨柳散和风，青山澹吾虑。3 3月月-23-233 3月月-23-23Thursday,March 30,2023Thursday,March 30,2023n1010、阅读一切好书如同和过去最杰出的人谈话。、阅读一切好书如同和过去最杰出的人谈话。22:17:4122:17:4122:17:4122:17:4122:1722:173/30/2023 10:17:41 PM3/30/2023 10:17:41 PMn1111、越是没有本领的就越加自命不凡。、越是没有本领的就越加自命不凡。3 3月月-23-2322:17:
25、4122:17:4122:1722:17Mar-23Mar-2330-Mar-2330-Mar-23n1212、越是无能的人，越喜欢挑剔别人的错儿。、越是无能的人，越喜欢挑剔别人的错儿。22:17:4122:17:4122:17:4122:17:4122:1722:17Thursday,March 30,2023Thursday,March 30,2023n1313、知人者智，自知者明。胜人者有力，自胜者强。、知人者智，自知者明。胜人者有力，自胜者强。3 3月月-23-233 3月月-23-2322:17:4122:17:4122:17:4122:17:41March 30,2023March
26、 30,2023n1414、意志坚强的人能把世界放在手中像泥块一样任意揉捏。、意志坚强的人能把世界放在手中像泥块一样任意揉捏。30 30 三月三月 2023 202310:17:41 10:17:41 下午下午22:17:4122:17:413 3月月-23-23n1515、最具挑战性的挑战莫过于提升自我。、最具挑战性的挑战莫过于提升自我。三月三月 23 2310:17 10:17 下午下午3 3月月-23-2322:1722:17March 30,2023March 30,2023n1616、业余生活要有意义，不要越轨。、业余生活要有意义，不要越轨。2023/3/30 22:17:41202
27、3/3/30 22:17:4122:17:4122:17:4130 March 202330 March 2023n1717、一个人即使已登上顶峰，也仍要自强不息。、一个人即使已登上顶峰，也仍要自强不息。10:17:41 10:17:41 下午下午10:17 10:17 下午下午22:17:4122:17:413 3月月-23-23MOMODA POWERPOINTLorem ipsum dolor sit amet,consectetur adipiscing elit.Fusce id urna blandit,eleifend nulla ac,fringilla purus.Nulla iaculis tempor felis ut cursus.感感 谢谢 您您 的的 下下 载载 观观 看看专家告诉