pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

playsoundpackage: More flexible usage of PlayCommand (empty string = builtin command). Improve demo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5016 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-20 20:08:46 +00:00
parent 46e048dc53
commit 0299f6dba7
3 changed files with 39 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
components/playsoundpackage/uplaysound.pas
View File

@ -19,10 +19,12 @@ type
SoundPlayerSyncProcess: Tprocess;
{$ENDIF}
fPlayCommand:String;
fDefaultPlayCommand: String;
fPathToSoundFile: string;
fPlayStyle: TPlayStyle;
protected
{ Protected declarations }
function GetPlayCommand: String;
procedure PlaySound(const szSoundFilename: string); virtual;
public
{ Public declarations }
@ -100,11 +102,11 @@ constructor Tplaysound.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
fPlayStyle := psASync;
fPathToSoundFile := ProgramDirectory;
// fPathToSoundFile := ProgramDirectory;
{$IFDEF WINDOWS}
fPlayCommand:='sndPlaySnd';
fDefaultPlayCommand := 'sndPlaySound';
{$ELSE}
fPlayCommand:=GetNonWindowsPlayCommand; // Linux, Mac etc.
fDefaultPlayCommand := GetNonWindowsPlayCommand; // Linux, Mac etc.
{$ENDIF}
// About Dialog properties
AboutBoxComponentName := 'PlaySound';
@ -143,6 +145,14 @@ begin
end;
end;
function TPlaySound.GetPlayCommand: String;
begin
if FPlayCommand = '' then
Result := FDefaultPlayCommand
else
Result := FPlayCommand;
end;
procedure Tplaysound.PlaySound(const szSoundFilename: string);
var
{$IFDEF WINDOWS}
@ -150,6 +160,7 @@ var
{$ELSE}
L: TStrings;
i: Integer;
playCmd: String;
{$ENDIF}
begin
{$IFDEF WINDOWS}
@ -166,16 +177,17 @@ begin
// How to play in Linux? Use generic Linux commands
// Use asyncprocess to play sound as SND_ASYNC
// proceed if we managed to find a valid command
if (fPlayCommand <> '') then
playCmd := GetPlayCommand;
if (playCmd <> '') then
begin
L := TStringList.Create;
try
L.Delimiter := ' ';
L.DelimitedText := fPlayCommand;
L.DelimitedText := playCmd;
if fPlayStyle = psASync then
begin
if SoundPlayerAsyncProcess = nil then
SoundPlayerAsyncProcess := Tasyncprocess.Create(nil);
SoundPlayerAsyncProcess := TaSyncProcess.Create(nil);
SoundPlayerAsyncProcess.CurrentDirectory := ExtractFileDir(szSoundFilename);
SoundPlayerAsyncProcess.Executable := FindDefaultExecutablePath(L[0]);
SoundPlayerAsyncProcess.Parameters.Clear;
@ -193,7 +205,7 @@ begin
else
begin
if SoundPlayerSyncProcess = nil then
SoundPlayerSyncProcess := Tprocess.Create(nil);
SoundPlayerSyncProcess := TProcess.Create(nil);
SoundPlayerSyncProcess.CurrentDirectory := ExtractFileDir(szSoundFilename);
SoundPlayerSyncProcess.Executable := FindDefaultExecutablePath(L[0]);
SoundPlayersyncProcess.Parameters.Clear;