180 lines
4.4 KiB
ObjectPascal
180 lines
4.4 KiB
ObjectPascal
unit main_mt;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils,
|
|
Forms,
|
|
StdCtrls,
|
|
Buttons,
|
|
uos_flat,
|
|
Classes;
|
|
|
|
type
|
|
|
|
{ TForm1 }
|
|
|
|
TForm1 = class(TForm)
|
|
BitBtnPlay: TBitBtn;
|
|
ButtonQuit: TButton;
|
|
interchar: TEdit;
|
|
interspace: TEdit;
|
|
Label1: TLabel;
|
|
Label2: TLabel;
|
|
Label3: TLabel;
|
|
Memo1: TMemo;
|
|
|
|
procedure BitBtnPlayClick(Sender: TObject);
|
|
procedure ButtonQuitClick(Sender: TObject);
|
|
procedure FormActivate(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure CreateMorsePlayer();
|
|
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
Form1: TForm1;
|
|
i: cardinal;
|
|
ordir: string;
|
|
|
|
implementation
|
|
|
|
{$R *.lfm}
|
|
|
|
|
|
procedure TForm1.CreateMorsePlayer();
|
|
var
|
|
filetoplay, fileerror: string;
|
|
chara: string;
|
|
player: cardinal;
|
|
begin
|
|
if i <= length(Memo1.Text) then
|
|
begin
|
|
chara := copy(Memo1.Text, i, 1);
|
|
|
|
fileerror := ordir + 'sound' + directoryseparator + 'morse_audio' + directoryseparator + '0.mp3';
|
|
|
|
if odd(i) then
|
|
player := 0
|
|
else
|
|
player := 1; ///// to switch between player1 <> player2
|
|
|
|
if chara <> ' ' then
|
|
begin
|
|
uos_CreatePlayer(player);
|
|
|
|
{$if defined(cpuarm) or defined(cpuaarch64)} // need a lower latency
|
|
uos_AddIntoDevOut(player, -1, 0.08, -1, -1, -1, -1, -1) ;
|
|
{$else}
|
|
uos_AddIntoDevOut(player);
|
|
{$endif}
|
|
|
|
filetoplay := ordir + 'sound' + directoryseparator + 'morse_audio' + directoryseparator + lowercase(chara) + '.mp3';
|
|
|
|
if fileexists(PChar(filetoplay)) then
|
|
uos_AddFromFile(player, PChar(filetoplay))
|
|
else
|
|
uos_AddFromFile(player, PChar(fileerror)); /// if not existing char
|
|
if length(Memo1.Text) > i then
|
|
uos_EndProc(player, @CreateMorsePlayer); /// assign EndProc
|
|
sleep(StrToInt(interchar.Text)); ///// the pause between each character
|
|
uos_Play(player);
|
|
Inc(i);
|
|
end
|
|
else
|
|
begin
|
|
sleep(StrToInt(interspace.Text)); ///// the pause if space character
|
|
Inc(i);
|
|
if length(Memo1.Text) >= i then
|
|
CreateMorsePlayer;
|
|
end;
|
|
|
|
end;
|
|
end;
|
|
|
|
procedure TForm1.BitBtnPlayClick(Sender: TObject);
|
|
var
|
|
charac: string;
|
|
begin
|
|
if Memo1.Text <> '' then
|
|
begin
|
|
i := 1;
|
|
CreateMorsePlayer();
|
|
end;
|
|
|
|
end;
|
|
|
|
procedure TForm1.ButtonQuitClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
procedure TForm1.FormActivate(Sender: TObject);
|
|
var
|
|
PA_FileName, MP_FileName: string;
|
|
begin
|
|
memo1.Text := '';
|
|
ordir := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)));
|
|
|
|
{$IFDEF Windows}
|
|
{$if defined(cpu64)}
|
|
PA_FileName := ordir + 'lib\Windows\64bit\LibPortaudio-64.dll';
|
|
MP_FileName := ordir + 'lib\Windows\64bit\LibMpg123-64.dll';
|
|
{$else}
|
|
PA_FileName := ordir + 'lib\Windows\32bit\LibPortaudio-32.dll';
|
|
MP_FileName := ordir + 'lib\Windows\32bit\LibMpg123-32.dll';
|
|
{$endif}
|
|
{$ENDIF}
|
|
|
|
{$if defined(CPUAMD64) and defined(openbsd) }
|
|
PA_FileName := ordir + 'lib/OpenBSD/64bit/LibPortaudio-64.so';
|
|
MP_FileName := ordir + 'lib/OpenBSD/64bit/LibMpg123-64.so';
|
|
{$ENDIF}
|
|
|
|
{$if defined(CPUAMD64) and defined(linux) }
|
|
PA_FileName := ordir + 'lib/Linux/64bit/LibPortaudio-64.so';
|
|
MP_FileName := ordir + 'lib/Linux/64bit/LibMpg123-64.so';
|
|
{$ENDIF}
|
|
{$if defined(cpu86) and defined(linux)}
|
|
PA_FileName := ordir + 'lib/Linux/32bit/LibPortaudio-32.so';
|
|
MP_FileName := ordir + 'lib/Linux/32bit/LibMpg123-32.so';
|
|
{$endif}
|
|
{$if defined(linux) and defined(cpuarm)}
|
|
PA_FileName := ordir + 'lib/Linux/arm_raspberrypi/libportaudio-arm.so';
|
|
MP_FileName := ordir + 'lib/Linux/arm_raspberrypi/libsndfile-arm.so';
|
|
{$ENDIF}
|
|
|
|
{$if defined(linux) and defined(cpuaarch64)}
|
|
PA_FileName := ordir + 'lib/Linux/aarch64_raspberrypi/libportaudio_aarch64.so';
|
|
MP_FileName := ordir + 'lib/Linux/aarch64_raspberrypi/libmpg123_aarch64.so';
|
|
{$ENDIF}
|
|
|
|
|
|
{$IFDEF freebsd}
|
|
{$if defined(cpu64)}
|
|
PA_FileName := ordir + 'lib/FreeBSD/64bit/libportaudio-64.so';
|
|
MP_FileName := ordir + 'lib/FreeBSD/64bit/libmpg123-64.so';
|
|
{$else}
|
|
PA_FileName := ordir + 'lib/FreeBSD/32bit/libportaudio-32.so';
|
|
MP_FileName := ordir + 'lib/FreeBSD/32bit/libmpg123-32.so';
|
|
{$endif}
|
|
{$ENDIF}
|
|
|
|
uos_LoadLib(PChar(PA_FileName), nil, PChar(MP_FileName), nil, nil, nil, nil);
|
|
|
|
end;
|
|
|
|
procedure TForm1.FormDestroy(Sender: TObject);
|
|
begin
|
|
uos_free; /// for release dynamic loaded libraries
|
|
end;
|
|
|
|
end.
|
|
|