delphi中MediaPlayer控件怎么用

Question

怎样用此控件播放音乐,会的麻烦写清楚点(如:在什么地方加入什么代码之类都写下来),本人是一级菜鸟!写的好的追加分数!

Answer 1

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

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

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

MediaPlayer组件方法除了前面提到的对应9个按钮的方法外，Delphi还提供了MediaPlayer组件的一些很重要的方法，如open、save、rewind、resume、pauseOnly及close等，它们的使用详情如下：

1．open方法：

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

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

procedureTForm1．FormCreat（Sender：Tobject）；
begin
with MediaPlayer1 do
begin
DeviceType：=dtCDAudio；
Visible：=False；
open；
play；
end；
end；
2．Save方法：

Save方法用于将当前装入的媒体内容保存到由FileName属性指定的文件中。对于不能用媒体存取的设备（如Videodiscs），Save方法被忽略。

3．Rewind方法：

Rewind方法用于设定当前位置到媒体的开始处，也就是用Start属性保存的值的位置。

【示例】以下代码用到一个MediaPlayer组件和一个Button组件。当单击Button按钮时，WavAudio媒体返回开始处并进行播放。

procedureTForm1．FormClick（Sender：Tobject）；
begin
MediaPlayer1．DeviceType：=dtWavAudio；
MediaPlayer1．fileName：='c：windowschimes．wav'；
Button1．Caption：='返回并开始播放'；
Button1．width：=125；
end；
procedureTForm1．Button1Click（Sender：Tob�ject）；
begin
MediaPlayer1．Rewind；
MediaPlayer1．play；
end；

4．Resume方法：

Resume方法用于重新开始播放或录制当前被暂停的多媒体设备。

5．Close方法：

Close方法用于关闭当前已打开的多媒体设备。

6．PauseOnly方法：

PauseOnly方法仅仅用于暂停多媒体设备，如果该设备已经暂停，则当PauseOnly方法被调用时，设备仍旧保持暂停状态。

以上就是MediaPlayer组件最常用的属性和方法。如果您喜欢的话，在您的应用程序中就可以使用这些属性和方法实现多媒体的音频和视频效果。

Answer 2

举个播放当前目录下音乐文件的例子
if (MediaPlayer1.Mode=mpplaying) then //如果正在播放就停止
begin
MediaPlayer1.Stop;
end;
Mediaplayer1.FileName :=ExtractFilePath(Application.ExeName)+'1.mp3';
设置MediaPlayer文件名,使用ExtractFilePath(Application.ExeName)来返回当前目录加文件名
MediaPlayer1.Open ; 打开文件
MediaPlayer1.Play ;播放文件

播放AVI文件建议和openDialog一起使用，比较方便,和openDialog一起用的例子:
if (MediaPlayer1.Mode=mpplaying) then //如果正在播放就停止
begin
MediaPlayer1.Stop;
end;
if opendialog1.Execute then
begin
Mediaplayer1.FileName :=Opendialog1.FileName;
Mediaplayer1.Open;
Mediaplayer1.Play ;
end;
end;
还有如果想在panel这种容器控件中播放的话先在属性中设置DisPlay属性 转移播放窗口
然后在MediaPlayer1.Play后面加一句
MediaPlayer1.DisplayRect := Panel1.ClientRect;