[Lazarus] [Linux Ubuntu] Jouer du son

[microb]

bonjour,
Sans installer de composants:

Dans uses ajoutez process

Code :

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]

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]

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]

Le pulseaudio client est toujours installé sur Linux ?

[raikkonen46]

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

[microb]

Bonjour,
Je pense qu'il te manque FileUtil dans le use

[raikkonen46]

Merci bien déjà il arrive à compiler mais maintenant c'est pour lire le son que ça va pas je l'ai mis dans le même dossier que mon projet pourtant
ça me fait le gros message d'erreur (croix rouge)
Par contre je suis pas sous linux ça peut etre à cause de ça ?
merci

[circular17]

C'est possible que ça marche aussi sous Windows.

As-tu téléchargé PulseAudio ?

http://pulseaudio.org/