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

Question

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

有什么建议么？

Answer 1

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

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或音序器，我想是因为它使用mpegvideo编解码器来播放文件。 如果您打算分发应用程序，则与使用MP3编解码器有关的法律问题以及是否正在使用Windows播放该问题，将由法律部门决定。

Answer 2

使用DLL（例如FMOD）播放mp3文件。

Answer 3

由于它是操作系统附带的，因此不确定是否将其视为“正在安装”，但是可以从vb6控制Windows Media Player。

Answer 4

添加对ActiveMovie控件类型库的引用，并使用FilgraphManager.RenderFile 。 看一下VbAmp Player的docPlayer.pvLoadMediaFile作为示例，并检查IBasicAudio的用法，尽管有源码-音量控制等。