Join wav files

[KMagic]

I got a simple program using UOS like this:

Code: [Select]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,UOS;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

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('test.wav');
  Player1.EndProc := @Close;
  Player1.Play;

end;

end.

Why does this error occur after I click button1?

[KMagic]

Error:

[Fred vS]

Why does this error occur after I click button1?

Hum, you dont have load any libraries...

Please, take a look at "Simple Player" or "Multi Player example".

Many thanks,

[Fred vS]

@ KMagic.

Ok, we will do it from the beginning...

1) Go on site :
https://github.com/fredvs/uos/

Click on button Download ZIP (on middle-right side).
When you get the file, unzip It.

2) Go on /uos/examples and choose "SimplePlayer.lpi", compile it and run it...

3) After that , look inside the code to understand how it works...

Hope it helps...

[KMagic]

I will take a look at them. Thank you very much.

[KMagic]

I have read the example and written a simple program which can play a wav sound. Why is there an error?

https://www.mediafire.com/?f7kkt99m2qy7eu4

[Fred vS]

@ KMagic

Code: [Select]

unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,UOS;

type

  { TForm1 }

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
   Init: TUOS_Init;

implementation

{$R *.lfm}

{ TForm1 }


procedure TForm1.Button1Click(Sender: TObject);
var player1:TUOS_player;
begin
   Player1 := TUOS_Player.Create(True, self);
   Player1.AddIntoDevOut;
  Player1.AddFromFile('test.wav');
   Player1.Play;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    application.ProcessMessages;
    Init := TUOS_Init.Create;
  Init.PA_FileName :=Application.location+'lib\LibPortaudio-32.dll' ;
   Init.SF_FileName := Application.location+'lib\LibSndFile-32.dll';
  Init.MP_FileName := Application.location+'lib\LibMpg123-32.dll';
    Init.Flag := LoadAll;
   Init.LoadLib;
end;

end.

[KMagic]

why nothing happens when I click button1?

[Fred vS]

why nothing happens when I click button1?

Here it is working...

Have you copy test.wav in same directory of your program ?

Have you try the examples in uos/example, are them all working ?

[KMagic]

Yes. Test.wav is in same directory of my program.
  The example of UOS works very well. I don't know why nothing happens when I click button1 in my program.

[KMagic]

This is where I put my wav file.

[Fred vS]

Hello KMagic

In your code you do :

Code: [Select]

Player1.AddFromFile('test.wav');
So, because you do not give any information where is test.wav, the program (project1.exe) will try to find test.wav in his own directory (G:\Khanh\Study\Pascal\exercise\simple) .

But in the picture you give, i do not see test.wav in G:\Khanh\Study\Pascal\exercise\simple.

You have to copy G:\KHanh\Study\Pascal\exercise\simple\sound\test.wav into G:\KHanh\Study\Pascal\exercise\simple.

Or use that :

Code: [Select]

Player1.AddFromFile('G:\Khanh\Study\Pascal\exercise\simple\sound\test.wav');

[KMagic]

It works now. Thank you very much.

[Fred vS]

It works now. Thank you very much.

Haaa, im very happy 

PS : Do not forget to call unLoadLib() when you close your application, otherwise you will have a memory leak (memory not  freed).
 

Code: [Select]

procedure TForm1.FormDestroy(Sender: TObject);
begin
   init.UnloadLib(); /// for release dynamic loaded libraries
   init.free;  /// for freed the init class created;
end;
   
PS2 : The same for Player1, but it will be easier to free it if you do not declare it inside the procedure but in main program, like that :

Code: [Select]

...
var
  Form1: TForm1;
   Init: TUOS_Init;
   player1:TUOS_player; /// delcare it there
...
implementation
...
procedure TForm1.FormDestroy(Sender: TObject);
begin
   player1.free;  /// free player1
   init.UnloadLib(); /// for release dynamic loaded libraries
   init.free;  /// for freed the init class created;
end;


[KMagic]

1) Basically, my simple program works well. However, when I come to write an multiple wav files player using sleep() as I said in the first post. When the first file is played, the second file is played immediately after that. Let's me show you what I mean:

Code: [Select]

procedure ...
begin

procedure TForm1.Button1Click(Sender: TObject);
var
   i:longint;

begin
  sleep(400);

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

end;

 
note: I have the files named from a.mp3 to z.mp3.
 When player1.play is executed, then program immediately go to sleep(400). How can I make the program pause until player1 is played completely. I think we should put another sleep(x) after player1.play (x:duration of player1). Therefore, the problem is how to get x?
2) Why do I encounter this problem when I edit my program as you just said. This window appear after I close my app (nothing happens before I close my app)