Changeset 353 for CoolAudio/Systems/FMOD/UAudioSystemFMOD.pas

Timestamp:

Apr 23, 2012, 2:57:12 PM (13 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/FMOD/UAudioSystemFMOD.pas (modified) (3 diffs)

CoolAudio/Systems/FMOD/UAudioSystemFMOD.pas

@@ -18 +18 @@
     procedure SetOutputMode(AValue: TOutputDriver); override;
   public
+    function GetMediaPlayerDriverClass: TMediaPlayerDriverClass; override;
     constructor Create(AOwner: TComponent); override;
     destructor Destroy; override;
@@ -24 +25 @@
   { TPlayerFMOD }
 
-  TPlayerFMOD = class(TPlayer)
+  TPlayerFMOD = class(TMediaPlayerDriver)
   private
     FHandle: PFSoundStream;
@@ -61 +62 @@
     end else raise EOpenOutputFailed.Create(SOpenOutputFailed);
   {$endif}
+end;
+
+function TAudioSystemFMOD.GetMediaPlayerDriverClass: TMediaPlayerDriverClass;
+begin
+  Result := TPlayerFMOD;
 end;