Question

DELPHI 编程如何播放音乐

用DELPHI 编程如何播放音乐文件,比如 *.mp3 文件. 我在DELPHI 中仅看到一个音乐控件: MediePlaer , 不知还有什么控件,如何播放音乐, 请高手帮忙, 不胜感谢!

Answer 1

使用 delphi 自带的 MediaPlayer 控件，可以播放常见的 wav / mp3 等格式的音乐文件，使用步骤如下：

1.在窗体里添加MediaPlayer1控件。

2. 以下代码为播放：

MediaPlayer1.FileName:='<需要播放的MP3文件>';

MediaPlayer1.Open;

以下是该控件的一些相关方法：

(1)AutoButtonSet方法

该方法能够指定媒体播放器的按钮可用或不可用。当AutoEnable特性设置为’lue时，该过程可根据媒体设备的状态自动控制媒体播放器的按钮处于可用或不可用状态。

(2)Play方法
该方法用于播放已打开的媒体文件。如果设置了StartPos属性，则该方法从Start．Pos指定的位置开始播放；否则从Position特性指定的当前位置开始播放。同样，如果设置了：EndPos特性，那么该过程播放到，EndPos指定的位置结束；否则一直播放到媒体结束。如果设置AutoRewind特性为True，那么调用该过程时，无论当前位置在何处，都将从头开始播放。

(3)Open方法
该方法用于打开多媒体设备。在调用该过程打开多媒体设备之前，须在DeviceType特性中指定设备类型。

(4)Save方法
该方法用于把当前已加载的媒体存储到FileName特性指定的文件中。

(5)Close方法
该方法用于关闭已打开的多媒体播放设备。应用程序中止时，自动调用该过程。

(6)Pause方法
该方法用于暂停多媒体设备的播放或录制。如果在设备暂停状态调用该过程，则设备将调用Resume方法恢复播放或录制。在程序运行中按下媒体播放器的：Pause按钮，将调用该过程。

(7)Next方法
该方法用于将媒体播放器移动到下一个轨道的开始位置。如果调用该方法时，媒体的当前位置是最后一个轨道，那么媒体播放器将定位于当前位置。如果多媒体设备不使用轨道，该方法将定位于媒体的最后位置。在程序运行中按下媒体播放器的Next按钮，将调用该过程。

(8)Preyious方法
该方法使媒体播放器回退。如果当前位置是一个轨道的开始位置，那么调用该方法可使媒体回退到上一个轨道的开始位置；如果当前位置不是一个轨道的开始位置，那么回退到当前轨道的开始位置；如果媒体设备不使用轨道，那么回退到Start特性指定的开始位置。

(9)Step方法
该方法在媒体中向前(播放方向)移动数个。Frames。在程序运行中按下媒体播放器的Step按钮，将调用该过程。

(10)Back方法
该方法使媒体播放器回退数个Frames。在程序运行中按下媒体播放器的Back按钮，将调用该方法。

(11)StartRecording方法
该方法从当前位置或StartPos特性指定的位置开始录制。在程序运行中按下媒体播放器的Record按钮，将调用该方法。

(12)Eject方法
该方法用于打开多媒体设备仓门，删除已安装的媒体文件。在程序运行中按下媒体播放器的Eject按钮，将调用该方法。

(13)Resume方法
该方法使用目前处于暂停状态的媒体设备恢复播放或录制。在程序运行中，当媒体设备处于暂停状态时，按下媒体播放器的Resume按钮，将调用该过程。

(14)Rewind方法
该方法用于移动当前位置到Start特性指定的媒体开始位置。

(15)Stop方法
该方法中止媒体播放或录制。在程序运行中按下媒体播放器的Stop按钮，将调用该方法