[Komponente] Bass Player Komponente: TBassDLLPlayer (+Demos)

[turboPASCAL]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); //Sound laden und wiedergeben
begin
  BassDLLPlayer1.LoadFromFile('test.mp3');      // Datei Laden
  BassDLLPlayer1.Volume := 50;                  // Volumevoreinstellung 0..100
  BassDLLPlayer1.Play;                          // Abspielen 
end;

procedure TForm1.Button2Click(Sender: TObject); // Sound anhalten, kann mann muss aber nich'
begin
  BassDLLPlayer1.Stop;  
end;

Fertig.

PS.: Schau dir mal den SimplePayer an