Resource an TProcess übergeben

[Scotty]

Ich würde gern Sound aus einer Resource abspielen. Unter Windows geht das leicht per:

Code: Alles auswählen

sndPlaySound(PChar(LazarusResources.Find(aWaveFile).Value),snd_async or snd_memory);

Aber wie mache ich das unter Linux, wenn ich dort TProcess benutze?

Code: Alles auswählen

with TProcess.Create(nil) do
try
  CommandLine:='/usr/bin/paplay "'+aWaveFile+'"';
  Execute;
finally
  Free;
end;

[Eb]

Unter OpenSuse spiele ich wav-Dateien mit 'play' ab - das ist im Paket sox enthalten:

Code: Alles auswählen

procedure sound_abspielen(filename : string; faktor_lautstaerke : real);          
var  AProcess: TProcess;                                                          
  kommando : string;                                                              
begin                                                                             
  kommando :=  'play -q -v ' + floattostr(faktor_lautstaerke) + ' '  + filename  ;
 
  AProcess := TProcess.Create(nil)  ;                                             
  AProcess.CommandLine := kommando;                                             
  AProcess.Execute; 
 
end;

wobei faktor_lautstaerke zwischen 0 und 1 sein muss.

Ist nicht elegant, tut aber ...

Eb

[Scotty]

Das Abspielen ist nicht das Problem. Linux Anwender sollten in der Lage sein, ihren Audio-Server zu bedienen, und ich habe meinem Programm ein TEdit für die Commandline spendiert. Mein Problem ist, dass ich die Waves gern als Ressource einbinden würde. Auch das geht problemlos, aber ich habe keine Idee, wie ich die Ressource an einen TProcess übergeben kann. snPlaySound(.., snd_Memory) gibt es nicht unter Linux.

[Hitman]

Schau doch mal, ob eins der Programme vlt. von stdin abspielen kann, dann könntest du den Inhalt der Resource dort hin pipen.

[theo]

Schau doch mal, ob eins der Programme vlt. von stdin abspielen kann, dann könntest du den Inhalt der Resource dort hin pipen.

Das wäre sicher der Königsweg, aber weil doch ein bisschen kompliziert reicht es vllt. auch die Ressource erstmal in ein Temp-File zu speichern und bei Programmende alles zu löschen (falls man nicht auf das Ende des externen Prozesses warten kann).

[marcov]

Es sollte doch auch Bibliotheken geben die Wave Audio abspielen können? Seit .mp3 meistens nach .wav dekomprimiert würde es mich wundern wenn nicht jene MP3player Lib auch Wave spielen konnte.

[Scotty]

Sowohl Alsa als auch Pulseaudio können gepipt werden (paplay <Chat.wav). Im Terminal ist das kein Problem, aber wenn ich dem TProcess die gleiche Commandline gebe, kommt nichts mehr raus, egal, ob mit oder ohne Options:=[poUsePipes] ("paplay Chat.wav" funktioniert). Das gleiche passiert, wenn ich "cat Chat.wav ¦ paplay" eingebe: im Terminal alles einwandfrei, per Commandline kein Erfolg.
Wenn das ginge, dann sollte doch auch der String selbst (LazarusResources.Find('Chat').Value -> "RIFF...") umgeleitet werden können, oder?
PS: Bibliotheken mag ich nicht benutzen, weil Anwender dann darauf angewiesen sind, irgendwas zu installieren. Und das nur für ein Gimmick!

[Hitman]

Schonmal Audorra angeguckt? Das braucht zwar dann sicher auch externe libs, aber soweit ich das sehe, ist es dabei immernoch variabel (man ist nicht auf eine bestimmte angewiesen). Und als User ist es mir ehrlich gesagt lieber, es heisst "du brauchst FMOD" als "such dir ein commandline tool, find dessen Parameter raus und gib sie hier manuell an". FMOD, BASS und Co hab ich schneller installiert als ich rausgefunden habe, wie ich per commandline Sound abspiele.