Changeset 353 for CoolAudio/Systems/DSP/UAudioSystemDSP.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/DSP/UAudioSystemDSP.pas (modified) (2 diffs)

CoolAudio/Systems/DSP/UAudioSystemDSP.pas

@@ -21 +21 @@
     SampleRate: Integer; // Hz
     BitsPerSample: Integer;
+    function GetMediaPlayerDriverClass: TMediaPlayerDriverClass; override;
     procedure OpenDevice;
     procedure CloseDevice;
@@ -74 +75 @@
 
 { TAudioSystemDSP }
+
+function TAudioSystemDSP.GetMediaPlayerDriverClass: TMediaPlayerDriverClass;
+begin
+  Result := TPlayerDSP;
+end;
 
 procedure TAudioSystemDSP.OpenDevice;