delphi 6程序设计及其应用开发--第5章 多媒体与动画操作

《delphi 6程序设计及其应用开发--第5章 多媒体与动画操作》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第5章多媒体与动画操作本章要点Ø5.1动画控件Animate的使用Ø5.2多媒体控件MediaPlayer的使Ø5.3制作图片浏览器实例本章要点Ø动画控件Animate的功能说明及其使用。Ø多媒体控件MediaPlayer的功能说明及其使用。Ø使用Image控件制作图片浏览器。返回本章首页5.1动画控件Animate的使用5.1.1动画控件Animate功能简介5.1.2使用Animate控件实现动画播放的实例程序返回本章首页5.1.1动画控件Animate功能简介Animate控件使用两种不同的资源：Ø它可以基

2、于上面所描述的AVI文件，通过为FileName属性设置相应的值就能实现。Ø它可以使用一种特殊的Windows95内部动画，这是通用控件的一部分。通过选择CommandAVI属性的一个可能值就能实现。Animate控件位于控件板的Win32页中，如图5-1所示。图5-1Animate控件的位置返回本节5.1.2使用Animate控件实现动画播放的实例程序1．向设计窗体中添加控件如图5-2所示，在窗体的上半部分添加三个TGroupBox控件、一个TOpenDialog控件、七个TButton控件、三个TLabel控

3、件、三个TSpinEdit控件，在窗体下半部分添加一个TListBox控件和一个Animate控件。其中，Animate控件的位置应根据运行程序时，需要出现的位置来放置。图5-2例5-1程序的设计界面2．设定项目中控件的属性（见表5-1）（1）设置分组框GroupBox控件的属性（2）设置Button控件的属性（3）设置Label控件的属性（4）设置SpinEdit控件的属性(见表5-2)（5）设置ListBox控件的属性(见表5-3)（6）设置OpenDialog控件的属性（见表5-4）（7）Animate控件

4、的常用属性和方法表5-1控件GroupBox的属性控件属性属性值GroupBox1CaptionHeightWidth120240GroupBox2CaptionHeightWidth120240GroupBox3AlignCaptionHeightWidthalTop145800表5-2SpinEdit控件的属性属性属性值Icrement1Minvalue0表5-3ListBox控件的属性属性属性值Items.Strings‘[UseanAVIFile]’‘FindFolder’‘FindFile’‘FindC

5、omputer’‘CopyFiles’‘CopyFile’‘RecycleFile’‘EmptyRecycle’‘DeleteFile’表5-4OpenDialog控件的属性属性属性值DefaultExt‘avi’Options[ofPathMustExist,ofFileMustExist]Filter‘AVIfile(*.avi)

6、*.avi‘3．各个方法的实现代码当用户第一次运行这个程序时，希望列表框中的有一个默认选项被选中。一般不希望是[UseanAVIFile]选项，所以将第二项作为缺省选项。这一要求可

7、以通过窗体的OnCreate事件来实现，为了告诉用户这个动画所拥有的动画帧数，可以调用Animate的FrameCount属性来设置“帧数”标签的值。因为Animate控件没有提供现成的方法。我们可以使用Seek方法，用一个Downto型的循环语句来实现。返回本节5.2多媒体控件MediaPlayer的使用5.2.1多媒体控件MediaPlayer功能简介5.2.2使用MediaPlayer控件制作一个VCD播放程序返回本章首页5.2.1多媒体控件MediaPlayer功能简介MediaPlayer控件不仅可以播

8、放AVI文件，还可以通过MCI播放很多媒体文件，比如WAV，MIDI，CD音乐文件和DAT文件。它位于控件板的System页中，如图5-3所示。图5-3MediaPlayer控件的位置返回本节5.2.2使用MediaPlayer控件制作一个VCD播放程序1．向窗体中添加控件（其窗体及控件布局如图5-4所示）。2．主要控件分析3．为控件添加代码图5-4　窗体与控件的布局图5-5MediaPlayer控件名称按钮代号作用PlaybtPlay开始播放多媒体文件PausebtPause如果正在播放或录音，则暂停播放或录音

9、，如果已经停止了，则重新开始播放或录音StopbtStop停止播放与录音PrevbtPrev跳到上一个音轨，如果此多媒体不支持音轨，则跳到文件的开始处StepbtStep向前跳过一帧BackbtBack向后跳过一帧RecordbtRecord开始录音EjectbtEject弹出媒体文件（比如说弹出光盘）表5-5MediaPlayer控件的按钮功能属性属性值AutoEnab