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

第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控件使用两种不同的资源： ??它可以基于上面所描述的AVI文件，通过为FileName属性设置相应的值就能实现。 ??它可以使用一种特殊的Windows 95内部动画，这是通用控件的一部分。通过选择CommandAVI属性的一个可能值就能实现。 Animate控件位于控件板的Win32页中，如图5-1所示。 5.1.2 使用Animate控件实现动画播放的实例程序 1．向设计窗体中添加控件 如图5-2所示，在窗体的上半部分添加三个TGroupBox控件、一个TOpenDialog控件、七个TButton控件、三个TLabel控件、三个TSpinEdit控件，在窗体下半部分添加一个TListBox控件和一个Animate控件。其中，Animate控件的位置应根据运行程序时，需要出现的位置来放置。 2．设定项目中控件的属性（见表5-1） （1）设置分组框GroupBox控件的属性 （2）设置Button控件的属性 （3）设置Label控件的属性 （4）设置SpinEdit控件的属性(见表5-2) （5）设置ListBox控件的属性(见表5-3) （6）设置OpenDialog控件的属性（见表5-4） （7）Animate控件的常用属性和方法 3．各个方法的实现代码 当用户第一次运行这个程序时，希望列表框中的有一个默认选项被选中。一般不希望是[Use an AVI File]选项，所以将第二项作为缺省选项。这一要求可以通过窗体的OnCreate事件来实现，为了告诉用户这个动画所拥有的动画帧数，可以调用Animate的FrameCount属性来设置“帧数”标签的值。因为Animate控件没有提供现成的方法。我们可以使用Seek方法，用一个Downto型的循环语句来实现。 5.2 多媒体控件MediaPlayer的使用 5.2.1 多媒体控件MediaPlayer功能简介 5.2.2 使用MediaPlayer控件制作一个VCD播放程序 5.2.1 多媒体控件MediaPlayer功能简介 MediaPlayer控件不仅可以播放AVI文件，还可以通过MCI播放很多媒体文件，比如WAV，MIDI，CD音乐文件和DAT文件。它位于控件板的System页中，如图5-3所示。 5.2.2 使用MediaPlayer控件制作一个VCD播放程序 1．向窗体中添加控件（其窗体及控件布局如图5-4所示）。 2．主要控件分析 3．为控件添加代码 5.3　制作图片浏览器实例 5.3.1 窗体及其控件的布局 5.3.2 控件的属性设置 5.3.3 为控件添加事件驱动程序 5.3.4 图片浏览及其保存 5.3.1 窗体及其控件的布局 创建一个新的项目。 在主窗体中放置一个映像控件Image1。 放置一个打开文件对话框Opendialog1，用于打开图片文件的路径搜索。 放置一个保存文件对话框Savedialog1，用于对图片进行保存。?? 放置一个容器控件Bevel1，用于衬托两个按钮。 ?放置一个面板控件Panel1，用于说明图片浏览器。 放置两个按钮控件，一个用于打开图片，另一个用于保存图片。 其窗体及其控件布局如图5-10所示。 5.3.2 控件的属性设置 本范例所使用的控件属性设置如表5-10所示。 （1）Image1 （2）Opendialog1和Savedialog1 5.3.3 为控件添加事件驱动程序 （1）“打开文件”按钮的事件驱动程序。 （2）“保存文件”按钮的事件驱动程序。 5.3.4 图片浏览及其保存 对于已经制作的简易图片浏览器，可以进行试运行： （1）按“F9”键运行。 （2）单击“打开文件”按钮，出现一个文件路径搜索框如图5-11所示。 （3）找到浏览的图片文件，其显示效果如图5-12所示。 THANK YOU VERY MUCH ！ 本章到此结束， 谢谢您的光临！ 返回本章首页 返回本章首页 图5-1 Animate控件的位置 返回本节 图5-2 例5-1程序的设计界面 表5-1 控件GroupBox的属性 控件 属性 属性值 Group