unit Unit1;
{$mode objfpc}{$H+}
interface
uses
{$IFDEF UNIX}
cthreads,
{$ENDIF}
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls,
uos_flat;
type
{ TForm1 }
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
public
end;
var
Form1: TForm1;
res, x, y, z: integer;
ordir, opath, SoundFilename, PA_FileName, PC_FileName, SF_FileName, MP_FileName: string;
PlayerIndex1, InputIndex1, OutputIndex1: integer;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
ordir := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)));
{$IFDEF Windows}
{$if defined(cpu64)}
PA_FileName := ordir + 'lib\Windows\64bit\LibPortaudio-64.dll';
SF_FileName := ordir + 'lib\Windows\64bit\LibSndFile-64.dll';
{$else}
PA_FileName := ordir + 'lib\Windows\32bit\LibPortaudio-32.dll';
SF_FileName := ordir + 'lib\Windows\32bit\LibSndFile-32.dll';
{$endif}
SoundFilename := ordir + 'sound\test.ogg';
{$ENDIF}
{$if defined(CPUAMD64) and defined(linux) }
SF_FileName := ordir + 'lib/Linux/64bit/LibSndFile-64.so';
PA_FileName := ordir + 'lib/Linux/64bit/LibPortaudio-64.so';
SoundFilename := ordir + 'sound/test.ogg';
{$ENDIF}
{$if defined(cpu86) and defined(linux)}
PA_FileName := ordir + 'lib/Linux/32bit/LibPortaudio-32.so';
SF_FileName := ordir + 'lib/Linux/32bit/LibSndFile-32.so';
SoundFilename := ordir + 'sound/test.ogg';
{$ENDIF}
{$if defined(linux) and defined(cpuaarch64)}
PA_FileName := ordir + 'lib/Linux/aarch64_raspberrypi/libportaudio_aarch64.so';
SF_FileName := ordir + 'lib/Linux/aarch64_raspberrypi/libsndfile_aarch64.so';
SoundFilename := ordir + 'sound/test.ogg';
{$ENDIF}
{$if defined(linux) and defined(cpuarm)}
PA_FileName := ordir + 'lib/Linux/arm_raspberrypi/libportaudio-arm.so';
SF_FileName := ordir + ordir + 'lib/Linux/arm_raspberrypi/libsndfile-arm.so';
SoundFilename := ordir + 'sound/test.ogg';
{$ENDIF}
{$IFDEF freebsd}
{$if defined(cpu64)}
PA_FileName := ordir + 'lib/FreeBSD/64bit/libportaudio-64.so';
SF_FileName := ordir + 'lib/FreeBSD/64bit/libsndfile-64.so';
{$else}
PA_FileName := ordir + 'lib/FreeBSD/32bit/libportaudio-32.so';
SF_FileName := ordir + 'lib/FreeBSD/32bit/libsndfile-32.so';
{$endif}
SoundFilename := ordir + 'sound/test.ogg';
{$ENDIF}
{$IFDEF Darwin}
{$IFDEF CPU32}
opath := ordir;
opath := copy(opath, 1, Pos('/UOS', opath) - 1);
PA_FileName := opath + '/lib/Mac/32bit/LibPortaudio-32.dylib';
SF_FileName := opath + '/lib/Mac/32bit/LibSndFile-32.dylib';
SoundFilename := ordir + '/sound/test.ogg';
{$ENDIF}
{$IFDEF CPU64}
opath := ordir;
opath := copy(opath, 1, Pos('/UOS', opath) - 1);
PA_FileName := opath + '/lib/Mac/64bit/LibPortaudio-64.dylib';
SF_FileName := opath + '/lib/Mac/64bit/LibSndFile-64.dylib';
SoundFilename := ordir + '/sound/test.ogg';
{$ENDIF}
{$ENDIF}
// Load the libraries
// function uos_loadlib(PortAudioFileName, SndFileFileName, Mpg123FileName, Mp4ffFileName, FaadFileName, opusfilefilename: PChar) : LongInt;
res := uos_LoadLib(PChar(PA_FileName), PChar(SF_FileName), nil, nil, nil, nil);
writeln;
if res = 0 then
writeln('Libraries are loaded.')
else
writeln('Libraries did not load.');
if res = 0 then
begin
writeln();
// writeln('Libraries version: '+ uos_GetInfoLibraries());
//// Create the player.
//// PlayerIndex : from 0 to what your computer can do !
//// If PlayerIndex exists already, it will be overwriten...
PlayerIndex1 := 0;
if uos_CreatePlayer(PlayerIndex1) then
begin
//// add a Input from audio-file with default parameters
//////////// PlayerIndex : Index of a existing Player
////////// FileName : filename of audio file
// result : -1 nothing created, otherwise Input Index in array
InputIndex1 := uos_AddFromFile(PlayerIndex1, PChar((SoundFilename)), -1, -1, -1);
writeln('InputIndex1 = ' + IntToStr(InputIndex1));
if InputIndex1 > -1 then
begin
//// add a Output into device with default parameters
//////////// PlayerIndex : Index of a existing Player
// result : -1 nothing created, otherwise Output Index in array
{$if defined(cpuarm) or defined(cpuaarch64)} // need a lower latency
OutputIndex1 := uos_AddIntoDevOut(PlayerIndex1, -1, 0.3, -1, -1, -1, -1, -1) ;
{$else}
//OutputIndex1 := uos_AddIntoDevOut(PlayerIndex1);
OutputIndex1 := uos_AddIntoDevOut(PlayerIndex1, -1, -1, -1, -1, -1, -1, -1);
{$endif}
writeln('OutputIndex1 = ' + IntToStr(OutputIndex1));
// uos_AddIntoFile(PlayerIndex1,pchar('/home/fred/mytest.ogg'), -1, -1, -1, -1, 3);
if OutputIndex1 > -1 then
begin
/////// everything is ready, here we are, lets play it...
uos_Play(PlayerIndex1);
sleep(1000);
writeln;
writeln('Title: ' + uos_InputGetTagTitle(PlayerIndex1, InputIndex1));
sleep(1500);
writeln();
writeln('Artist: ' + uos_InputGetTagArtist(PlayerIndex1, InputIndex1));
writeln;
sleep(2000);
end;
end;
end;
end;
end;
end.