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

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控件运用两种不同的资源：它可以基于上面所描画的AVI文件，经过为FileName属性设置相应的值就能实现。它可

2、以运用一种特殊的Windows 95内部动画，这是通用控件的一部分。经过选择CommandAVI属性的一个能够值就能实现。Animate控件位于控件板的Win32页中，如图5-1所示。图5-1 Animate控件的位置前往本节5.1.2 运用Animate控件实现动画播放的实例程序1向设计窗体中添加控件 如图5-2所示，在窗体的上半部分添加三个TGroupBox控件、一个TOpenDialog控件、七个TButton控件、三个TLabel控件、三个TSpinEdit控件，在窗体下半部分添加一个TListBox控件和一个Animate控件。其中，Animate控件的位置应根据运转程序时，需求出现

3、的位置来放置。 图5-2 例5-1程序的设计界面2设定工程中控件的属性见表5-11设置分组框GroupBox控件的属性2设置Button控件的属性3设置Label控件的属性4设置SpinEdit控件的属性(见表5-2)5设置ListBox控件的属性(见表5-3)6设置OpenDialog控件的属性见表5-47Animate控件的常用属性和方法表5-1 控件GroupBox的属性控件属性属性值GroupBox1CaptionHeightWidth120240GroupBox2CaptionHeightWidth120240GroupBox3AlignCaptionHeightWidthalTop

4、145800表5-2 SpinEdit控件的属性属性属性值Icrement1Minvalue0表5-3 ListBox控件的属性属性属性值Items.StringsUse an AVI File Find Folder Find File Find Computer Copy Files Copy File Recycle File Empty Recycle Delete File表5-4OpenDialog控件的属性属性属性值DefaultExtaviOptionsofPathMustExist , ofFileMustExistFilterAVI file (*.avi)|*.avi 3

5、各个方法的实现代码当用户第一次运转这个程序时，希望列表框中的有一个默许选项被选中。普通不希望是Use an AVI File选项，所以将第二项作为缺省选项。这一要求可以经过窗体的OnCreate事件来实现，为了通知用户这个动画所拥有的动画帧数，可以调用Animate的FrameCount属性来设置“帧数标签的值。由于Animate控件没有提供现成的方法。我们可以运用Seek方法，用一个Downto型的循环语句来实现。前往本节5.2 多媒体控件MediaPlayer的运用5.2.1 多媒体控件MediaPlayer功能简介5.2.2 运用MediaPlayer控件制造一个VCD播放程序前往本章首

6、页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假设正在播放或录音，那么暂停播放或

7、录音，假设曾经停顿了，那么重新开场播放或录音StopbtStop停顿播放与录音PrevbtPrev跳到上一个音轨，假设此多媒体不支持音轨，那么跳到文件的开场处StepbtStep向前跳过一帧BackbtBack向后跳过一帧RecordbtRecord开场录音EjectbtEject弹出媒体文件比如说弹出光盘表5-5MediaPlayer控件的按钮功能属性属性值AutoEnableTrueAutoOpenFalseAutoRewindTrueEnableButtons. btRecordEnableButtons. btEjectFalseFalseDeviceTypedtAutoSelectD

8、isplayOleContainer1TimeFormatTfMilliSecondsVisibleFalse表5-6MediaPlayer的属性设置图5-6 Mediaplayer1控件布尔值设置 图5-7Mediaplayer1可播放的设备类型取值意义TfMilliSeconds以毫秒来计算长度TfHMS以小时分钟秒的方式计算长度TfMSE以分钟秒帧计算长度TfFrames以帧数计算长度表5-7 TimeFormat部分取值及意义图5-8Mediaplayer1可选择的映像控件图5-9 Panels编辑框前往本节5.3制造图片阅读器实例5.3.1 窗体及其控件的规划5.3.2 控件的属性设

9、置5.3.3 为控件添加事件驱动程序5.3.4 图片阅读及其保管前往本章首页5.3.1 窗体及其控件的规划创建一个新的工程。在主窗体中放置一个映像控件Image1。放置一个翻开文件对话框Opendialog1，用于翻开图片文件的途径搜索。放置一个保管文件对话框Savedialog1，用于对图片进展保管。 放置一个容器控件Bevel1，用于烘托两个按钮。放置一个面板控件Panel1，用于阐明图片阅读器。 放置两个按钮控件，一个用于翻开图片，另一个用于保管图片。 其窗体及其控件规划如图5-10所示。图5-10 图片阅读器的窗体及控件规划前往本节5.3.2 控件的属性设置本范例所运用的控件属性设置如

10、表5-10所示。1Image12Opendialog1和Savedialog1表5-10 控件属性设置表属性属性值Image1.CenterImage1.StrechTrueTrueOpendialog1.FilterBitmaps(*.bmp)|*.bmpSavedialog1FilterBitmaps(*.bmp)|*.bmpPanel1.Caption欢迎运用图片阅读器Button1.CaptionButton21.Caption翻开文件保管文件前往本节5.3.3 为控件添加事件驱动程序1“翻开文件按钮的事件驱动程序。2“保管文件按钮的事件驱动程序。前往本节5.3.4 图片阅读及其保管对于