Join wav files

[Fred vS]

Hello KMagic.

The solution is here :
http://forum.lazarus.freepascal.org/index.php/topic,23479.msg140408.html#msg140408

Thanks

[skalogryz]

The solution is here :
http://forum.lazarus.freepascal.org/index.php/topic,23479.msg140408.html#msg140408

Back to "mute buffer" approach. Won't the following code work?

Code: [Select]

   Player1 := TUOS_Player.Create(True, self);
   Player1.AddIntoDevOut;
   for i:=1 to length(edit1.text) do begin
     Player1.AddFromFile(application.Location+'\morse audio\'+edit1.text[i]+'_MP3.mp3');
     Player1.AddFromFile(application.Location+'\morse audio\mute2seconds.wav'');
   end;
   Player1.Play;
end;
where mute2seconds.wav is just a file with 2 seconds of silence?

[KMagic]

The solution is here :
http://forum.lazarus.freepascal.org/index.php/topic,23479.msg140408.html#msg140408

Back to "mute buffer" approach. Won't the following code work?

Code: [Select]

   Player1 := TUOS_Player.Create(True, self);
   Player1.AddIntoDevOut;
   for i:=1 to length(edit1.text) do begin
     Player1.AddFromFile(application.Location+'\morse audio\'+edit1.text[i]+'_MP3.mp3');
     Player1.AddFromFile(application.Location+'\morse audio\mute2seconds.wav'');
   end;
   Player1.Play;
end;
where mute2seconds.wav is just a file with 2 seconds of silence?

This code does not seem to work.I don't know why.

[KMagic]

is there any way to get the duration of a mp3 file?

[KMagic]

I found this line in the simple player example of UOS. Is it for the duration of the mp3?

[Fred vS]

Code: [Select]

Player1 := TUOS_Player.Create(True, self);
   Player1.AddIntoDevOut;
   for i:=1 to length(edit1.text) do begin
     Player1.AddFromFile(application.Location+'\morse audio\'+edit1.text[i]+'_MP3.mp3');
     Player1.AddFromFile(application.Location+'\morse audio\mute2seconds.wav'');
   end;
   Player1.Play;

This code does not seem to work.I don't know why.

Of course, it could not work.
Player1.AddFromFile => add a audio file into the input of the player.

So, with

Code: [Select]

for i:=1 to length(edit1.text) do begin
     Player1.AddFromFile(application.Location+'\morse audio\'+edit1.text[i]+'_MP3.mp3');
     Player1.AddFromFile(application.Location+'\morse audio\mute2seconds.wav'');
   end;
You will add many input into the same player... If it works, it will play all that files together...

You MUST use the "EndProc" feature of uos => EndProc is the procedure launched when the thread arrived on end.

[KMagic]

I don't really get it. Where should I put it? Should I put player1.endProc:=@closeplayer1?

[Fred vS]

Hello KMagic.

The solution is here :
http://forum.lazarus.freepascal.org/index.php/topic,23479.msg140408.html#msg140408

Thanks

=>

Code: [Select]

..

procedure TForm1.Button1Click(Sender: TObject);
var
Player1 :  TUOS_Player ;
begin
  Player1 := TUOS_Player.Create(True, self);
  Player1.AddIntoDevOut;   //// add a Output with default parameters
  Player1.AddFromFile('MyWav.wav');
  Player1.EndProc := @ClosePlayer1;
  Player1.Play;
 end;     

procedure TForm1.ClosePlayer1;
var
Player2 :  TUOS_Player ;
begin
sleep(2000);
  Player2 := TUOS_Player.Create(True, self);
  Player2.AddIntoDevOut;   //// add a Output with default parameters
  Player2.AddFromFile('MyWav2.wav');
  Player2.EndProc := @ClosePlayer2;
  Player2.Play;
 end;     

procedure TForm1.ClosePlayer2;
var
Player3 :  TUOS_Player ;
begin
sleep(2000);
  Player3 := TUOS_Player.Create(True, self);
  Player3.AddIntoDevOut;   //// add a Output with default parameters
  Player3.AddFromFile('MyWav2.wav');
  Player3.EndProc := @ClosePlayer3;
  Player3.Play;
 end;     

etc...
Please, read carefully that code...
It will , when you click on the button, create a new player, assign a Input (here a audio-file), assign a output (here out device of your sound card) and, the important thing:
assign a procedure to execute when the thread (the player) has terminated.
When all  that is done it will play the player (player1.play).

That end-procedure (EndProc), closeplayer1, will first, wait 2 seconds, then , like for player1, also create a new player2, assign in-output and assign also a EndProc (closeplayer2),
When all that is done it  will play the player2 (player2.play).

That end-procedure (EndProc), closeplayer2, will first, wait 2 seconds, then , like for player2, also create a new player3, assign in-output and assign also a EndProc (closeplayer3),
When all that is done it  will play the player3(player3.play).

That end-procedure (EndProc), closeplayer3, will first, wait 2 seconds, then , like for player3, also create a new player4, assign in-output and assign also a EndProc (closeplayer4),
When all that is done it  will play the player4 (player4.play).

.... => how many times you have song to play...


When you get it, feel free to invent a loop procedure to do that...

[KMagic]

I understood what you mean.
Why is there '@' in this line Player1.EndProc := @ClosePlayer1;? I haven't seen this before.

[Fred vS]

I understood what you mean.
Why is there '@' in this line Player1.EndProc := @ClosePlayer1;? I haven't seen this before.

@ is  an "address of" operator. It means "point to procedure ClosePlayer1".

See here some "windy" discussion about that :

http://forum.lazarus.freepascal.org/index.php/topic,18928.0.html?PHPSESSID=e01a2bcbfd427d57004841e50cb6079d

[skalogryz]

an awesome example of doing the same task without external files.
http://www.leapsecond.com/tools/morsewav.c
in C though