Play MP3/WAV files in freepascal command line on RPI 2

[pascalbythree]

Does anybody have simple example code?

[Thaddy]

 want anything more complex than TProcess that calls omxplayer?

[Fred vS]

Hello.

uos does it. (https://github.com/fredvs/uos)

Take a look at /uos/examples/consoleplay.lpi.

The libraries for RPI are in /uos/examples/lib/Linux/arm_raspberrypi/.

Fre;D

[pascalbythree]

Thanks, But then only for the Raspberry PI 2 ? Anyone Seperate command line Code?

[Leledumbo]

Thanks, But then only for the Raspberry PI 2 ? Anyone Seperate command line Code?

Add dependency for ffplay, then use TProcess to tell it to play the files. You get bonus of a lot of audio formats out of the box.

[Fred vS]

Add dependency for ffplay, then use TProcess to tell it to play the files.

Code: Pascal  [Select][+][-]

1. procedure playsound ;
2. var
3.  AProcess : TProcess;
4. begin
5.   AProcess := TProcess.Create(nil);
6.   AProcess.FreeOnRelease;
7.   AProcess.Executable :=  '/path/of/sound_player' ; // path of sound-player (ffplay or omxplayer or other player)
8.   AProcess.Parameters.Add('/path/of/sound_file.mp3') ; // path of sound-to-play
9.   AProcess.Execute;
10. end;

Fre;D

[pascalbythree]

Anybody got more RPI example code? For FPC 3.0 to edit with nano on the command line? --> No lazarus

[Fred vS]

Anybody got more RPI example code? For FPC 3.0 to edit with nano on the command line? --> No lazarus

1) Run nano and paste this (with right path, of course):

Code: Pascal  [Select][+][-]

1. program playconsole;
2.  
3. {$mode objfpc}{$H+}
4.  
5. uses
6.    SysUtils, Classes, Process ;
7.  
8. procedure playsound ;
9. var
10.  AProcess : TProcess;
11. begin
12.   AProcess := TProcess.Create(nil);
13.   AProcess.FreeOnRelease;
14.   AProcess.Executable :=  '/path/of/sound_player' ; // path of sound-player (ffplay or omxplayer or other player)
15.   AProcess.Parameters.Add('/path/of/sound_file.mp3') ; // path of sound-to-play
16.   AProcess.Execute;
17. end;
18.  
19. begin
20.   playsound;
21. end.

2) Save it as playconsole.pas

3) In console, compile it with: fpc /path/of/playconsole.pas

4) in console, run it with: /path/of/playconsole

Fre;D

[pascalbythree]

Yes. I rather use procedures/functions then  a seperate Process.

To play a very small mp3 on the file system.

Anybody got more examples? Still dit find something to pick to continue with it.

to compile with for example
sudo fpc ./playsound.pas

[pascalbythree]

Do not get it to run on my Raspberry II

Anyone got more examples?

[Jurassic Pork]

hello,
success on my Raspberry pi 2 B with fpc 2.6.4 and this code :

Code: Pascal  [Select][+][-]

1. program playconsole;
2.  
3. {$mode objfpc}{$H+}
4.  
5. uses
6.    SysUtils, Classes, Process ;
7.  
8. procedure playsound ;
9. var
10.  AProcess : TProcess;
11. begin
12.   AProcess := TProcess.Create(nil);
13.   AProcess.FreeOnRelease;
14.   AProcess.Executable :=  '/usr/bin/omxplayer' ; // path of sound-player
15.   AProcess.Parameters.Add('-o');
16.   Aprocess.Parameters.Add('local') ; // local = headphone  hdmi = hdmi
17.   AProcess.Parameters.Add('/home/pi/example.mp3') ; // path of sound-to-play
18.   AProcess.Execute;
19. end;
20.  
21. begin
22.   playsound;
23. end.
24.  

Friendly, J.P

[pascalbythree]

Still buggy. Can not get rid of hanging processes yet.
Does anybody know where to download 'FFPlay4Laz_Console.exe'

[metis]

@pascalbythree

Does anybody know where to download 'FFPlay4Laz_Console.exe'

Me, the Author, see my Post from July 08, 2016:
http://forum.lazarus.freepascal.org/index.php/topic,26666.msg215455.html#msg215455

Note:
The current Version of 'FFPlay4Laz-ConsoleVersion ' is Windows-only, and AV-only, means
Audio-only-Files are not rendered yet (but it's projected to do).           

-> To get FFPlay "all-in-one", You might have a Look at this:
http://forum.lazarus.freepascal.org/index.php/topic,33105.0.html
Still very preliminary, but maybe, one Day, it's another Option.

[skalogryz]

How about trying openal example (wavopenal.pas) ?
from trunk

[Fred vS]

How about trying openal example (wavopenal.pas) ?
from trunk

Huh, I have try with some wav flles but get always :

"/home/fred/Téléchargements/waveopenal/test.wav" is not a core dump: File format not recognized

For example the test.wav is a common stereo 16 bit wav.

What kind of *.wav can be recognized by openal ?

And is openal.so library needed for only decoding a wav  file (no pure code only) ?

Thanks.

Fre;D