编程音乐(编程音乐代码)

DELPHI 编程如何播放音乐

使用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特性指定的开始位置。