Changeset 353 for CoolAudio/Systems/mplayer/UAudioSystemMPlayer.pas

Timestamp:

Apr 23, 2012, 2:57:12 PM (12 years ago)

Author:

chronos

Message:

• Modified: TPlayList is now registred as component in group CoolAudio in Component pallete.
• Added: Created placeholder component TMediaPlayer which can be switched to different audio systems in runtime without destruction/construction.

File:

• CoolAudio/Systems/mplayer/UAudioSystemMPlayer.pas (modified) (5 diffs)

CoolAudio/Systems/mplayer/UAudioSystemMPlayer.pas

@@ -30 +30 @@
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
+    function GetMediaPlayerDriverClass: TMediaPlayerDriverClass; override;
     property Path: string read FPath write FPath;
   end;
@@ -35 +36 @@
   { TPlayerMPlayer }
 
-  TPlayerMPlayer = class(TPlayer)
+  TPlayerMPlayer = class(TMediaPlayerDriver)
   private
     FProcess: TProcess;
@@ -53 +54 @@
     procedure Pause; override;
     procedure Stop; override;
-    constructor Create(AOwner: TComponent); override;
+    constructor Create; override;
     destructor Destroy; override;
   end;
@@ -127 +128 @@
 end;
 
+function TAudioSystemMPlayer.GetMediaPlayerDriverClass: TMediaPlayerDriverClass;
+begin
+  Result := TPlayerMPlayer;
+end;
+
 { TPlayerMPlayer }
 
@@ -291 +297 @@
 end;
 
-constructor TPlayerMPlayer.Create(AOwner: TComponent);
+constructor TPlayerMPlayer.Create;
 begin
   inherited;