Changeset 280 for CoolAudio/Systems/UAudioSystem.pas

Timestamp:

Oct 5, 2011, 12:40:56 PM (13 years ago)

Author:

george

Message:

• Added: Support for play, stop, pause, seek of Windows mmsystem backend.

File:

• CoolAudio/Systems/UAudioSystem.pas (modified) (5 diffs)

CoolAudio/Systems/UAudioSystem.pas

@@ -31 +31 @@
   TPlayer = class(TComponent)
   private
-    procedure SetPlaying(AValue: Boolean);
   protected
+    FActive: Boolean;
     FFileName: string;
     FAudioSystem: TAudioSystem;
     FPlaying: Boolean;
-    function GetMuted: Boolean; virtual; abstract;
-    procedure SetMuted(AValue: Boolean); virtual; abstract;
-    function GetLength: TDateTime; virtual; abstract;
-    function GetPosition: TDateTime; virtual; abstract;
-    function GetVolume: Real; virtual; abstract;
-    procedure SetPosition(AValue: TDateTime); virtual; abstract;
-    procedure SetVolume(AValue: Real); virtual; abstract;
+    procedure SetActive(AValue: Boolean); virtual;
+    procedure SetPlaying(AValue: Boolean); virtual;
+    function GetMuted: Boolean; virtual;
+    procedure SetMuted(AValue: Boolean); virtual;
+    function GetLength: TDateTime; virtual;
+    function GetPosition: TDateTime; virtual;
+    function GetVolume: Real; virtual;
+    procedure SetPosition(AValue: TDateTime); virtual;
+    procedure SetVolume(AValue: Real); virtual;
     procedure SetFileName(AValue: string); virtual;
   public
-    procedure Play; virtual; abstract;
-    procedure Pause; virtual; abstract;
-    procedure Stop; virtual; abstract;
+    procedure Play; virtual;
+    procedure Pause; virtual;
+    procedure Stop; virtual;
+    procedure Open; virtual;
+    procedure Close; virtual;
     property Position: TDateTime read GetPosition write SetPosition;
     property Length: TDateTime read GetLength;
@@ -55 +59 @@
     property FileName: string read FFileName write SetFileName;
     property Playing: Boolean read FPlaying write SetPlaying;
+    property Active: Boolean read FActive write SetActive;
     constructor Create; virtual;
+    destructor Destroy; override;
   end;
 
@@ -125 +131 @@
 { TPlayer }
 
+procedure TPlayer.SetActive(AValue: Boolean);
+begin
+  if FActive = AValue then Exit;
+  FActive := AValue;
+end;
+
 procedure TPlayer.SetPlaying(AValue: Boolean);
 begin
@@ -131 +143 @@
 end;
 
+function TPlayer.GetMuted: Boolean;
+begin
+  Result := False;
+end;
+
+procedure TPlayer.SetMuted(AValue: Boolean);
+begin
+end;
+
+function TPlayer.GetLength: TDateTime;
+begin
+  Result := 0;
+end;
+
+function TPlayer.GetPosition: TDateTime;
+begin
+  Result := 0;
+end;
+
+function TPlayer.GetVolume: Real;
+begin
+  Result := 0;
+end;
+
+procedure TPlayer.SetPosition(AValue: TDateTime);
+begin
+end;
+
+procedure TPlayer.SetVolume(AValue: Real);
+begin
+end;
+
 procedure TPlayer.SetFileName(AValue: string);
 begin
@@ -137 +181 @@
 end;
 
+procedure TPlayer.Play;
+begin
+end;
+
+procedure TPlayer.Pause;
+begin
+end;
+
+procedure TPlayer.Stop;
+begin
+end;
+
+procedure TPlayer.Open;
+begin
+  Active := True;
+end;
+
+procedure TPlayer.Close;
+begin
+  Active := False;
+end;
+
 constructor TPlayer.Create;
 begin
-
+end;
+
+destructor TPlayer.Destroy;
+begin
+  Active := False;
+  inherited Destroy;
 end;