在程序中如何使用api函数播放mp3音乐!?

[vbanddelphi]

在程序中播放mp3音乐不用控件能不能用函数或其它方法来实现呢?

[subzero]

播放mp3文件的几种途径，不全的请大家补充
1、调用现存播放器提供的控件，如楼上的real或activemovie等等，好处是代码简单
2、编写基于directshow的应用程序来播放mp3
3、直接调用现有的mp3解码引擎，并输出
4、自己编写mp3解码引擎

[goodname008]

' 用API函数中的mciSendString即可解决问题，自己加工加工做了个函数

Option Explicit
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Private Sub Command1_Click()
PlaySound "c:\123.mp3"
End Sub

' 播放指定磁盘中的音乐文件(.wav或.mid或.mp3)
' Filename 为音乐文件的路径及文件名
Function PlaySound(ByVal FileName As String) As Boolean
Dim cmd As String, exName As String
exName = Right(FileName, 3)
mciSendString "close " & exName, 0, 0, 0
cmd = "open " & FileName & " alias " & exName
mciSendString cmd, 0, 0, 0
PlaySound = mciSendString("play " & exName, 0, 0, 0)
End Function

[aha99]

如果是windows支持的格式就可以，但是mp3音乐好像不可以，要不然你就自己解码，或者转换成windows标准的音频格式，直接用winmm中的api来实现，很简单的 LlRet = sndPlaySound(LsSoundFile, SND_ASYNC)

[vbanddelphi]

先谢了,这个我知道,我就是想能不能用函数播放mp3格式的音乐!继续等!

[knikcn]

Private Sub Command1_Click()
RealAudio1.DoPlay
End Sub

Private Sub Form_Load()
RealAudio1.Source = "E:\MUSIC\任贤齐\任贤齐春天花会开.rm"

End Sub

'***************************************************
'control realway activex control library

[vbanddelphi]

谢谢各位！特别感谢goodname008(卢培培，LPP Software) ！问题解决了！！！谢谢！！！