[SOLVED] Playing two sounds at the same time

[gof6yogy]

Hello
I am trying to play two sounds (a background theme and a jumping sound) at the same time; meaning that the background theme should no be interupted by the jumping sound.
To play the .wav files I am currently using the unit MMSystem and the command sndPlaySound();
If anyone knows a solution, that would be great!
Thanks for any help in advance.
Greetings
gof6yogy
P.S. I have tried it a several times, but did not quite get it... How to set your own topic as [SOLVED], when it is solved?

[molly]

Hello
I am trying to play two sounds (a background theme and a jumping sound) at the same time; meaning that the background theme should no be interupted by the jumping sound.
To play the .wav files I am currently using the unit MMSystem and the command sndPlaySound();
If anyone knows a solution, that would be great!

Unfortunately playsound does not mix sounds for you. There is a more complex api required for that.

You could use one of the audio libraries located here http://wiki.freepascal.org/Audio_libraries or read up on multimedia programming with pascal http://wiki.freepascal.org/Multimedia_Programming or use a special component suite here http://wiki.freepascal.org/ACS
-

P.S. I have tried it a several times, but did not quite get it... How to set your own topic as [SOLVED], when it is solved?

Login the forum, locate you thread, edit your _first_ post and prefix the topic with [solved] (note not always possible if your topic was too lengthy)

[Jurassic Pork]

hello,

with uos ( see here), it seems that you can play several sounds at the same time (in a demo project, if i click on the button to play a music file twice, i hear the music with an echo effect  )   )

[JD]

hello,

with uos ( see here), it seems that you can play several sounds at the same time (in a demo project, if i click on the button to play a music file twice, i hear the music with an echo effect  )   )

So you use UOS too? So do I?

JD

[Jurassic Pork]

i use it only for test   

[gof6yogy]

@molly: Thanks for the quick response! I looked up, but as I mostly get a bunch of files and no idea, where to put them, I followed Jurassic Pork's idea. Thanks for your help though!

@Jurassic Pork: Thanks for the quick response as well! As I now wanted to test it out with the examples from the other post you related to, I get a error message as

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

1. res := uos_LoadLib(Pchar(PA_FileName), Pchar(SF_FileName), Pchar(MPG_FileName), nil) ;

is called with 4 parameters instead of 5 (according to the error message):

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

1. uos_flat.pas(1165,10) Hint: Found declaration: uos_loadlib(PChar,PChar,PChar,PChar,PChar):LongInt;

Has anything changed or am I to bad even at copy and paste 
And I do not quite understand the "mechanic" in playing a sound. Where sndPlaySound() just starts to play, uos seems to need a lot more preparation:

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

1. PlayerIndex1 := 0;
2.   uos_CreatePlayer(PlayerIndex1); //// Create the player
3.   In1Index := uos_AddFromFile(PlayerIndex1,(pchar(pathEdit.FileName)));
4.     uos_AddIntoDevOut(PlayerIndex1, -1, -1, uos_InputGetSampleRate(PlayerIndex1, In1Index), -1, -1, -1);
5.     // play File
6.     uos_Play(PlayerIndex1);

So if I want to play file xyz.wav what do I have to do? Nothing more than putting in xyz.wav for pathedit.FileName?
Thanks to anyone helping again
Greetings
gof6yogy

[Jurassic Pork]

hello,
sorry but fredvs has added one parameter to the uos_LoadLib function of his library (for aac) since my example.
Now with the new version of uos you can try :

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

1. // function uos_loadlib(PortAudioFileName, SndFileFileName, Mpg123FileName, Mp4ffFileName,FaadFileName: PChar) : LongInt;
2.          ////// load libraries... if libraryfilename = nil =>  do not load it...  You may load what and when you want...  
3.  res := uos_LoadLib(Pchar(PA_FileName), Pchar(SF_FileName), Pchar(MPG_FileName), nil,nil) ;  

Friendly, J.P

[Jurassic Pork]

Under windows , you can use mci commands to play sounds and good news  , you can play two sounds at the same time.

Example :

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

1. // uses Windows,MMSystem;
2. procedure TForm1.Play2SoundsClick(Sender: TObject);
3. begin
4. // Close the sounds if already used
5.      mciSendString(PChar('close sound1'),nil,0,0);
6.      mciSendString(PChar('close sound2'),nil,0,0);        
7. // Set Audio files
8.     mciSendString(PChar(
9.     'open "' + utf8tosys('f:\temp\sounds\dog.wav') + '" type waveaudio alias sound1')
10.    , nil, 0,0);
11.     mciSendString(PChar(
12.     'open "' + utf8tosys('f:\temp\sounds\cat.wav') + '" type waveaudio alias sound2')
13.    , nil, 0,0);
14. //play   sounds
15.    mciSendString(PChar('play sound1'), nil, 0, 0);
16.    mciSendString(PChar('play sound2'), nil, 0, 0);
17. end;      

Friendly, J.P

[gof6yogy]

