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

CoolAudio/Systems/WinAPI/UAudioSystemWindows.pas

@@ -11 +11 @@
 
 type
+
+  { TAudioSystemWindows }
+
   TAudioSystemWindows = class(TAudioSystem)
   public
     PlayerIndex: Integer;
+    function GetMediaPlayerDriverClass: TMediaPlayerDriverClass; override;
   end;
 
@@ -21 +25 @@
   { TPlayerWindows }
 
-  TPlayerWindows = class(TPlayer)
+  TPlayerWindows = class(TMediaPlayerDriver)
   private
     FHandle: HWND;
@@ -47 +51 @@
     procedure Pause; override;
     procedure Stop; override;
-    constructor Create(AOwner: TComponent); override;
+    constructor Create; override;
     destructor Destroy; override;
     property DeviceType: TMPDeviceTypes read FDeviceType write SetDeviceType;
@@ -60 +64 @@
 
 implementation
+
+{ TAudioSystemWindows }
+
+function TAudioSystemWindows.GetMediaPlayerDriverClass: TMediaPlayerDriverClass;
+begin
+  Result := TPlayerWindows;
+end;
 
 {$IFDEF Windows}
@@ -175 +186 @@
   Parm: TMCI_Generic_Parms;
 begin
-  if FPlaying then begin
-    CheckError(mciSendCommand(FDeviceID, mci_Pause, FFlags, Longint(@Parm)));
-    FPlaying := False;
-  end else begin
-    CheckError(mciSendCommand(FDeviceID, mci_Resume, FFlags, Longint(@Parm)));
-    FPlaying := True;
+  if FActive then  begin
+    if FPlaying then begin
+      CheckError(mciSendCommand(FDeviceID, mci_Pause, FFlags, Longint(@Parm)));
+      FPlaying := False;
+    end else begin
+      CheckError(mciSendCommand(FDeviceID, mci_Resume, FFlags, Longint(@Parm)));
+      FPlaying := True;
+    end;
   end;
 end;
@@ -188 +201 @@
   Parm: TMCI_Generic_Parms;
 begin
-  if FPlaying then begin
+  if FActive and FPlaying then begin
     FFlags := 0;
     if FUseNotify then
@@ -206 +219 @@
 end;
 
-constructor TPlayerWindows.Create(AOwner: TComponent);
+constructor TPlayerWindows.Create;
 begin
   inherited;