如何在不使用已安装的播放器的情况下播放 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 播放该编解码器相关的法律问题将由您的法律部门负责。