sorry but fredvs has added one parameter to the uos_LoadLib function of his library (for aac) since my example.

Ah ok

Under windows , you can use mci commands to play sounds and good news  , you can play two sounds at the same time.

That seems to be way more promissing for my usage I have already tested it and it works all quite fine! Now one last question: As the background theme is supposed to play in a loop I wanted to ask if you are able to change the command

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

1. mciSendString(PChar('play sound1'), nil, 0, 0);

in a way that allows me to let the theme play in a loop without using an extra timer as my current idea would be.
Thanks for your patience with me
Greetings
gof6yogy

[balazsszekely]

At the following link you can find all multimedia command strings: https://msdn.microsoft.com/en-us/library/windows/desktop/dd743572%28v=vs.85%29.aspx
If you click to "Play": https://msdn.microsoft.com/en-us/library/windows/desktop/dd743667%28v=vs.85%29.aspx you will see the available flags.
So the answer is play command with repeat flag.

[Fred vS]

with uos ( see here), it seems that you can play several sounds at the same time (in a demo project, if i click on the button to play a music file twice, i hear the music with an echo effect  )   )

Hello.

Could you explain what you hear ?
Do you mean that if you play 2 x the same song with this code you get a delay?

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

1. uos_Play(PlayerIndex1);
2. uos_Play(PlayerIndex2);

With what os ? Have you try with the last release ?
Here I do not get delay nor with Windows, nor Linux nor FreeBSD nor OSX..

sorry but fredvs has added one parameter to the uos_LoadLib function of his library (for aac) since my example.

Yes, thanks to Frank, uos can deal too now with *.m4a and cd audio files.

Fre;D

[gof6yogy]

@Get Mem: Ah ok! Thanks for the links and the hints to that topic! It all works as it is supposed to do and I learned a lot about playing music in lazarus!
Thanks for all of your help and patience!
Greetings
geisterfurz007

[Jurassic Pork]

hello Fred vS,

Do you mean that if you play 2 x the same song with this code you get a delay?
Code: Pascal  [Select]
uos_Play(PlayerIndex1);
uos_Play(PlayerIndex2);

With what os ? Have you try with the last release ?
Here I do not get delay nor with Windows, nor Linux nor FreeBSD nor OSX..

not with a different PlayerIndex, with the same PlayerIndex :
i have a button with this code :

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

1. procedure TForm1.Button1Click(Sender: TObject);
2. var  PlayerIndex1: cardinal;
3.      In1Index : integer;
4. begin
5.  if uos_lib_OK then
6.   begin
7.   PlayerIndex1 := 0;
8.   uos_CreatePlayer(PlayerIndex1); //// Create the player
9.  
10.   In1Index := uos_AddFromFile(PlayerIndex1,(pchar(pathEdit.FileName)));
11.  
12.     uos_AddIntoDevOut(PlayerIndex1, -1, -1, uos_InputGetSampleRate(PlayerIndex1, In1Index), -1, -1, -1);
13.     // play File
14.     uos_Play(PlayerIndex1);
15.    end;
16. end;

I click on this button , twice with a short delay, and i hear the music file with echo (play twice with delay)
I have the last release and i am under windows 7  Lazarus 1.6 32 bits.

Friendly, J.P

[Fred vS]

Hello JP.
Not sure I understood ok.
Do you want to play twice the same file?

Why dont you use 2 players with the same file ?

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

1.     procedure TForm1.Button1Click(Sender: TObject);
2.     var  PlayerIndex1: cardinal;
3.          In1Index : integer;
4.         PlayerIndex2 cardinal;
5.          In2Index : integer;
6.     begin
7.      if uos_lib_OK then
8.       begin
9.       PlayerIndex1 := 0;
10.       PlayerIndex2 := 1;
11.    
12.      uos_CreatePlayer(PlayerIndex1); //// Create the player1
13.      uos_CreatePlayer(PlayerIndex2); //// Create the player2
14.      
15.       In1Index := uos_AddFromFile(PlayerIndex1,(pchar(pathEdit.FileName)));
16.       In2Index := uos_AddFromFile(PlayerIndex2,(pchar(pathEdit.FileName)));
17.      
18.       uos_AddIntoDevOut(PlayerIndex1, -1, -1, uos_InputGetSampleRate(PlayerIndex1, In1Index), -1, -1, -1);
19.       uos_AddIntoDevOut(PlayerIndex2 -1, -1, uos_InputGetSampleRate(PlayerIndex2, In2Index), -1, -1, -1);
20.        
21.  
22.  // play File
23.        uos_Play(PlayerIndex1);
24.        uos_Play(PlayerIndex2);
25.    
26.      end;
27.     end;

Or, maybe, you want say that if you click 2x on the button, the song play twice with echo ?

Thanks.

Fre;D

[Jurassic Pork]

hello Fred Vs,
I don't want to play the same file twice , but i have seen that there is no lock if you play a file, if you launch the same file with the same player index, you have two player running.
It isn't important 
forget this