paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

playsoundpackage: Fix memory leak, add support for support for mpv media player. Sourceforge issue #59, patch by sng.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9118 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2024-01-04 11:20:18 +00:00
parent 7450192040
commit 5bfe9179a8
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/playsoundpackage/latest_stable/uplaysound.pas
View File

@ -56,7 +56,7 @@ type
public
{ Public declarations }
constructor Create(AOwner: TComponent); override;
destructor Destroy; reintroduce;
destructor Destroy; override;
// This is the default method
procedure Execute;
procedure StopSound;
@ -110,6 +110,10 @@ begin
if (Result = '') then
if (FindDefaultExecutablePath('ffplay') <> '') then
result := 'ffplay -autoexit -nodisp';
// Try mpv
if (Result = '') then
if (FindDefaultExecutablePath('mpv') <> '') then
result := 'mpv --no-video --quiet';
// Try cvlc
if (Result = '') then
if (FindDefaultExecutablePath('cvlc') <> '') then