如何在循环中播放多个wma文件

Question

我如何使用Tmediaplayer在delphi上播放20个wma文件，一个接一个地持续循环，直到程序关闭?我已经尝试过为每个文件使用计时器，但我总是失败。我有20首歌想在节目播放的时候作为背景音乐播放。

Answer 1

将文件名放入列表中。将TMediaPlayer.FileName属性设置为列表中的第一个文件名，将TMediaPlayer.Notify属性设置为true，并调用TMediaPlayer.Play()。当TMediaPlayer.OnNotify事件信号回放完成后，您可以将列表中的下一个文件名分配给TMediaPlayer.FileName，将TMediaPlayer.Notify重置为true，并调用TMediaPlayer.Play()。对列表中的每个文件名重复此操作。如果您已经播放了最后一个文件名，请从第一个文件名开始。