Delphi 程序设计 冯博琴主编 席一凡 聂 第十一章 多媒体程序设计新.pptVIP

第11章 多媒体程序设计 教学目的 ? 掌握多媒体控件的基本属性 ? 掌握多媒体控件的方法 ? 掌握Animate组件的常用属性 ? 掌握多媒体控件及Animate组件的使用方法 当今的计算机是一个融合了声音、图像、视频等多种媒体的设备，多媒体的应用也越来越广泛。本章将介绍Delphi7所提供的多媒体控件MediaPlayer的常用属性及使用方法，并通过实例对能够实现简单动画的Animate控件做详细的讲解。 高等学校计算机基础教育规划教材 Delphi程序设计 11.1 多媒体控件（MediaPlayer） 媒体播放器控件位于构件板的【system】页标下(见图11.1)，提供了类似Windows里的媒体控制接口(MCI-Media control Interface)，只要在多媒体属性中(位于控制面板的多媒体图标内)完整安装了媒体控制设备驱动程序，就可利用该构件来播放媒体文件。 MediaPlayer控件为用户提供了一组可视化按钮，双击MediaPlayer组件，就可以将它添加到当前活动的窗体上(见图11.2)。每个按钮对应一个特定的值和方法，当某个按钮的OnClick事件发生时，就调用并执行相应的方法。 MediaPlayer控件 图11.2 MediaPlayer控件的可视化按钮 图11.1 MediaPlayer控件的位置 11.1.1 MediaPlayer控件的基本属性 (1) AutoEnable属性 该属性为Boolean类型。若该属性设为True，媒体播放器在运行过程中能够自动控制哪些按钮当前可用，哪些按钮当前不可用(不可用的按钮以灰色显示)；该属性设为False，媒体播放器不能自动控制哪些按钮是当前可用的，哪些按钮是当前不能用的。判断的依据是Mode属性返回的设备状态以及DeviceType属性设置的设备类型。 (2) AutoOpen属性 该属性为Boolean类型。若该属性设为True，媒体播放器自动打开DeviceType属性指定的多媒体设备(如果DeviceType属性设为dtAutoSelect，媒体播放器将自动打开FileName属性指定的文件)。属性设为False，就必须调用Open方法才能打开设备。如果在打开设备过程中出错，将触发EMCIDeviceError异常，可通过Error属性和ErrorMessage属性来访问错误代码和相应的错误信息。 (3) AutoRewind属性 该属性为Boolean类型，用于设置是否具有自动返回功能。如果属性设置为True时，当需要播放或者录制时将自动返回到媒体文件的开始。如果这个属性设置为False，只有当用户按下Prev或者在程序中调用Previous方法后才能返回到媒体文件的开始。 (4) Capabilities属性 该属性为只读的TMPDevCapsSet集合类型，返回当前设备可操作状态。 (5) ColoredButton属性 该属性为TButtonSet集合类型，用于设置哪些按钮用彩色显示，哪些按钮用黑白显示，默认时全部按钮均用彩色显示。 (6) DeviceID属性 该属性为只读的Word类型，返回当前处于打开状态的设备识别号。如果当前没有处于打开状态的设备，那么这个属性就为0。 (7) DeviceType属性 该属性为TMPDeviceType类型，用于指定设备类型。该属性的缺省值是dtAutoSelect，表示自动识别设备类型；设为其他值时，将指定某种特定的设备类型。当DeviceType属性设为dtAutoSelect时，将根据FileName属性指定的媒体文件的扩展名来判断设备类型，每种扩展名对应着一种设备类型。 (8) Display属性 该属性为TwinControl类型，用于指定一个窗口作为媒体文件的输出界面。缺省值是Nil，表示媒体播放器自己开一个窗口显示输出。 (9) DisplayRect属性 该属性为TRect类型。如果Display属性设置了一个媒体文件输出窗口，这个属性可用于在输出窗口上设置一个矩形区域作为输出范围。如果Display属性设置为Nil，这个特性无效。 (10) EnabledButtons属性 该属性为TbuttonSet集合类型，用于设置哪些按钮当前可用，哪些按钮当前不可用。不可用的按钮以灰色显示。如果AutoEnable属性设为True，则这个属性无效。 (11) EndPos属性 该属性为LongInt类型。这个属性和StartPos 属性一起用于设置媒体文件的起始位置和终止位置，媒体播放器只能播放这个区间的内容。 (12) Error属性 该属性为只读的LongInt类型。当媒体设备出错时，这个属性返回错误代码。如果这个属性返回值为0，表示设备