2008-12-19 58 views
2

我想播放MP3文件(B/C它們壓縮比的.wav的小)從VB6應用程序,但無需安裝任何其他球員。如何在不使用已安裝的播放器的情況下從VB6播放.mp3文件?

有什麼建議嗎?

+0

我敢肯定,他只是想與API,沒有任何Active-X(OCX)或DLL控件/文件播放MP3(S),所以它們不需要被添加到編譯後的項目/程序。 – 2013-04-04 10:08:38

+0

Welcoem到StackOverflow。這實際上並沒有爲這個問題提供答案。我建議刪除它並重新發布評論,但由於問題已超過4歲,可能不會被看到。 – Deanna 2013-04-05 09:42:15

回答

4

在VB6中播放MP3的最簡單方法是使用windowsmultimedia中的MCI(winmm ) 功能。這些都可以在Windows媒體播放器(默認情況下在2000年,XP和我相信98,需要安裝Windows媒體播放器爲NT4和95)播放MP3的所有版本的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或音序,我猜是因爲它採用了mpegvideo編解碼器來播放回檔。如果您計劃分發您的應用程序,則有關使用MP3編解碼器的法律問題以及您是否使用Windows播放它的問題交給您的法律部門處理。

0

不知道你是否會認爲這是「正裝」,因爲它自帶的操作系統,但你可以從VB6控制Windows媒體播放器。

+0

WMP不總是與歐洲船舶OS:見 http://en.wikipedia.org/wiki/Windows_media_player#European_Commission_case – onedaywhen 2008-12-19 09:02:42

-1

添加引用ActiveMovie控件類型庫,並使用FilgraphManager.RenderFile。看看VbAmp Player的docPlayer.pvLoadMediaFile的樣本,並查看IBasicAudio的使用情況,不管源音量控制等。