怎样编程实现播放mp3等格式的歌曲

[mmkill]

怎样编程实现播放mp3等格式的歌曲，最好不借助外部控件

[邹工]

Delphi自带的TMediaPlayer控件

[Haofei]

TMediaPlayer控件是调用Windows的MCI（Media Control Interface）来实现媒体的播放的，只要你Windows中有相应的解码器，就可以播放相应的文件。Windows2000以上系统自带了MP3解码器，因此可以直接用TMediaPlayer播放，而Windows 9X则必须安装Windows Media Player 8或RealOne Player2（这两个软件带有MP3解码器）后才可以用TMediaPlayer播放MP3。

[ly840325]

TMediaPlayer

[ekin]

强的话自己写解码器

[heartache]

累死...不知道winamp提供的那个sdk能不能用

[hcj2002]

MediaPlayer控件播放mp3

Private Sub Command1_Click()
Dlg.CancelError = True
On Error GoTo handler
With Dlg
.InitDir = App.Path
.Filter = "Midi Files(*.mid)|*.mid|MP3 Files(*.mp3)|*.mp3|Wave Filse(*.wav)|*.wav|(*.m3u)|*.m3u"

.ShowOpen
End With

mp.URL = Dlg.FileName
mp.play



handler:
Exit Sub

End Sub

有专门播放mp3的第三方控件，其实是很好的。
另外也可以用API函数mciExecute播放

[beyondsun]

VB的

[thisisyjs]

用DirectShow 做，找现成的 解码Filter。
通常不要自己直接解码，算法比较繁琐。