张旭
Delphi是美国Borland公司推出的一个十分优秀的软件
开发平台。它以其强大的开发功能在众多的开发环境中独
占鳌头，尤其是它在多媒体软件的开发上更是技高一筹。
在Delphi的组件板system页上有一个称为MediaPlayer的
组件，它是多媒体软件制作的核心，以下将就MediaPlayer
组件的使用作以详解。
MediaPlayer组件主要是用于控制MCI（MediaContr
olInterface）设备，该组件提供了一系列按钮用于控制
诸如CD－ROM、MIDI、VCR等多媒体设备，这些多媒体设备
可以是硬件也可以是软件。这些按钮在缺省情况下从左到
右依次为：Play（播放）、Pause（暂停）、Stop（停止）
、Next（下一个曲目）、Prev（前一个曲目）、Step（步
进）、Back（后退）、Record（录音）、Eject（弹出媒
体）等9个功能按钮。在用户自己开发的
程序中，多媒体设
备可以有两种方法实现以上9个功能，一种方法是将Media
Player组件放在窗体上，在
程序运行时单击相应按钮;另
一种方法是用与按钮相应的“方法”（Method）来实现这
些功能。按钮与对应的“方法”见下表：
以上9个按钮在视图和功能上均允许进行选择，使用
者可以通过改变objectinspector（对象监视器）的属性页
中的＋VisibleButtons和＋EnabledButtons属性来实现，
使用者只需要双击此属性使其上的“＋”变成“－”，然
后在下面新出现子属性表中将相应的子属性的值赋给true
／false即可。
MediaPlayer组件有许多的属性（property）和方法
（method）。属性是
程序设计时在objectinspector（对象
监视器）中进行设置的，它无需开发
程序的人自行编码（
当然也可以在代码中进行属性设置）;而方法是
程序开发
者在
程序代码中必须用到的过程和函数等。在正常情况下
，Delphi会将常用的属性设置为缺省值，这些值对于一般
的开发来说已经足够了，但是有一些关键的属性值却是必
须由使用者自己给定的。其中最重要的几个属性及其使用
说明见下表：
MediaPlayer组件方法除了前面提到的对应9个按钮的
方法外，Delphi还提供了MediaPlayer组件的一些很重要
的方法，如open、save、rewind、resume、pauseOnly及cl
ose等，它们的使用详情如下：
1．open方法：
open方法用于打开一个多媒体设备。在调用该方法之
前，必须确保在MediaPlayer组件的DeviceType（设备类
型）属性中设定正确的多媒体设备类型。
【示例】以下代码用于在
程序开始运行时就播放CD音
乐。
procedureTForm1．FormCreat（Sender：Tobject）
;
begin
withMediaPlayer1do
begin
DeviceType：ΚdtCDAudio;
Visible：ΚFalse;
open;
play;
end;
end;
2．Save方法：
Save方法用于将当前装入的媒体内容保存到由FileNa
me属性指定的文件中。对于不能用媒体存取的设备（如Vi
deodiscs），Save方法被忽略。
3．Rewind方法：
Rewind方法用于设定当前位置到媒体的开始处，也就
是用Start属性保存的值的位置。
【示例】以下代码用到一个MediaPlayer组件和一个B
utton组件。当单击Button按钮时，WavAudio媒体返回开
始处并进行播放。
procedureTForm1．FormClick（Sender：Tobject）
;
begin
MediaPlayer1．DeviceType：ΚdtWavAudio;
MediaPlayer1．fileName：Κ′c：ιwindowsιch
imes．wav′;
Button1．Caption：Κ′返回并开始播放′;
Button1．width：Κ125;
end;
procedureTForm1．Button1Click（Sender：Tobje
ct）;
begin
MediaPlayer1．Rewind;
MediaPlayer1．play;
end;
4．Resume方法：
Resume方法用于重新开始播放或录制当前被暂停的多
媒体设备。
5．Close方法：
Close方法用于关闭当前已打开的多媒体设备。
6．PauseOnly方法：
PauseOnly方法仅仅用于暂停多媒体设备，如果该设
备已经暂停，则当PauseOnly方法被调用时，设备仍旧保持
暂停状态。
以上就是MediaPlayer组件最常用的属性和方法。如
果您喜欢的话，在您的应用
程序中就可以使用这些属性和
方法实现多媒体的音频和视频效果。
