如何在不使用已安装的播放器的情况下播放VB6中的.mp3文件？

Question

我想从vb6应用程序播放mp3文件（b / c压缩小于.wav），但不需要安装任何其他播放器。

有什么建议吗？

Answer 1

在VB6中播放MP3的最简单方法是在windowsmultimedia（winmm）函数中使用MCI。所有版本的Windows都可以在Windows媒体播放器中播放MP3（默认情况下，2000，XP，我相信98，需要为NT4和95安装Windows媒体播放器）。将以下内容添加到标题中：

Declare Function mciSendString Lib "winmm" Alias "mciSendStringA" (ByVal _
    lpstrCommand As String, ByVal lpstrReturnString As String, _
    ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

然后在子程序中添加以下内容：

CommandString = "open """ & FileName & """ type mpegvideo alias " & FileName
RetVal = mciSendString(CommandString, vbNullString, 0, 0)

文件类型应该是mpegvideo而不是wavfile或sequencer，我猜是因为它使用mpegvideo编解码器来播放文件。有关使用MP3编解码器的法律问题以及您是否使用Windows进行播放，如果您计划分发您的应用程序，则由您的法律部门负责。

Answer 2

使用DLL，例如FMOD来播放mp3文件。

Answer 3

不确定您是否会将其视为“正在安装”，因为它附带了操作系统，但您可以从vb6控制Windows媒体播放器。

Answer 4

添加对ActiveMovie控件类型库的引用并使用FilgraphManager.RenderFile。看一下VbAmp Player的docPlayer.pvLoadMediaFile示例，并查看IBasicAudio在源 - 音量控制等方面的用法。