MP3 播放代码，哪位大牛给个现成的呗？解决方法

MP3 播放代码，哪位大牛给个现成的呗？
就一超级小的MP3音频 文件，持续时间只有3秒，程序想调用它循环播放声音。

[解决办法]
http://www.free-codecs.com

这里去找一个DLL, 调用一下, 写起来就麻烦了, win 系统也自带

[解决办法]
导入WIN自带的Windows Media Player到ActiveX面板. 导入后,D7生成WMPLib_TLB单元.

下面代码就可以连续播放同一首MP3了.

Delphi(Pascal) code

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, OleCtrls, WMPLib_TLB, StdCtrls;type  TForm1 = class(TForm)    procedure FormCreate(Sender: TObject);  private    { Private declarations }    WMP: TWindowsMediaPlayer;  public    { Public declarations }    procedure WMPPlayStateChange(ASender: TObject; NewState: Integer);      end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WMPPlayStateChange(ASender: TObject; NewState: Integer);begin  if NewState = 1 then (ASender as TWindowsMediaPlayer).controls.play;end;procedure TForm1.FormCreate(Sender: TObject);begin  WMP:= TWindowsMediaPlayer.Create(nil);  WMP.OnPlayStateChange:= WMPPlayStateChange;  WMP.URL:= 'your_music.mp3';        end;end.
[解决办法]
现在播放器不都带格式转换吗， 大多都能转成wav, 成wav了， 使用自带的播放音频函数就可以。