1:
2:

  TBassSoundStatus = (BSS_STOPPED = 0, BSS_PLAYING = 1, BSS_STALLED = 2, BSS_PAUSED  = 3);
IncludeTrailingPathDelimiter					

1:
2:
3:
4:
5:

        for a := 0 to Info^.formatc - 1 do
        begin
          // Filter erweitern
          Filter := Filter + Info^.Formats^[a].exts;
        end;					

1:
2:
3:
4:

const
  // special STREAMPROCs
  STREAMPROC_DUMMY : STREAMPROC = STREAMPROC(0);  // "dummy" stream
  STREAMPROC_PUSH  : STREAMPROC = STREAMPROC(-1); // push stream					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

class procedure TBassSound.InitBass{$IFDEF DYNAMIC_BASS_LOAD}(const DLLName:String = 'bass.dll'){$ENDIF};
begin
....
....
....
   if not BASS_Init(-1, 44100, 0, 0, nil) then    
    .....
....
.... 
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

procedure TForm1.btnLoadClick(Sender: TObject);
begin
if dlgOpensong.Execute then
sound.LoadFromFile(dlgOpensong.FileName);

end;

procedure TForm1.btnPlayClick(Sender: TObject);
begin
sound.Play(False);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
sound.Create;
sound.InitBass();
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
sound.Free;
sound.DeInitBass;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TbassSound.MusicLoad(Path:Ansistring);
var
f:Pansichar;
begin
freeSound;
FFreeMemAfter := false;
f:=Pansichar(path);
handle:=BASS_MusicLoad(False,f,0,0,0{$IFDEF UNICODE} or BASS_UNICODE{$ENDIF},Nil);
if Handle = 0 then BassError(BASS_ErrorGetCode);
FSource:=BSSo_File;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

procedure TForm1.btnLoadClick(Sender: TObject);
begin
  if dlgOpensong.Execute then
  sound.LoadFromFile(dlgOpensong.FileName);
end;

procedure TForm1.btnPlayClick(Sender: TObject);
begin
  sound.Play(False);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  TBassSound.InitBass();
  sound := TBassSound.Create;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  sound.Free;
  TBassSound.DeInitBass;
end;					

1:

sound.musicload(opendialog.filename);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TbassSound.MusicLoad(Path:string);
var
f:Pchar;
begin
freeSound;
FFreeMemAfter := false;
f:=Pchar(path);
handle:=BASS_MusicLoad(False,f,0,0,0{$IFDEF UNICODE} or BASS_UNICODE{$ENDIF},0); //NIL ist hier falsch
if Handle = 0 then BassError(BASS_ErrorGetCode);
FSource:=BSSo_File;
end;					

1:

357  Filter := 'mp3;*.mp2;*.mp1;*.ogg;*.wav*;*.aif;*.it;*.xm;*.mod,*.s3m';					

1:
2:
3:
4:
5:

//----Getcpu-------
function TbassSound.cpu:string;
begin
result:=FloatToStrF(BASS_GetCPU,ffFixed, 4, 2) + '%';   //gibt an wie viel cpu verwendet wird.
end;