Sound in raspberry pi

[openscoreboard]

I cant play sound in rapberry pi using UOS. I have used lib than has raspbian distro (libmpg123.so.0.40.3, libsndfile.so.1.0.25, libportaudio.so.2.0.0), the compliation is ok but i have error"raised exception class External SIGSEGV" when execute

uos_Play(PlayerIndex1)

In linux (lubuntu) the code work fine...

Any idea?

[Jurassic Pork]

hello,
show us the whole source code and what kind of sound file do you want to play (mp3, wav ... ) ?
i don't know if someone has used uos on raspberry :

uos
Included in the package:
. Examples fpGUI, LCL and console.
. Binaries of libraries for Linux, Windows, Mac osX, FreeBSD.

Friendly, J.P

[openscoreboard]

The code loading library....

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

1.  
2. procedure Load_uos;
3. var
4.   res: integer;
5.   ordir, opath, PA_FileName, SF_FileName, MPG_FileName: string;
6.   begin
7.     ordir := application.Location;
8.  
9.  
10.  {$IFDEF linux}
11.     {$if defined(cpu64)}
12.     PA_FileName := ordir + 'uos_lib/Linux/64bit/LibPortaudio-64.so';
13.     SF_FileName := ordir + 'uos_lib/Linux/64bit/LibSndFile-64.so';
14.     MPG_FileName := ordir + 'uos_lib/Linux/64bit/LibMpg123-64.so';
15.     {$else}
16.     PA_FileName := ordir + 'uos_lib/Linux/rpi/libportaudio.so.2.0.0';
17.     SF_FileName := ordir + 'uos_lib/Linux/rpi/libsndfile.so.1.0.25';
18.     MPG_FileName := ordir + 'uos_lib/Linux/rpi/libmpg123.so.0.40.3';
19.   {$endif}
20. {$ENDIF}
21.  
22.  
23.     // Load the libraries
24.     // function uos_LoadLib(PortAudioFileName: Pchar; SndFileFileName: Pchar; Mpg123FileName: Pchar; SoundTouchFileName: Pchar) : integer;
25.  
26.    res := uos_LoadLib(Pchar(PA_FileName), Pchar(SF_FileName), Pchar(MPG_FileName), nil) ;
27.  
28.   //  writeln('Result of loading (if 0 => ok ) : ' + IntToStr(res));
29.  
30.    if res = 0 then uos_lib_OK := True else
31.      begin
32.      uos_lib_OK := False;
33.      ShowMessage('uos LoadLib Error');
34.      end;
35.      end;            
36.  

...and  button click and play sound

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

1.  if uos_lib_OK then
2.   begin
3.   PlayerIndex1 := 0;
4.   uos_CreatePlayer(PlayerIndex1); //// Create the player
5.  
6.   In1Index := uos_AddFromFile(PlayerIndex1,(pchar('sound/test.wav')));
7.  
8.     uos_AddIntoDevOut(PlayerIndex1, -1, -1, uos_InputGetSampleRate(PlayerIndex1, In1Index), -1, -1, -1);
9.     // play File
10.     uos_Play(PlayerIndex1);
11.    end;
12.  

Thanks...

[Jurassic Pork]

hello,
what is the value of In1Index ?
Try to put the full path for the sound file if variable = -1
The Load_uos procedure load 64 or 32 bits sound libraries ?

[openscoreboard]

Testing

Lubuntu: OK
In1Index=0 library=64bit (LibPortaudio-64.so, LibSndFile-64.so, LibMpg123-64.so)


Raspberry pi: ERROR
In1Index=0 library=rpi (libportaudio.so.2.0.0, libsndfile.so.1.0.25, libmpg123.so.0.40.3)

[Fred vS]

Hello.

Like Jurassic Pork said, try with full path, something like:

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

1. In1Index := uos_AddFromFile(PlayerIndex1,(pchar('/home/openscoreboard/sound/test.wav')));

Fre;D

[openscoreboard]

 

[Fred vS]

Have you try to play your test.wav with a other application in your pi ?

[EDIT] Have you try with a mp3 or ogg or flac file ?

[openscoreboard]

Testing....

Lubuntu

WAV , MP3 , OGG, FLAC OK



RPI

WAV OK, MP3 NOISE,  OGG NOISE, FLAC NOISE with aplay

WAV OK, MP3 OK, OGG OK, FLAC ok with VLCplayer

Thanks....

[Fred vS]

What is "aplay" ? A uos demo ?

Have you try with different configuration, example with 16 or 32 or float 32 sample format ?

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

1.  function AddIntoDevOut(Device: LongInt; Latency: CDouble;
2.       SampleRate: LongInt; Channels: LongInt; SampleFormat: LongInt ; FramesCount: LongInt ): LongInt;

     ////// Add a Output into Device Output
    //////////// Device ( -1 is default device )
    //////////// Latency  ( -1 is latency suggested ) )
    //////////// SampleRate : delault : -1 (44100)
    //////////// Channels : delault : -1 (2:stereo) (0: no channels, 1:mono, 2:stereo, ...)
    //////////// SampleFormat : default : -1 (1:Int16) (0: Float32, 1:Int32, 2:Int16)
    //////////// FramesCount : default : -1 (= 65536)
    //  result :  Output Index in array    -1 = error
    /// example : OutputIndex1 := AddIntoDevOut(-1,-1,-1,-1,0);

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

1.  function AddFromFile(Filename: Pchar; OutputIndex: LongInt;
2.       SampleFormat: LongInt ; FramesCount: LongInt): LongInt;

    /////// Add a input from audio file with custom parameters
    ////////// FileName : filename of audio file
    ////////// OutputIndex : Output index of used output// -1: all output, -2: no output, other LongInt refer to a existing OutputIndex  (if multi-output then OutName = name of each output separeted by ';')
    //////////// SampleFormat : default : -1 (1:Int16) (0: Float32, 1:Int32, 2:Int16)
    //////////// FramesCount : default : -1 (65536)
    //  result :   Input Index in array    -1 = error
    //////////// example : InputIndex1 := AddFromFile(edit5.Text,-1,0,-1);

FreD

[openscoreboard]

  My raspberry pi SOUND!!!...is a little poor but SOUND!!!

AddIntoDevOut    <---- SampleFormat :=0 (Float32)

AddFromFile <-----  SampleFormat:=0 (Float32)

Thanks!!!!!!


PD: aplay is a command for rpi include in ALSA

http://linux.die.net/man/1/aplay

[Fred vS]

My raspberry pi SOUND!!!..

Ha, I am very happy 

is a little poor but SOUND!!!

What do you mean with "poor" ?

PD: aplay is a command for rpi include in ALSA

Do you know that uos is autonomous., that it can work without ALSA or OSS or Pulse installed ?

PS: Would you be kind and give, in attachment (or in https://github.com/fredvs/uos/issues )
the compiled libraries that you use for your Raspberry pi (portaudio, sndfile and mpg123).

Many thanks.

Fre;D

[openscoreboard]

https://youtu.be/D7Ph_IJqpUo


Testing sound....with aplay and uos

[Fred vS]

https://youtu.be/D7Ph_IJqpUo

Thanks but... the video is private and I cannot see it 

Fre;D

[openscoreboard]

 
Sorry..now is public!