UOS with windows/delphi11.2

[lucarnet]

Hello Fred,
After successfully using UOS on Raspberry Pi5/Debian 12/Lazarus4.0, I need to port my project's client to Windows 11/Delphi 11.2 with UOS.
However, the UOS units seem to be Lazarus-specific, such as uos_flat, etc.
Are there any units available for Delphi? If not, can I easily fix the UOS units ?

Many thanks.

[lucarnet]

I saw on the forum that you have to use uoslib instead of uos, but I can't find where or how to recompile it with fpc, as I don't have lazarus installed on w11.

[lucarnet]

I'm progressing step by step. I found the uoslib git repository. Is it possible to describe in detail how to compile the sources for Windows 11/Delphi11.2 64bits?
Thanks.

[fredvs]

Hello Lucarnet.

There is no Delphi version of uos, sorry.

Hum, about uoslib, it is looong time that I did not update it, I must re-jump into it, but it is a few sad to use the library for Pascal source.

But if you know well Delphi, maybe it could be possible to adapt uos code for it.

For Windows 11, only fpc console, fpGUI, MSEgui and LCL/Lazarus are supported by uos.

[lucarnet]

Hello,
I understand that the UOSlib sources may not be up to date and may have bugs with Windows 11/Delphi 11.2 or even Android.
It's a real shame, because my speech recognition is fine with UOS on Debian 12. It contains several cross-platform units (home automation server on Debian/Lazarus, and Windows 11+Android clients with Delphi).
Do you advise me against attempting a cross-compilation on Debian 12 for Windows 11 (I've never done it)?
Or do you advise me, perhaps, not to use UOS for Windows 11 and perhaps Android?
It's a shame because your UOS is great.
I'm going to take some time to try to fix the UOS units for Delphi, but I'm not very optimistic; I'll make a decision based on the results. Sniff

[fredvs]

Not sure to understand, if you have a uos program/project done on Linux with Lazarus/LCL or fpGUI or MSEgui, all should be out-of-the-box if you compile the same code on Windows.
All the uos/examples/ can be compiled on Unix or Windows.
Android is a other story.

[lucarnet]

My problem is that under Windows 11/Delphi, I call the various UOS functions(uos_CreatePlayer,...) from the uos.pas, uos_flat, and other Lazarus-specific units.
So, I need either these units for Delphi, or the header files, if I use uoslib, from what I understand.
But maybe I'm wrong?

[fredvs]

No, you cannot call uos methods from Delphi (or you must adapt uos code).

You may indeed use uoslib for Delphi, like for Java or C programs but, like said, uoslib is no more maintained.
Did you try the demos and read the readme.txt of uoslib?

[fredvs]

Hello.

@perugina did a pull-request 8 years ago but but he closed it because it was not totally ok.

#18

5a410e7

Maybe you could take inspiration to make uos Delphi compatible.
The code of @perugina seems ok for Delphi-Windows compiler (but not usable for fpc Unix).

[lucarnet]

Hello,
I created "uoslib.dll" (win64/x86_64) from Debian 12/lazarus4.0.
When running under Windows 11/Delphi 11.2/W64bits , I'm having problems executing the function:
-uos_loadlib (in function uos_loadlibs in file "uoslib_h_delphi") =>access violation
load uoslib.dll=OK
Perhaps compilation directives ("windows" or "mswindows") in source "uos_flat.pas" ?
Any ideas ?
Thanks.

function uos_loadlibs(const uoslibfilename, portaudiofilename, sndfilefilename, mpg123filename, Mp4ffFileName, FaadFileName, opusFileName: PAnsiChar): boolean; var loadresult : Integer; begin .... ///// load the audio libraries loadresult:= uos_loadlib(portaudiofilename, sndfilefilename, nil, nil, nil, nil); ....

[lucarnet]

Hello,
The uoslib loading error has been fixed when running W11/Delphi 11.2/W64 (pansichar casting problem). I'll continue.

[lucarnet]

Hello,
To use UOS on my project on Windows 11, I'm missing the important functions in "uoslib.dll"::
uos_inputgetbuffer, UOS_GetInfoDevice, and various types.

How can I get them back? A copy/paste from the uos unit.pas from the Lazarus version with a uoslib project recompilation. Is this possible?
Thanks.

procedure oWave.UosLoopProcPlayer; var arrayofint16 : array of cint16; arrayofcfloat : array of cfloat; i : integer; vtexte:string; VPHRASETMP:string; begin try // Get the status of the player : -1 => error, 0 => has stopped, 1 => is running, 2 => is paused. if uos_GetStatus(VGUos_PlayerIndex)=1 then begin // ShowPosition; oWave_refreshForm; UosShowLevel; if FTVoskRecognizer=nil then message_afficher('FTVoskRecognizer=nil') else begin FBufRcFromUos :=uos_InputGetBuffer(VGUOS_PlayerIndex, VGUOS_InIndex); aBufLen :=Length(FBufRcFromUos); if abuflen>0 then begin Vfinal := FTVoskRecognizer.AcceptWaveform(PSmallInt(FBufRcFromUos),abuflen);//Ca marche !!! .... end;

[fredvs]

I fear that is not possible like it is.
To be usable for foreign application like C or Java, the methods exported must use the simple types of parameters: integer, float of char.

You will see that in uoslib.pas some methods are missing, mainly those that use arrays.
But of course it should be updated but, sorry, it is impossible for me to re-jump into uoslib.pas before next year.

Did you read my post #60 (comment) and did you try to compile the request of perugina with the Delphi compiler?

Imho, if you want to use uos for Delphi, it would be a much better way.

[lucarnet]

Hello,
Despite everything, I tried to create the missing functions. Indeed, I have an access violation when calling "uos_inputgetbuffer:TDarFloat" in my LoopPlayer function. I'm so close to the goal, do you have any ideas on how to achieve this and some time to dedicate?
I would really appreciate it.

unit uoslib_h_delphi; interface uos_inputgetbuffer: function (PlayerIndex: cint32; InputIndex: cint32):TDArFloat;cdecl;

procedure oWaveUos.UosLoopProcPlayer; var aBufLen: integer; FBufRcFromUos: TDArFloat; // Mon buffer Vfinal:integer;//cardinal; Vsingle:cfloat;//single; vind:integer; arrayofint16 : array of cint16; arrayofcfloat : array of cfloat; i : integer; vtexte:string; VPHRASETMP:string; begin try //On verifie UOS non stoppe (car thread uos ??? // Get the status of the player : -1 => error, 0 => has stopped, 1 => is running, 2 => is paused. if uos_GetStatus(VGUos_PlayerIndex)=1 then begin // ShowPosition; oWaveUos_refreshForm; UosShowLevel; FBufRcFromUos :=TDArFloat(uos_InputGetBuffer(VGUOS_PlayerIndex, VGUOS_InIndex)); aBufLen :=Length(FBufRcFromUos); if abuflen>0 then begin if assigned(FTProcUosLoopPlayer) then begin //if FTProcUosLoopPlayer(PSmallInt(FBufRcFromUos),abuflen) if FTProcUosLoopPlayer(TSmallIntDynArray(FBufRcFromUos),abuflen) then incbuffer:=0;// Reinit debut de silence end; end; sleep(5); //Application.Processmessages; end; except on E:Exception do //message_afficher('LoopProcPlayer1:'+E.message); raise //LogFile_Ecrire_PrefEXC(nil,'LoopProcPlayer1:'+E.message); end; end;

[lucarnet]

To complete.
Thanks a lot.

unit uoslib_h_delphi;
/// This is a uoaslib_h variant for Delphi >= 2009
/// adapted to latest version of uos (2180729)
/// - PAnsiChar instead of PChar (to match single byte strings of uos)
/// - stubs replacements for dynlibs and ctypes
{This is the Dynamic loading version of uos library wrapper.
Load uos library and friends (PortAudio, SndFile, Mpg123, SoundTouch)
with uos_loadlibs() and release it with uos_unloadlibs().
With reference counter too...
Fred van Stappen / fiens@hotmail.com
}
interface
//{$MODE objfpc}
{$IFDEF MSWINDOWS}
uses
Windows;
const
LOAD_LIBRARY_SEARCH_DEFAULT_DIRS = 4096;
LOAD_LIBRARY_SEARCH_DLL_LOAD_DIR = 256;
type
TProc = procedure of object ;
cint16 = smallint;
cint32 = LongInt;
cdouble = Double;
cfloat = Single;
tlibhandle = THandle;
const nilhandle : tlibhandle = 0;
//Issue de uos.pas
type
TDArFloat = array of cfloat;
TDArShort = array of cInt16;
TDArLong = array of cInt32;
TDArPARFloat = array of TDArFloat;
TDArIARFloat = array of TDArPARFloat;
PDArFloat = ^TDArFloat;
PDArShort = ^TDArShort;
PDArLong = ^TDArLong;
type
DynLibs = class
public
class function loadlibrary(aDllName : PAnsiChar): tlibhandle;
class procedure UnloadLibrary(aLibHandle : tlibhandle);
end;
...
var
uos_inputaddfilter: function(playerindex: longint; inputindex: longint; lowfrequency: longint;
highfrequency: longint; gain: cfloat; typefilter: longint;
alsobuf: boolean; loopproc: tproc): longint; cdecl;
uos_inputgetbuffer: function (PlayerIndex: cint32; InputIndex: cint32):TDArFloat;cdecl;
uos_inputsetfilter: procedure(playerindex: longint; inputindex: longint; filterindex: longint;
lowfrequency: longint; highfrequency: longint; gain: cfloat;
typefilter: longint; alsobuf: boolean; enable: boolean; loopproc: tproc); cdecl;
...
libhandle: tlibhandle = 0; // this will hold our handle for the uoslib
referencecounter: longint = 0; // reference counter
function uos_isloaded: boolean; inline;
function uos_loadlibs(const uoslibfilename, portaudiofilename, sndfilefilename, mpg123filename, Mp4ffFileName, FaadFileName, OpusFileName: PAnsiChar): boolean;
// load the all the libraries (if filename = '' => do not load that library)
procedure uos_unloadlibs();
implementation
...
function uos_isloaded: boolean;
begin
result := (libhandle <> 0);
end;
function uos_loadlibs(const uoslibfilename, portaudiofilename, sndfilefilename, mpg123filename, Mp4ffFileName, FaadFileName, opusFileName: PAnsiChar): boolean;
var
loadresult : Integer;
begin
result := false;
if libhandle <> 0 then
begin
inc(referencecounter);
result := true;
end
else
begin
if length(uoslibfilename) = 0 then exit;
libhandle := dynlibs.loadlibrary(uoslibfilename); // obtain the handle we want
if libhandle <> nilhandle then
begin
try
...
@uos_inputaddfilter :=getprocaddress(libhandle, 'uos_inputaddfilter');
@uos_inputgetbuffer :=getprocaddress(libhandle, 'uos_inputgetbuffer');
@uos_outputaddfilter :=getprocaddress(libhandle, 'uos_outputaddfilter');
....
referencecounter := 1;
///// load the audio libraries
loadresult:= uos_loadlib(portaudiofilename, sndfilefilename, nil, nil, nil, nil);
result := uos_isloaded;
except
uos_unloadlibs();
end;
end;
end;
end;

[fredvs]

Hello.

Did you read my post: #60 (comment) ?