Implements Module Player working in Form
* Implements Embedding .xm music in Final Application
This commit is contained in:
734
UOS/examples/simplerecorder_fpGUI.pas
Normal file
734
UOS/examples/simplerecorder_fpGUI.pas
Normal file
@@ -0,0 +1,734 @@
|
||||
program simplerecorder_fpGUI;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
{$DEFINE UseCThreads}
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX} {$IFDEF UseCThreads}
|
||||
|
||||
cthreads,
|
||||
cwstring, {$ENDIF} {$ENDIF}
|
||||
SysUtils,
|
||||
uos_flat,
|
||||
ctypes,
|
||||
Classes,
|
||||
fpg_style_chrome_silver_flatmenu,
|
||||
fpg_stylemanager,
|
||||
fpg_button,
|
||||
fpg_widget,
|
||||
fpg_label,
|
||||
fpg_TrackBar,
|
||||
fpg_Editbtn,
|
||||
fpg_CheckBox,
|
||||
fpg_base,
|
||||
fpg_main,
|
||||
fpg_form;
|
||||
|
||||
type
|
||||
|
||||
TSimplerecorder = class(TfpgForm)
|
||||
procedure uos_logo(Sender: TObject);
|
||||
private
|
||||
{@VFD_HEAD_BEGIN: Simpleplayer}
|
||||
Custom1: TfpgWidget;
|
||||
Labelport: TfpgLabel;
|
||||
btnLoad: TfpgButton;
|
||||
FilenameEdit1: TfpgFileNameEdit;
|
||||
FilenameEdit2: TfpgFileNameEdit;
|
||||
FilenameEdit4: TfpgFileNameEdit;
|
||||
btnStart: TfpgButton;
|
||||
btnStop: TfpgButton;
|
||||
lposition: TfpgLabel;
|
||||
Labelsnf: TfpgLabel;
|
||||
button4: TfpgButton;
|
||||
button5: TfpgButton;
|
||||
CheckBox1: TfpgCheckBox;
|
||||
Label2: TfpgLabel;
|
||||
TrackBar2: TfpgTrackBar;
|
||||
TrackBar3: TfpgTrackBar;
|
||||
Label3: TfpgLabel;
|
||||
Label4: TfpgLabel;
|
||||
Label5: TfpgLabel;
|
||||
CheckBox2: TfpgCheckBox;
|
||||
{@VFD_HEAD_END: Simpleplayer}
|
||||
public
|
||||
procedure AfterCreate; override;
|
||||
// constructor Create(AOwner: TComponent);
|
||||
procedure btnLoadClick(Sender: TObject);
|
||||
procedure btnCloseClick(Sender: TObject);
|
||||
procedure btnStartClick(Sender: TObject);
|
||||
procedure btnStopClick(Sender: TObject);
|
||||
procedure btnPlaySavedClick(Sender: TObject);
|
||||
procedure ClosePlayer1;
|
||||
procedure VolumeChange(Sender: TObject; pos: integer);
|
||||
procedure Changechk1(Sender: TObject);
|
||||
end;
|
||||
|
||||
{@VFD_NEWFORM_DECL}
|
||||
|
||||
{@VFD_NEWFORM_IMPL}
|
||||
|
||||
var
|
||||
PlayerIndex1: cint32;
|
||||
ordir, opath: string;
|
||||
In1Index, out1index: cint32;
|
||||
|
||||
thebuffer: array of cfloat;
|
||||
thebufferinfos: TuosF_BufferInfos;
|
||||
thememorystream: Tmemorystream;
|
||||
|
||||
|
||||
procedure TSimplerecorder.Changechk1(Sender: TObject);
|
||||
begin
|
||||
uos_outputsetenable(0, out1Index, checkbox1.Checked);
|
||||
end;
|
||||
|
||||
procedure TSimplerecorder.btnStartClick(Sender: TObject);
|
||||
var
|
||||
inp: integer;
|
||||
begin
|
||||
if (checkbox1.Checked = True) or (checkbox2.Checked = True) then
|
||||
begin
|
||||
|
||||
PlayerIndex1 := 0;
|
||||
|
||||
{$IF (FPC_FULLVERSION >= 20701) or DEFINED(Windows)}
|
||||
uos_CreatePlayer(PlayerIndex1);
|
||||
{$else}
|
||||
uos_CreatePlayer(PlayerIndex1, sender);
|
||||
{$ENDIF}
|
||||
//// Create the player.
|
||||
//// PlayerIndex : from 0 to what your computer can do !
|
||||
//// If PlayerIndex exists already, it will be overwriten...
|
||||
|
||||
// saving in a file using a File-Stream:
|
||||
uos_AddIntoFile(PlayerIndex1, PChar(filenameEdit4.filename));
|
||||
|
||||
// saving in a Memory-Buffer:
|
||||
// SetLength(thebuffer, 0);
|
||||
// uos_AddIntoMemoryBuffer(PlayerIndex1, @thebuffer);
|
||||
|
||||
// saving in a Memory-Stream:
|
||||
// if thememorystream = nil then thememorystream := tmemorystream.create;
|
||||
// uos_AddIntoMemoryStream(PlayerIndex1, (thememorystream),-1,-1,-1,-1);
|
||||
|
||||
// saving in a file using a Menory-Stream:
|
||||
// uos_AddIntoFileFromMem(PlayerIndex1, Pchar(filenameEdit4.filename));
|
||||
//// add Output into wav file (save record) with default parameters
|
||||
|
||||
// uos_AddIntoFile(PlayerIndex1, Pchar(filenameEdit4.filename), -1, -1, 1, -1, -1);
|
||||
//// add a Output into wav file (save record) with custom parameters
|
||||
//////////// PlayerIndex : Index of a existing Player
|
||||
//////////// Filename : name of new file for recording
|
||||
//////////// SampleRate : delault : -1 (44100)
|
||||
//////////// Channels : delault : -1 (2:stereo) ( 1:mono, 2:stereo, ...)
|
||||
//////////// SampleFormat : -1 default : Int16 : (0: Float32, 1:Int32, 2:Int16)
|
||||
//////////// FramesCount : -1 default : 65536
|
||||
//////////// FileFormat : -1 default : wav (0:wav, 1:pcm, 2:uos, 3:custom)
|
||||
|
||||
{$if defined(cpuarm) or defined(cpuaarch64)} // need a lower latency
|
||||
out1Index := uos_AddIntoDevOut(PlayerIndex1, -1, 0.08, -1, -1, -1, -1, -1) ;
|
||||
{$else}
|
||||
out1Index := uos_AddIntoDevOut(PlayerIndex1);
|
||||
{$endif}
|
||||
|
||||
uos_outputsetenable(PlayerIndex1, out1Index, checkbox1.Checked);
|
||||
|
||||
|
||||
//// add a Output into OUT device with default parameters
|
||||
|
||||
// uos_AddIntoDevOut(0, -1, -1, -1, -1, 1,-1, -1);
|
||||
//// add a Output into device with custom parameters
|
||||
//////////// PlayerIndex : Index of a existing Player
|
||||
//////////// Device ( -1 is default Output device )
|
||||
//////////// Latency ( -1 is latency suggested ) )
|
||||
//////////// SampleRate : delault : -1 (44100)
|
||||
//////////// Channels : delault : -1 (2:stereo) (0: no channels, 1:mono, 2:stereo, ...)
|
||||
//////////// SampleFormat : -1 default : Int16 : (0: Float32, 1:Int32, 2:Int16)
|
||||
//////////// FramesCount : -1 default : 65536
|
||||
// ChunkCount : default : -1 (= 512)
|
||||
// ChunkCount : default : -1 (= 512)
|
||||
|
||||
In1Index := uos_AddFromDevIn(PlayerIndex1);
|
||||
/// add Input from mic/aux into IN device with default parameters
|
||||
|
||||
// In1Index := uos_AddFromDevIn(0, -1, -1, -1, -1, -1, -1, -1);
|
||||
/// add Input from mic/aux into IN device with custom parameters
|
||||
//////////// PlayerIndex : Index of a existing Player
|
||||
//////////// Device ( -1 is default Input device )
|
||||
//////////// Latency ( -1 is latency suggested ) )
|
||||
//////////// SampleRate : delault : -1 (44100)
|
||||
//////////// OutputIndex : OutputIndex of existing Output // -1 : all output, -2: no output, other integer : existing output)
|
||||
//////////// SampleFormat : -1 default : Int16 : (0: Float32, 1:Int32, 2:Int16)
|
||||
//////////// FramesCount : -1 default : 4096 ( > = safer, < = better latency )
|
||||
|
||||
uos_InputAddDSP1ChanTo2Chan(PlayerIndex1, In1Index);
|
||||
///// Convert mono one channel channel to stereo two channels.
|
||||
//// If the input is stereo, original buffer is keeped.
|
||||
////////// InputIndex : InputIndex of a existing Input
|
||||
// result : index of DSPIn in array
|
||||
////////// example DSPIndex1 := uos_InputAddDSP1ChanTo2Chan(PlayerIndex1, InputIndex1);
|
||||
|
||||
uos_InputAddDSPVolume(PlayerIndex1, In1Index, 1, 1);
|
||||
///// DSP Volume changer
|
||||
//////////// PlayerIndex : Index of a existing Player
|
||||
////////// In1Index : InputIndex of a existing input
|
||||
////////// VolLeft : Left volume
|
||||
////////// VolRight : Right volume
|
||||
|
||||
uos_InputSetDSPVolume(PlayerIndex1, In1Index, (100 - TrackBar2.position) / 100,
|
||||
(100 - TrackBar3.position) / 100, True); /// Set volume
|
||||
|
||||
/////// procedure to execute when stream is terminated
|
||||
uos_EndProc(PlayerIndex1, @ClosePlayer1);
|
||||
///// Assign the procedure of object to execute at end
|
||||
//////////// PlayerIndex : Index of a existing Player
|
||||
//////////// ClosePlayer1 : procedure of object to execute inside the loop
|
||||
|
||||
uos_Play(PlayerIndex1); /////// everything is ready to play...
|
||||
|
||||
CheckBox2.Enabled := False;
|
||||
btnStart.Enabled := False;
|
||||
btnStop.Enabled := True;
|
||||
button5.Enabled := False;
|
||||
button4.Enabled := False;
|
||||
end;
|
||||
|
||||
end;
|
||||
|
||||
procedure TSimplerecorder.btnPlaySavedClick(Sender: TObject);
|
||||
begin
|
||||
|
||||
// if fileexists( Pchar(filenameedit4.FileName)) then begin
|
||||
|
||||
// writeln('length(StreamIn[x].MemoryStreamDec) = '+inttostr(StreamIn[x].MemoryStreamDec.size)) ;
|
||||
// writeln('length(MemoryStream) = '+inttostr(theMemoryStream.size)) ;
|
||||
|
||||
PlayerIndex1 := 1; // PlayerIndex : from 0 to what your computer can do ! (depends of ram, cpu, ...)
|
||||
// If PlayerIndex exists already, it will be overwritten...
|
||||
|
||||
{$IF (FPC_FULLVERSION >= 20701) or DEFINED(Windows)}
|
||||
uos_CreatePlayer(PlayerIndex1);
|
||||
{$else}
|
||||
uos_CreatePlayer(PlayerIndex1, sender);
|
||||
{$ENDIF}
|
||||
//// Create the player.
|
||||
//// PlayerIndex : from 0 to what your computer can do !
|
||||
//// If PlayerIndex exists already, it will be overwriten...
|
||||
|
||||
{$if defined(cpuarm) or defined(cpuaarch64)} // need a lower latency
|
||||
uos_AddIntoDevOut(PlayerIndex1, -1, 0.08, -1, -1, -1, -1, -1) ;
|
||||
{$else}
|
||||
uos_AddIntoDevOut(PlayerIndex1);
|
||||
// uos_AddIntoDevOut(PlayerIndex1, -1, -1, -1, -1, -1, 1024*4, -1) ;
|
||||
{$endif}
|
||||
|
||||
// uos_AddIntoDevOut(0, -1, -1, -1, -1, 0,-1, -1); //// add a Output into device with custom parameters
|
||||
//////////// PlayerIndex : Index of a existing Player
|
||||
//////////// Device ( -1 is default Output device )
|
||||
//////////// Latency ( -1 is latency suggested ) )
|
||||
//////////// SampleRate : delault : -1 (44100)
|
||||
//////////// Channels : delault : -1 (2:stereo) (0: no channels, 1:mono, 2:stereo, ...)
|
||||
//////////// SampleFormat : -1 default : Int16 : (0: Float32, 1:Int32, 2:Int16)
|
||||
//////////// FramesCount : -1 default : 65536
|
||||
// ChunkCount : default : -1 (= 512)
|
||||
|
||||
// from audio-encoded file
|
||||
if fileexists(PChar(filenameedit4.FileName)) then
|
||||
In1Index := uos_AddFromFile(PlayerIndex1, PChar(filenameedit4.FileName));
|
||||
|
||||
// from Memory-Buffer
|
||||
// uos_CustBufferInfos(thebufferinfos, 44100, 2, 2 ,Length(thebuffer) div 2);
|
||||
// In1Index := uos_AddFromMemoryBuffer(PlayerIndex1,thebuffer,thebufferinfos, -1, -1);
|
||||
|
||||
// from Memory-Stream
|
||||
// uos_CustBufferInfos(thebufferinfos, 44100, 2, 2 ,thememorystream.size div 2);
|
||||
// In1Index := uos_AddFromMemoryStreamdec(PlayerIndex1,(thememorystream),thebufferinfos, -1, -1);
|
||||
|
||||
|
||||
//// add input from audio file with default parameters
|
||||
// In1Index := Player1.AddFromFile(0, Edit3.Text, -1, 0); //// add input from audio file with custom parameters
|
||||
//////////// PlayerIndex : Index of a existing Player
|
||||
////////// FileName : filename of audio file
|
||||
////////// OutputIndex : OutputIndex of existing Output // -1 : all output, -2: no output, other integer : existing output)
|
||||
////////// SampleFormat : -1 default : Int16 : (0: Float32, 1:Int32, 2:Int16) SampleFormat of Input can be <= SampleFormat float of Output
|
||||
|
||||
uos_InputAddDSPVolume(PlayerIndex1, In1Index, 1, 1);
|
||||
///// DSP Volume changer
|
||||
//////////// PlayerIndex : Index of a existing Player
|
||||
////////// In1Index : InputIndex of a existing input
|
||||
////////// VolLeft : Left volume
|
||||
////////// VolRight : Right volume
|
||||
|
||||
uos_InputSetDSPVolume(PlayerIndex1, In1Index, (100 - TrackBar2.position) / 100,
|
||||
(100 - TrackBar3.position) / 100, True); /// Set volume
|
||||
|
||||
/////// procedure to execute when stream is terminated
|
||||
uos_EndProc(PlayerIndex1, @ClosePlayer1);
|
||||
///// Assign the procedure of object to execute at end
|
||||
//////////// PlayerIndex : Index of a existing Player
|
||||
//////////// ClosePlayer1 : procedure of object to execute inside the loop
|
||||
|
||||
btnStart.Enabled := False;
|
||||
btnStop.Enabled := False;
|
||||
button4.Enabled := False;
|
||||
button5.Enabled := True;
|
||||
|
||||
uos_Play(PlayerIndex1); /////// everything is ready to play...
|
||||
|
||||
end;
|
||||
|
||||
procedure TSimplerecorder.VolumeChange(Sender: TObject; pos: integer);
|
||||
begin
|
||||
if (btnstart.Enabled = False) then
|
||||
uos_InputSetDSPVolume(PlayerIndex1, In1Index, (100 - TrackBar2.position) / 100,
|
||||
(100 - TrackBar3.position) / 100, True);
|
||||
end;
|
||||
|
||||
|
||||
procedure TSimplerecorder.btnCloseClick(Sender: TObject);
|
||||
begin
|
||||
if (btnstart.Enabled = False) then
|
||||
begin
|
||||
uos_stop(PlayerIndex1);
|
||||
sleep(100);
|
||||
end;
|
||||
if btnLoad.Enabled = False then
|
||||
uos_free();
|
||||
end;
|
||||
|
||||
procedure TSimplerecorder.btnLoadClick(Sender: TObject);
|
||||
var
|
||||
str: string;
|
||||
begin
|
||||
|
||||
{$if defined(CPUAMD64) and defined(linux) }
|
||||
// For Linux amd64, check libsndfile.so
|
||||
if (FilenameEdit2.FileName <> 'system') and (FilenameEdit2.FileName <> '') then
|
||||
if uos_TestLoadLibrary(PChar(FilenameEdit2.FileName)) = false then
|
||||
FilenameEdit2.FileName := FilenameEdit2.FileName + '.2';
|
||||
{$endif}
|
||||
|
||||
// Load the libraries
|
||||
// function uos_loadlib(PortAudioFileName, SndFileFileName, Mpg123FileName, Mp4ffFileName, FaadFileName, opusfilefilename, libxmpfilename: PChar) : LongInt;
|
||||
|
||||
if uos_LoadLib(PChar(FilenameEdit1.FileName), PChar(FilenameEdit2.FileName), nil, nil, nil, nil, nil) = 0 then
|
||||
begin
|
||||
hide;
|
||||
Height := 305;
|
||||
btnStart.Enabled := True;
|
||||
btnLoad.Enabled := False;
|
||||
FilenameEdit1.ReadOnly := True;
|
||||
FilenameEdit2.ReadOnly := True;
|
||||
UpdateWindowPosition;
|
||||
btnLoad.Text := 'PortAudio and SndFile libraries are loaded...';
|
||||
WindowPosition := wpScreenCenter;
|
||||
fpgapplication.ProcessMessages;
|
||||
sleep(500);
|
||||
Show;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSimplerecorder.ClosePlayer1;
|
||||
begin
|
||||
btnStart.Enabled := True;
|
||||
btnStop.Enabled := False;
|
||||
button4.Enabled := True;
|
||||
button5.Enabled := False;
|
||||
CheckBox1.Enabled := True;
|
||||
CheckBox2.Enabled := True;
|
||||
end;
|
||||
|
||||
procedure TSimplerecorder.btnStopClick(Sender: TObject);
|
||||
begin
|
||||
uos_Stop(PlayerIndex1);
|
||||
end;
|
||||
|
||||
|
||||
procedure TSimplerecorder.AfterCreate;
|
||||
begin
|
||||
{%region 'Auto-generated GUI code' -fold}
|
||||
{@VFD_BODY_BEGIN: Simpleplayer}
|
||||
Name := 'Simpleplayer';
|
||||
SetPosition(392, 184, 502, 316);
|
||||
WindowTitle := 'Simple Recorder';
|
||||
IconName := '';
|
||||
BackGroundColor := $80000001;
|
||||
Hint := '';
|
||||
WindowPosition := wpScreenCenter;
|
||||
Ondestroy := @btnCloseClick;
|
||||
|
||||
Custom1 := TfpgWidget.Create(self);
|
||||
with Custom1 do
|
||||
begin
|
||||
Name := 'Custom1';
|
||||
SetPosition(10, 8, 115, 115);
|
||||
OnPaint := @uos_logo;
|
||||
end;
|
||||
|
||||
Labelport := TfpgLabel.Create(self);
|
||||
with Labelport do
|
||||
begin
|
||||
Name := 'Labelport';
|
||||
SetPosition(140, 12, 320, 15);
|
||||
Alignment := taCenter;
|
||||
FontDesc := '#Label1';
|
||||
ParentShowHint := False;
|
||||
Text := 'Folder + filename of PortAudio Library';
|
||||
Hint := '';
|
||||
end;
|
||||
|
||||
btnLoad := TfpgButton.Create(self);
|
||||
with btnLoad do
|
||||
begin
|
||||
Name := 'btnLoad';
|
||||
SetPosition(16, 128, 476, 23);
|
||||
Text := 'Load that libraries';
|
||||
FontDesc := '#Label1';
|
||||
ImageName := '';
|
||||
ParentShowHint := False;
|
||||
TabOrder := 0;
|
||||
Hint := '';
|
||||
onclick := @btnLoadClick;
|
||||
end;
|
||||
|
||||
FilenameEdit1 := TfpgFileNameEdit.Create(self);
|
||||
with FilenameEdit1 do
|
||||
begin
|
||||
Name := 'FilenameEdit1';
|
||||
SetPosition(136, 28, 356, 24);
|
||||
ExtraHint := '';
|
||||
FileName := '';
|
||||
Filter := '';
|
||||
InitialDir := '';
|
||||
TabOrder := 3;
|
||||
end;
|
||||
|
||||
FilenameEdit2 := TfpgFileNameEdit.Create(self);
|
||||
with FilenameEdit2 do
|
||||
begin
|
||||
Name := 'FilenameEdit2';
|
||||
SetPosition(136, 80, 356, 24);
|
||||
ExtraHint := '';
|
||||
FileName := '';
|
||||
Filter := '';
|
||||
InitialDir := '';
|
||||
TabOrder := 4;
|
||||
end;
|
||||
|
||||
FilenameEdit4 := TfpgFileNameEdit.Create(self);
|
||||
with FilenameEdit4 do
|
||||
begin
|
||||
Name := 'FilenameEdit4';
|
||||
SetPosition(124, 192, 364, 24);
|
||||
ExtraHint := '';
|
||||
FileName := '';
|
||||
Filter := '';
|
||||
InitialDir := '';
|
||||
TabOrder := 5;
|
||||
end;
|
||||
|
||||
btnStart := TfpgButton.Create(self);
|
||||
with btnStart do
|
||||
begin
|
||||
Name := 'btnStart';
|
||||
SetPosition(244, 232, 68, 23);
|
||||
Text := 'Start';
|
||||
Enabled := False;
|
||||
FontDesc := '#Label1';
|
||||
ImageName := '';
|
||||
ParentShowHint := False;
|
||||
TabOrder := 6;
|
||||
Hint := '';
|
||||
onclick := @btnstartClick;
|
||||
end;
|
||||
|
||||
btnStop := TfpgButton.Create(self);
|
||||
with btnStop do
|
||||
begin
|
||||
Name := 'btnStop';
|
||||
SetPosition(344, 232, 80, 23);
|
||||
Text := 'Stop';
|
||||
Enabled := False;
|
||||
FontDesc := '#Label1';
|
||||
ImageName := '';
|
||||
ParentShowHint := False;
|
||||
TabOrder := 7;
|
||||
Hint := '';
|
||||
onclick := @btnStopClick;
|
||||
end;
|
||||
|
||||
lposition := TfpgLabel.Create(self);
|
||||
with lposition do
|
||||
begin
|
||||
Name := 'lposition';
|
||||
SetPosition(144, 173, 312, 19);
|
||||
Alignment := taCenter;
|
||||
FontDesc := '#Label1';
|
||||
ParentShowHint := False;
|
||||
Text := 'Folder + filename of wav saved file';
|
||||
Hint := '';
|
||||
end;
|
||||
|
||||
Labelsnf := TfpgLabel.Create(self);
|
||||
with Labelsnf do
|
||||
begin
|
||||
Name := 'Labelsnf';
|
||||
SetPosition(140, 64, 316, 15);
|
||||
Alignment := taCenter;
|
||||
FontDesc := '#Label1';
|
||||
ParentShowHint := False;
|
||||
Text := 'Folder + filename of SndFile Library';
|
||||
Hint := '';
|
||||
end;
|
||||
|
||||
button4 := TfpgButton.Create(self);
|
||||
with button4 do
|
||||
begin
|
||||
Name := 'button4';
|
||||
SetPosition(184, 268, 112, 23);
|
||||
Text := 'Play saved file';
|
||||
Enabled := False;
|
||||
FontDesc := '#Label1';
|
||||
ImageName := '';
|
||||
ParentShowHint := False;
|
||||
TabOrder := 15;
|
||||
Hint := '';
|
||||
onclick := @btnPlaySavedClick;
|
||||
end;
|
||||
|
||||
button5 := TfpgButton.Create(self);
|
||||
with button5 do
|
||||
begin
|
||||
Name := 'button5';
|
||||
SetPosition(324, 268, 104, 23);
|
||||
Text := 'Stop saved file';
|
||||
Enabled := False;
|
||||
FontDesc := '#Label1';
|
||||
ImageName := '';
|
||||
ParentShowHint := False;
|
||||
TabOrder := 16;
|
||||
Hint := '';
|
||||
onclick := @btnStopClick;
|
||||
end;
|
||||
|
||||
CheckBox1 := TfpgCheckBox.Create(self);
|
||||
with CheckBox1 do
|
||||
begin
|
||||
Name := 'CheckBox1';
|
||||
SetPosition(132, 224, 104, 19);
|
||||
Checked := True;
|
||||
FontDesc := '#Label1';
|
||||
ParentShowHint := False;
|
||||
TabOrder := 17;
|
||||
Text := 'Listen MIC';
|
||||
Hint := '';
|
||||
OnChange := @Changechk1;
|
||||
end;
|
||||
|
||||
Label2 := TfpgLabel.Create(self);
|
||||
with Label2 do
|
||||
begin
|
||||
Name := 'Label2';
|
||||
SetPosition(124, 155, 356, 15);
|
||||
Alignment := taCenter;
|
||||
FontDesc := '#Label2';
|
||||
ParentShowHint := False;
|
||||
Text := 'WARNING : Use headphones or set volume to low...';
|
||||
TextColor := TfpgColor($FFFF0000);
|
||||
Hint := '';
|
||||
end;
|
||||
|
||||
TrackBar2 := TfpgTrackBar.Create(self);
|
||||
with TrackBar2 do
|
||||
begin
|
||||
Name := 'TrackBar2';
|
||||
SetPosition(16, 176, 32, 98);
|
||||
Orientation := orVertical;
|
||||
ParentShowHint := False;
|
||||
TabOrder := 23;
|
||||
Hint := '';
|
||||
OnChange := @volumechange;
|
||||
end;
|
||||
|
||||
TrackBar3 := TfpgTrackBar.Create(self);
|
||||
with TrackBar3 do
|
||||
begin
|
||||
Name := 'TrackBar3';
|
||||
SetPosition(60, 176, 28, 98);
|
||||
Orientation := orVertical;
|
||||
ParentShowHint := False;
|
||||
TabOrder := 24;
|
||||
Hint := '';
|
||||
OnChange := @volumechange;
|
||||
end;
|
||||
|
||||
Label3 := TfpgLabel.Create(self);
|
||||
with Label3 do
|
||||
begin
|
||||
Name := 'Label3';
|
||||
SetPosition(12, 156, 84, 15);
|
||||
Alignment := taCenter;
|
||||
FontDesc := '#Label1';
|
||||
ParentShowHint := False;
|
||||
Text := 'Volume';
|
||||
Hint := '';
|
||||
end;
|
||||
|
||||
Label4 := TfpgLabel.Create(self);
|
||||
with Label4 do
|
||||
begin
|
||||
Name := 'Label4';
|
||||
SetPosition(8, 280, 40, 15);
|
||||
Alignment := taCenter;
|
||||
FontDesc := '#Label1';
|
||||
ParentShowHint := False;
|
||||
Text := 'Left';
|
||||
Hint := '';
|
||||
end;
|
||||
|
||||
Label5 := TfpgLabel.Create(self);
|
||||
with Label5 do
|
||||
begin
|
||||
Name := 'Label5';
|
||||
SetPosition(56, 280, 36, 19);
|
||||
Alignment := taCenter;
|
||||
FontDesc := '#Label1';
|
||||
ParentShowHint := False;
|
||||
Text := 'Right';
|
||||
Hint := '';
|
||||
end;
|
||||
|
||||
CheckBox2 := TfpgCheckBox.Create(self);
|
||||
with CheckBox2 do
|
||||
begin
|
||||
Name := 'CheckBox2';
|
||||
SetPosition(132, 244, 100, 19);
|
||||
Checked := True;
|
||||
FontDesc := '#Label1';
|
||||
ParentShowHint := False;
|
||||
TabOrder := 22;
|
||||
Text := 'Save to file';
|
||||
Hint := '';
|
||||
end;
|
||||
|
||||
{@VFD_BODY_END: Simpleplayer}
|
||||
{%endregion}
|
||||
|
||||
//////////////////////
|
||||
|
||||
ordir := IncludeTrailingBackslash(ExtractFilePath(ParamStr(0)));
|
||||
CheckBox1.Checked := True;
|
||||
CheckBox2.Checked := True;
|
||||
Height := 157;
|
||||
{$IFDEF Windows}
|
||||
{$if defined(cpu64)}
|
||||
FilenameEdit1.FileName := ordir + 'lib\Windows\64bit\LibPortaudio-64.dll';
|
||||
FilenameEdit2.FileName := ordir + 'lib\Windows\64bit\LibSndFile-64.dll';
|
||||
{$else}
|
||||
FilenameEdit1.FileName := ordir + 'lib\Windows\32bit\LibPortaudio-32.dll';
|
||||
FilenameEdit2.FileName := ordir + 'lib\Windows\32bit\LibSndFile-32.dll';
|
||||
{$endif}
|
||||
FilenameEdit4.FileName := ordir + 'sound\testrecord.wav';
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF Darwin}
|
||||
{$IFDEF CPU32}
|
||||
opath := ordir;
|
||||
opath := copy(opath, 1, Pos('/uos', opath) - 1);
|
||||
FilenameEdit1.FileName := opath + '/lib/Mac/32bit/LibPortaudio-32.dylib';
|
||||
FilenameEdit2.FileName := opath + '/lib/Mac/32bit/LibSndFile-32.dylib';
|
||||
FilenameEdit4.FileName := opath + 'sound/testrecord.wav';
|
||||
{$ENDIF}
|
||||
{$IFDEF CPU64}
|
||||
opath := ordir;
|
||||
opath := copy(opath, 1, Pos('/uos', opath) - 1);
|
||||
FilenameEdit1.FileName := opath + '/lib/Mac/64bit/LibPortaudio-64.dylib';
|
||||
FilenameEdit2.FileName := opath + '/lib/Mac/64bit/LibSndFile-64.dylib';
|
||||
FilenameEdit4.FileName := opath + 'sound/testrecord.wav';
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
{$if defined(CPUAMD64) and defined(linux) }
|
||||
FilenameEdit1.FileName := ordir + 'lib/Linux/64bit/LibPortaudio-64.so';
|
||||
FilenameEdit2.FileName := ordir + 'lib/Linux/64bit/LibSndFile-64.so';
|
||||
FilenameEdit4.FileName := ordir + 'sound/testrecord.wav';
|
||||
{$ENDIF}
|
||||
|
||||
{$if defined(cpu86) and defined(linux)}
|
||||
FilenameEdit1.FileName := ordir + 'lib/Linux/32bit/LibPortaudio-32.so';
|
||||
FilenameEdit2.FileName := ordir + 'lib/Linux/32bit/LibSndFile-32.so';
|
||||
FilenameEdit4.FileName := ordir + 'sound/testrecord.wav';
|
||||
{$ENDIF}
|
||||
|
||||
{$if defined(linux) and defined(cpuarm)}
|
||||
FilenameEdit1.FileName := ordir + 'lib/Linux/arm_raspberrypi/libportaudio-arm.so';
|
||||
FilenameEdit2.FileName := ordir + 'lib/Linux/arm_raspberrypi/libsndfile-arm.so';
|
||||
FilenameEdit4.FileName := ordir + 'sound/testrecord.wav';
|
||||
{$ENDIF}
|
||||
|
||||
{$if defined(linux) and defined(cpuaarch64)}
|
||||
FilenameEdit1.FileName := ordir + 'lib/Linux/aarch64_raspberrypi/libportaudio_aarch64.so';
|
||||
FilenameEdit2.FileName := ordir + 'lib/Linux/aarch64_raspberrypi/libsndfile_aarch64.so';
|
||||
FilenameEdit4.FileName := ordir + 'sound/testrecord.wav';
|
||||
{$ENDIF}
|
||||
|
||||
{$IFDEF freebsd}
|
||||
{$if defined(cpu64)}
|
||||
FilenameEdit1.FileName := ordir + 'lib/FreeBSD/64bit/libportaudio-64.so';
|
||||
FilenameEdit2.FileName := ordir + 'lib/FreeBSD/64bit/libsndfile-64.so';
|
||||
{$else}
|
||||
FilenameEdit1.FileName := ordir + 'lib/FreeBSD/32bit/libportaudio-32.so';
|
||||
FilenameEdit2.FileName := ordir + 'lib/FreeBSD/32bit/libsndfile-32.so';
|
||||
{$endif}
|
||||
FilenameEdit4.FileName := ordir + 'sound/testrecord.wav';
|
||||
{$ENDIF}
|
||||
|
||||
//////////////////////////////////////////////////////////////////////////
|
||||
|
||||
FilenameEdit4.Initialdir := ordir + 'sound';
|
||||
FilenameEdit1.Initialdir := ordir + 'lib';
|
||||
FilenameEdit2.Initialdir := ordir + 'lib';
|
||||
//thememorystream := Tmemorystream.create;
|
||||
end;
|
||||
|
||||
procedure TSimplerecorder.uos_logo(Sender: TObject);
|
||||
var
|
||||
xpos, ypos, pbwidth, pbheight: integer;
|
||||
ratio: double;
|
||||
begin
|
||||
xpos := 0;
|
||||
ypos := 0;
|
||||
ratio := 1;
|
||||
pbwidth := 115;
|
||||
pbheight := 115;
|
||||
with Custom1 do
|
||||
begin
|
||||
Canvas.GradientFill(GetClientRect, clgreen, clBlack, gdVertical);
|
||||
Canvas.TextColor := clWhite;
|
||||
Canvas.DrawText(60, 20, 'uos');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure MainProc;
|
||||
var
|
||||
frm: TSimplerecorder;
|
||||
begin
|
||||
fpgApplication.Initialize;
|
||||
if fpgStyleManager.SetStyle('Chrome silver flat menu') then
|
||||
fpgStyle := fpgStyleManager.Style;
|
||||
fpgApplication.CreateForm(TSimplerecorder, frm);
|
||||
try
|
||||
frm.Show;
|
||||
fpgApplication.Run;
|
||||
finally
|
||||
// if thememorystream <> nil then
|
||||
FreeAndNil(thememorystream);
|
||||
frm.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
MainProc;
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user