Delphi with Multimedia library Bass.dll play MP3 [6]

This example effect chart:

Code files:

Unit Unit1;
Interface
Uses
Windows, Messages, sysutils, variants, Classes, Graphics, Controls, Forms,
Dialogs, Stdctrls, Extctrls;
Type
TForm1 = Class (Tform)
Opendialog1:topendialog;
Button1:tbutton;
Button2:tbutton;
Button3:tbutton;
Checkbox1:tcheckbox;
Procedure Formcreate (Sender:tobject);
Procedure Button1Click (Sender:tobject);
Procedure Button2click (Sender:tobject);
Procedure Button3click (Sender:tobject);
Procedure Formdestroy (Sender:tobject);
Procedure Checkbox1click (Sender:tobject);
End
Var
Form1:tform1;
Implementation
{$R *.DFM}
Uses Bass;
Var
Hs:hstream; {Stream Handle}
Procedure Tform1.formcreate (Sender:tobject);
Begin
Checkbox1.caption: = ' loop play ';
If HiWord (bass_getversion) <> Bassversion Then
MessageBox (0, "Bass.dll" file version is not suitable!) ', nil, mb_iconerror);
If not Bass_init ( -1, 44100, 0, 0, nil) then
ShowMessage (' initialization error ');
End
Open
Procedure Tform1.button1click (Sender:tobject);
Var
mp3path:ansistring;
Begin
Bass_streamfree (HS);
Opendialog1.filter: = ' Mp3 file (*.mp3) |*.mp3| Wav file (*.wav) |*wav ';
If Opendialog1.execute Then
Mp3path: = ansistring (Opendialog1.filename);
HS: = Bass_streamcreatefile (False, Pansichar (Mp3path), 0, 0, 0);
{Want to set up the playback stream as follows, just loop the play}
HS: = Bass_streamcreatefile (False, Pansichar (Mp3path), 0, 0, bass_sample_loop);
If HS < bass_error_ended Then
Text: = ' Open failed '
Else
Text: = string (Mp3path);
End
Play
Procedure Tform1.button2click (Sender:tobject);
Begin
Bass_channelplay (HS, False);
End
Suspended
Procedure Tform1.button3click (Sender:tobject);
Begin
Bass_channelpause (HS);
End
{Loop Playback}
Procedure Tform1.checkbox1click (Sender:tobject);
Begin
If Checkbox1.checked Then
Bass_channelflags (HS, Bass_sample_loop, Bass_sample_loop)
Else
Bass_channelflags (HS, 0, Bass_sample_loop);
End
Procedure Tform1.formdestroy (Sender:tobject);
Begin
Bass_free;
End
End.