[Linux Ubuntu] Jouer du son

**microb** · 11/03/2010, 11h05

bonjour,
Sans installer de composants:

Dans uses ajoutez process

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
function PlaySoundLnx (fileName: String): Boolean;
 const
   playerCmd = 'paplay';  // pulseaudio client playerCmd = 'paplay';
 var
   AProcess: TProcess;
 begin
   AProcess := TProcess.Create(nil);
   with Aprocess do 
    begin
     CommandLine := FindDefaultExecutablePath(playerCmd) +
       ' ' + filename;
     try
       try
         Execute;
       except
         on E: Exception do
                 ShowMessage(E.ClassName +
                ' erreur  , avec  message : ' + E.Message);
       end;
       finally
       Free;
     end;
   end;
 end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySoundLnx('qopen.wav');
end;

**chris37** · 11/03/2010, 13h17

Merci mais ce post est une louche de code mal présenté et sans commentaires

Un petit effort de ferait pas de mal

Pensez au mec qui débarque ici

Ajouter cette fonction dans la fac ou dans les tutos serait plus approprié non ?

je sais ! je retourne dans ma caverne modérée à -10°c

**microb** · 12/03/2010, 22h15

Bonjour,çà ne fait jamais de mal.
Cela fait un certain temps que je cherche a faire du son avec lazarus sous ubuntu,sans composant.
Je post 10 lignes de code ,sans commentaire ,je suis d'accord.
Par compte j'ai du mal a accepter les tiens.
Moi je pense que ces 10 lignes pourront être utiles à certains.
Cordialement.

**circular17** · 30/03/2010, 13h07

Le pulseaudio client est toujours installé sur Linux ?

**raikkonen46** · 28/03/2011, 21h32

Entre ton programme et le notre en théorie on est juste censé changer 'qopen.wav' par notre son ? (format mp3 autorisé ou pas?)
J'ai comme message
Identifier not found "FindDefaultExecutablePath"
besoin d'aide svp merci d'avance