Delphi 2005程序设计及其应用开发 李存斌 第8章 多媒体与动画制作新.ppt

第8章 多媒体与动画操作 本章要点 ??8.1 TAnimate动画组件的使用 ??8.2 多媒体组件TMediaPlayer的使用 结 束 本章要点 动画组件Animate的功能说明及其使用。 多媒体组件MediaPlayer的功能说明及其使用。 8.1 TAnimate动画组件的使用 8.1.1 TAnimate动画组件的主要属性和常用方法 8.1.2 使用Animate组件实现动画播放的实例程序 8.1.1 TAnimate动画组件的主要属性和常用方法 在Windows操作系统中，常常看到一些组件运行时带有动画的效果，如删除、拷贝文件等等，这为系统用户带来极大的直观性和动感色彩，是一种较好的开发方案。在Delphi中，我们也可以利用TAnimate组件创建与上述类似的动画效果。 TAnimate组件位于组件面板的Win32分类中，它主要用于播放含有视频流的AVI文件，这些视频流必须是非压缩的或使用RLE8压缩模式来压缩的文件，并且没有色调的变化，如果它们有声音，在播放的过程中也会被忽略。 TAnimate组件播放的.AVI文件可来源于以下两种途径： 其FileName属性所指定的.AVI文件。 Windows系统所包含的内部图像序列，可通过该组件的CommandAVI属性来指定。 8.1.2 使用TAnimate控件实现动画播放的实例程序 程序的设计步骤如下： 1. 新建一个VCL Form应用程序。 利用“File| New | VCL Form Application-Delphi for.NET”或“File| New | VCL Form Application-Delphi for Win32”菜单命令新建一个新的VCL Forms应用程序，系统会自动创建一个空白的窗体。调整窗体的大小，并设置窗体的Caption为“动画播放实例”。 8.1.2 使用TAnimate控件实现动画播放的实例程序 2．向窗体添加组件并设置相关的属性。 1）先向窗体添加两个TPanel组件（Panel1和Panel2），分别作为图像源面板和控制面板，一方面便于窗体布局，以加强界面的美观，另一方面使组件的功能划分更明确。设置Panel1的Align属性为alLeft，Panel2的Align属性为alBottom，将它们的Caption属性置为空，它们的Color属性均设为clSkyBlue。调整Panel1和Panel2的大小至合适的范围。 2）向窗体添加TAnimate组件，将其Align属性设为alClient，Color属性设为clWhite。 3）在图像源面板Panel1组件上添加一个TLabel (Label1) 组件、两个TRadioButton组件、一个TListBox组件。将Label1组件的Caption属性设置为“选择AVI源”， RadioButton1和RadioButton2的Caption属性分别设置为“AVI文件”和“Windows内部动画”。 8.1.2 使用TAnimate控件实现动画播放的实例程序 对于TListBox组件，它的一个重要属性就是Items，在对象监视器中点击该属性项右边的按钮，可打开字符串列表编辑器，对Items属性中包含的各个列表项进行编辑，如下图所示。该列表框包含的各列表项与TAnimate组件的CommonAVI属性的可能取值相对应。 8.1.2 使用TAnimate控件实现动画播放的实例程序 4) 在控制面板Panel2组件上添加3个TLabel组件，三个TEdit组件和两个TBitBtn按钮组件。 程序运行结果如下图所示。 动画Animate单元文件源代码 8.2 多媒体控件TMediaPlayer的使用 8.2.1 多媒体控件TMediaPlayer的主要属性和方法 8.2.2 使用MediaPlayer制作一个多媒体播放程序 8.2.1 多媒体控件TMediaPlayer的主要属性和方法 TMediaPlayer组件不仅可以播放AVI文件，还可以通过MCI（Media Control Interface，媒体控制接口）播放很多媒体文件，比如WAV，MIDI，CD音乐文件和DAT文件。它位于组件面板的System分类中。 8.2.2 使用TMediaPlayer组件制作一个多媒体播放程序 程序的设计步骤如下： 1．创建一个新的项目。 2．向窗体添加组件，并设置组件的相关属性。 （如右图所示。） 8.2.2 使用TMediaPlayer组件制作一个多媒体播放程序 1）在窗体上添加主菜单组件MainMenu1，通过菜单编辑器编辑各个菜单项。该菜单包含“文件”和“播放”两个菜单项，在“文件