Sound abspielen mit Lazarus unter Linux

[bianfable]

Ich versuche jetzt schon seit einige Zeit einfach nur eine *.wav-Datei mit Linux abzuspielen, aber ich habe hier im Forum und auch sonst nichts gefunden. Unter Windows (Delphi) reicht der Befehl PlaySound, aber es scheint mir so, als gäbe es so etwas einfaches für Linux nicht.
Ich bin nach einiger Zeit auf ACS gestoßen. Zunächst einmal gibt es die offizielle Internet-Seite mit dem Download nicht mehr, und dann als ich doch noch eine *.zip irgendwo im Internet aufgetrieben habe, sagt mein Lazarus mir bei der Installation, dass es eine Unit schon gibt (MAD.pas) und zwar aus dem Paket "laz_acs 2.3". Heißt das, dass das schon installiert ist? Und wenn ja, wie kann ich jetzt einfach nur eine Datei abspielen?

[Teekeks]

Da verweise ich an folgendes Projekt mal weiter: http://www.lazarusforum.de/viewtopic.php?f=29&t=2431
ACS geht leider nur bei den wenigsten wirklich zu Installieren.

[bianfable]

Ok, das hab ich mir jetzt runtergeladen. Sah recht einfach zu verwenden aus. Ich hab's mal so gemacht, zum testen:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var P: TPLXine;
begin
  P := TPLXine.Create();
  P.FileOpen('/home/***/test.wav');
  P.play;
end;

Dann kommt beim kompilieren dieser Fehler:

Zitat:

cannot find -lxine
Error: Error while linking

[igel457]

Meine Audiobiliothek Audorra kann auch Audio-Dateien wiedergeben. Du musst einfach nur die Audorra-Verzeichnisse in den Suchpfad deines Projektes aufnehmen und schon kannst du Audio wiedergeben. Für längere Sounds eigenet sich die "TAuPlayer"-Klasse.

Es sind entsprechende Demos dabei, die fast ohne Änderung funktionieren sollten.

Höchstens solltest du in der Uses-Klausel "AuAcinerella" durch "AuWAV" ersetzen, wenn du nicht noch separat Acinerellla herunterladen, kompilieren und installieren möchtest.

Anzumerken ist noch, dass Audorra momentan unter Linux noch etwas instabil ist, ich arbeite aber daran.

[Teekeks]

Zitat von bianfable:

Ok, das hab ich mir jetzt runtergeladen. Sah recht einfach zu verwenden aus. Ich hab's mal so gemacht, zum testen:

Code:

procedure TForm1.Button1Click(Sender: TObject);
var P: TPLXine;
begin
  P := TPLXine.Create();
  P.FileOpen('/home/***/test.wav');
  P.play;
end;

Dann kommt beim kompilieren dieser Fehler:

Zitat:

cannot find -lxine
Error: Error while linking

du brauchst das hier:

Delphi-Quellcode:

  P := TPLXine.Create();
  P.init;
  P.FileOpen('/home/***/test.wav');
  P.play;

dann geht das.

Und du benötigst natürlich auch die XINE-lib