unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  TForm1 = class(TForm)
    btnOpen: TButton;
    btnPlay: TButton;
    btnPause: TButton;
    edt1: TEdit;
    dlgOpen1: TOpenDialog;
    lbl1: TLabel;
    chkLoop: TCheckBox;
    btnDelete: TButton;
procedure FormCreate(Sender: TObject);
procedure btnOpenClick(Sender: TObject);
procedure btnPlayClick(Sender: TObject);
procedure btnPauseClick(Sender: TObject);
procedure chkLoopClick(Sender: TObject);
procedure btnDeleteClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
  Form1: TForm1;
implementation
{$R *.dfm}
uses  bass;
var
hs:HSTREAM; //流句柄
//Open
procedure TForm1.btnOpenClick(Sender: TObject);
var
  soundPath:AnsiString;
  str:string;
  time:Double;
  timeStr:String;
  hour:Integer;
  minute:Integer;
  second:Integer;
begin
  dlgOpen1.Filter:='Mp3 File(*.mp3)|*.mp3|Wav File(*.wav)|*wav' ;
if dlgOpen1.Execute then
    soundPath:=AnsiString(dlgOpen1.FileName);
    BASS_StreamFree(hs);
    hs:=BASS_StreamCreateFile(False,PAnsiChar(soundPath),0,0,0); //创建播放流，第一个参数False为从文件载入，true从内存载入。第二个参数为文件名或内存流的指针
    edt1.Text:=ExtractFileName(soundPath);//edt1用来显示读取的文件名
if hs < BASS_ERROR_ENDED then    //判断打开是否失败
begin
        ShowMessage('Open '+soundPath+' fail!');
        Exit;
end;
     time:=BASS_ChannelBytes2Seconds(hs,BASS_ChannelGetLength(hs,BASS_POS_BYTE)); //获取音频的总时间，BAss_Channel2Seconds根据流的指针位置来获取时间点, 单位是秒，
                                                                                  //BASS_ChannelGetLength是获取文件流的长度，BASS_ChannelGetPosition是获得指针的位置  
     hour:=Trunc(time/3600);
     time:=time-hour*3600;
     minute:=Trunc(time/60);
     time:=time-minute*60;
     second:=Trunc(time);
     timeStr:=Format('%.2d',[hour])+':'+Format('%.2d',[minute])+':'+Format('%.2d',[second]);
     lbl1.Caption:='Total Time:  '+timeStr; 
end;
//Play
procedure TForm1.btnPlayClick(Sender: TObject);
begin
   BASS_ChannelPlay(hs,False); 
end;
//Pause
procedure TForm1.btnPauseClick(Sender: TObject);
begin
    BASS_ChannelPause(hs);
end;

procedure TForm1.btnDeleteClick(Sender: TObject);
begin
   BASS_StreamFree(hs);     //释放流
   edt1.Text:='No Audio';
end;

procedure TForm1.chkLoopClick(Sender: TObject);
begin
if chkLoop.Checked then
    BASS_ChannelFlags(hs, BASS_SAMPLE_LOOP, BASS_SAMPLE_LOOP) 
else
    BASS_ChannelFlags(hs, 0, BASS_SAMPLE_LOOP);
end;

//IS Loop 
procedure TForm1.FormCreate(Sender: TObject);
var
i:Integer;
info: BASS_DEVICEINFO;

begin
  edt1.Text:='No Audio';
if HiWord(BASS_GetVersion) <> BASSVERSION then
    ShowMessage('The Bass.dll version is not available');
if not BASS_Init(-1, 44100, 0, 0, nil) then
    ShowMessage('Initial Error!');
end;

end.