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

第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属性设置相应的值就能实现。它可以使用一种特殊的Windows95内部动画，这是通用控件的一部分。通过选择CommandAVI属性的一个可能值就能实现。Animate控件位于控件板的Win32页中，如图5-1所示。图5-1Animate控件的位置返回本节5.1.2使用Animate控件实现动画播放的实例程序1．向设计窗体中添加控件如图5-2所示，在窗体的上半部分添加三个TGroupBox控件、一个TOpenDialog控件、七个TButton控件、三个TLabel控件、三个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控件的常用属性和方法表5-1控件GroupBox的属性控件属性属性值GroupBox1CaptionHeightWidth120240GroupBox2CaptionHeightWidth120240GroupBox3AlignCaptionHeightWidthalTop145800表5-2SpinEdit控件的属性属性属性值Icrement1Minvalue0表5-3ListBox控件的属性属性属性值Items.Strings‘[UseanAVIFile]’‘FindFolder’‘FindFile’‘FindComputer’‘CopyFiles’‘CopyFile’‘RecycleFile’‘EmptyRecycle’‘DeleteFile’表5-4OpenDialog控件的属性属性属性值DefaultExt‘avi’Options[ofPathMustExist,ofFileMustExist]Filter‘AVIfile(*.avi)|*.avi‘3．各个方法的实现代码当用户第一次运行这个程序时，希望列表框中的有一个默认选项被选中。一般不希望是[UseanAVIFile]选项，所以将第二项作为缺省选项。这一要求可以通过窗体的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-3MediaPlayer控件的位置返回本节5.2.2使用MediaPlayer控件制作一个VCD播放程序1．向窗体中添加控件（其窗体及控件布局如图5-4所示）。2．主要控件分析3．为控件添加代码图5-4窗体与控件的布局图5-5MediaPlayer控件名称按钮代号作用PlaybtPlay开始播放多媒体文件PausebtPause如果正在播放或录音，则暂停播放或录音，如果已经停止了，则重新开始播放或录音StopbtStop停止播放与录音PrevbtPrev跳到上一个音轨，如果此多媒体不支持音轨，则跳到文件的开始处StepbtStep向前跳过一帧BackbtBack向后跳过一帧RecordbtRecord开始录音EjectbtEject弹出媒体文件（比如说弹出光盘）表5-5MediaPlayer控件的按钮功能属性属性值AutoEnableTrueAutoOpenFalseAutoRewindTrueEnableButtons.btRecordEnableButtons.btEjectFalseFalseDeviceTypedtAutoSelectDisplayOleContainer1TimeFormatTfMilliSecondsVisibleFalse表5-6MediaPlayer１的属性设置图5-6Mediaplayer1控件布尔值设置图5-7Mediaplayer1可播放的设备类型取值意义TfMilliSeconds以毫秒来计算长度TfHMS以小时分钟秒的方式计算长度TfMSE以分钟秒帧计算长度TfFrames以帧数计算长度表5-7TimeFormat部分取值及意义图5-8Mediaplayer1可选择的映像控件图5-9Panels编辑框返回本节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-10图片浏览器的窗体及控件布局返回本节5.3.2控件的属性设置本范例所使用的控件属性设置如表5-10所示。（1）Image1（2）Opendialog1和Savedialog1表5-10控件属性设置表属性属性值Image1.CenterImage1.StrechTrueTrueOpendialog1.FilterBitmaps(*.bmp)|*.bmpSavedialog1FilterBitmaps(*.bmp)|*.bmpPanel1.Caption‘欢迎使用图片浏览器’Button1.CaptionButton21.Caption打开文件保存文件返回本节5.3.3为控件添加事件驱动程序（1）“打开文件”按钮的事件驱动程序。（2）“保存文件”按钮的事件驱动程序。返回本节5.3.4图片浏览及其保存对于已经制作的简易图片浏览器，可以进行试运行：（1）按“F9”键运行。（2）单击“打开文件”按钮，出现一个文件路径搜索框如图5-11所示。（3）找到浏览的图片文件，其显示效果如图5-12所示。图5-11图片文件搜索图5-12程序运行效果返回本节THANKYOUVERYMUCH！本章到此结束，谢谢您的光临！结束放映返回本章首页