Delphi中多媒体组件使用解析[1]

Delphi是美国Borland公司推出的一个十分优秀的软件开发平台它以其强大的开发功能在众多的开发环境中独占鳌头尤其是它在多媒体软件的开发上更是技高一筹在Delphi的组件板system页上有一个称为MediaPlayer的组件它是多媒体软件制作的核心以下将就MediaPlayer组件的使用作以详解

MediaPlayer组件主要是用于控制MCI（MediaControlInterface）设备该组件提供了一系列按钮用于控制诸如CD－ROMMIDIVCR等多媒体设备这些多媒体设备可以是硬件也可以是软件这些按钮在缺省情况下从左到右依次为Play（播放）Pause（暂停）Stop（停止）Next（下一个曲目）Prev（前一个曲目）Step（步进）Back（后退）Record（录音）Eject（弹出媒体）等个功能按钮在用户自己开发的程序中多媒体设备可以有两种方法实现以上个功能一种方法是将MediaPlayer组件放在窗体上在程序运行时单击相应按钮另一种方法是用与按钮相应的方法（Method）来实现这些功能

以上个按钮在视图和功能上均允许进行选择使用者可以通过改变objectinspector（对象监视器）的属性页中的＋VisibleButtons和＋EnabledButtons属性来实现使用者只需要双击此属性使其上的＋变成－然后在下面新出现子属性表中将相应的子属性的值赋给true／false即可

MediaPlayer组件有许多的属性（property）和方法（method）属性是程序设计时在objectinspector（对象监视器）中进行设置的它无需开发程序的人自行编码（当然也可以在代码中进行属性设置）而方法是程序开发者在程序代码中必须用到的过程和函数等在正常情况下Delphi会将常用的属性设置为缺省值这些值对于一般的开发来说已经足够了但是有一些关键的属性值却是必须由使用者自己给定的其中最重要的几个属性及其使用说明见下表

MediaPlayer组件方法除了前面提到的对应个按钮的方法外Delphi还提供了MediaPlayer组件的一些很重要的方法如opensaverewindresumepauseOnly及close等它们的使用详情如下

．open方法

open方法用于打开一个多媒体设备在调用该方法之前必须确保在MediaPlayer组件的DeviceType（设备类型）属性中设定正确的多媒体设备类型

【示例】以下代码用于在程序开始运行时就播放CD音乐

procedureTForm．FormCreat（SenderTobject）

begin

with MediaPlayer do

begin

DeviceType=dtCDAudio

Visible=False

open

play

end

end

[] []