United OpenLib of Sound (UOS)

[Fred vS]

@ Dido : i need help of Professor Blaazen. 

It is a ratio with sample rate ( 44100 htz/second ) and the number of samples.

I think ( but im absolutely not sure ) time in second = Number of samples  / (sample rate div channels).

[Blaazen]

Number of channels does not affect the time. It affects only the file size.

time in second = Number of samples  / sample rate.

[Fred vS]

@ Blaazen : many thanks.

@ Dibo : maybe your first function for UOS ?

function ConvertSampletoTime (lengthinsample : integer) : ttime;

[lainz]

Thanks for this, keep going on, finally a decent lib for sound

[Dibo]

Thanks Blaazen!

Here is some extension for UOS:

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

1. function InputLengthSeconds(InputIndex: integer): Int64;
2. function InputLengthTime(InputIndex: integer): TTime;
3.  
4. implementation
5.  
6. function TUOS_Player.InputLengthSeconds(InputIndex: integer): Int64;
7. begin
8.   Result := 0;
9.   if (InputIndex > -1) and (InputIndex < length(StreamIn)) then
10.     Result := StreamIn[InputIndex].Data.Lengthst div StreamIn[InputIndex].Data.SampleRate;
11. end;
12.  
13. function TUOS_Player.InputLengthTime(InputIndex: integer): TTime;
14. var
15.   tmp: Int64;
16.   h, m, s: Integer;
17. begin
18.   Result := 0;
19.   if (InputIndex > -1) and (InputIndex < length(StreamIn)) then
20.   begin
21.     tmp    := InputLengthSeconds(InputIndex);
22.     h      := tmp div 3600;
23.     m      := tmp div 60 - h * 60;
24.     s      := tmp - (h * 3600 + m * 60) ;
25.     Result := EncodeTime(h,m,s,0);
26.   end;
27. end;
28.  

[Fred vS]

@ Dibo : Yeeeep, many , many, many thanks from all the audio-lazarus lovers.

I gonna add your code asap (im in a cyber-cafe without my laptop and i promise not to code for one week  ).

Many thanks, finally uos gonna live. 

[Fred vS]

@ Dibo : i have seen the code of the open project "Cactus", a player developed in Lazarus.

Nice code but...

That project do not use any sound libraries or web component, it use... mplayer.exe (  ).

See here part of cactus code how they do internet-streaming :

Code: [Select]

FMplayerPath := FMplayerPath + 'mplayer.exe';
      MPlayerProcess.CommandLine:=FMplayerPath + ' STREAMING_MODE';
      MPlayerProcess.Options:= MPlayerProcess.Options + [poUsePipes, poDefaultErrorMode, poNoConsole];
      MPlayerProcess.Execute;
So, till now no "real" open source audio player exists in Lazarus or FPC or Delphi...

[varianus]

Have you seen my application Ovoplayer ?

It can use various audio engines as Mplayer, VLC, Bass, Xine, Gstreamer or DirectShow.

I've also started a rudimentary interface to portaudio + mpg123 + sndfile "stealing" the import units ( and some code) from earlier version of UOS...

[Fred vS]

Have you seen my application Ovoplayer ?

Whaouw, superb... 

"stealing" the import units ( and some code) from earlier version of UOS...

You do not steal anything, UOS is yours 

EDIT: And if you use the new release, you directly have Ovoplayer working for OSX with his own audio engine...

[Fred vS]

@ Dibo : i have got my laptop (  ).

I think it is a good idea to add some more Dibo's procedure :

function TUOS_Player.InputPosition(InputIndex: integer): longint;

function TUOS_Player.InputPositionSeconds(InputIndex: integer): Int64;  // Done

function TUOS_Player.InputPositionTime(InputIndex: integer): TTime;  //Done

and also for seek :

procedure TUOS_Player.SeekSeconds(InputIndex: integer; pos:int64);  //// change position in seconds
begin
  if (InputIndex > -1) and (InputIndex < length(StreamIn)) then
    StreamIn[InputIndex].Data.Poseek := pos *  StreamIn[InputIndex].Data.SampleRate ;
end; //Done

but for :

procedure TUOS_Player.SeekTime(InputIndex: integer; pos: TTime);  //// change position in time format // to do
begin
  if (InputIndex > -1) and (InputIndex < length(StreamIn)) then
    StreamIn[InputIndex].Data.Poseek := ?TimetoSample(pos)? //NOT Done;
end;

 

[Fred vS]

@ Dibo : Is there a reason that

function TUOS_Player.InputlengthSeconds(InputIndex: integer): Int64

has a integer result ?

Because SndFile and Mpg123 have a precision of ms (0.001 sec).

If you are ok, may i change your procedure with :

function TUOS_Player.InputLengthSeconds(InputIndex: integer): cfloat

Thanks

[Dibo]

No problem

[Fred vS]

Hello everybody.
 
Here the new release of UOS with Dibo's time procedures (see SimplePlayer example).
Also added  reference counting in PortAudio  ( many thanks to Max Karpushin ).

Download it here :
http://fredvs.github.io/uos/
UOS is in GitHub as well, everybody is welcome.
https://github.com/fredvs/uos/

PS : Indeed, GitHub is terrific 

[Dibo]

Do you know any multiplatform library for playing wmv (wma?) music format which could be supported by UOS?

[Fred vS]

Do you know any multiplatform library for playing wmv (wma?) music format which could be supported by UOS?

No and that lib is welcome in UOS. But im not sure it exists open-source ( you know Microsoft is not fan about open-source ).