最简单的方法实现MIDI音乐循环播放 (不用在MCI回调中处理)

前几天，需要在一个Delphi小程序中实现循环播放一段midi音乐。为什么不用mp3或wav或其它？因为midi格式体积小。（总之我有我的必然理由，多喷无意）

播放功能选择使用MMSystem单元中的mciSendString函数来实现，注意到"OPEN"操作时需要指定媒体类型为"TYPE SEQUENCER"（就是指midi音频），接下来使用"PLAY XX REPEAT"操作希望能循环播放，结果不但没有实现循环，而且音乐根本就不播放。详查MSDN发现"REPEAT"参数只适用于视频媒体，对SEQUENCER等并不适用，难道就没办法了？

网上查阅得知可以在"MM_MCINOTIFY"回调事件中实现：在播放结束事件中立即再执行一次播放。但仅仅为了一个循环去处理回调，显示不符合极简的做事风格。继续Google（还好公司有VPN），终于找到有牛人提供答案（传送门），做法太巧妙了：既然MSDN说REPEAT参数适用于视频，那我就让你按视频的方式来播放，一段midi音乐不就是一个没有画面的视频吗？所以方法就是在"OPEN"操作时把媒体类型指定为"TYPE MPEGVIDEO"（其它视频格式可能也行，我暂时没有去多尝试），搞定！

关键代码如下：

    mciSendString('OPEN music.mid TYPE MPEGVIDEO ALIAS BGM', nil, 0, 0);
    mciSendString('PLAY BGM REPEAT', nil, 0, 0);

参考资料：

http://www.developerfusion.com/thread/41619/repeatloop-midi