Changeset 276 for CoolAudio/Systems/UAudioSystem.pas

Timestamp:

Oct 4, 2011, 1:18:33 PM (13 years ago)

Author:

george

Message:

• Modified: MPlayer system now play audio files.

File:

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

CoolAudio/Systems/UAudioSystem.pas

@@ -15 +15 @@
   { TAudioSystem }
 
-  TAudioSystem = class
+  TAudioSystem = class(TComponent)
   protected
     FOutputDriver: TOutputDriver;
@@ -27 +27 @@
   { TPlayer }
 
-  TPlayer = class
+  TPlayer = class(TComponent)
   private
   protected
+    FFileName: string;
+    FAudioSystem: TAudioSystem;
     FPlaying: Boolean;
     function GetMuted: Boolean; virtual; abstract;
@@ -38 +40 @@
     procedure SetPosition(AValue: TDateTime); virtual; abstract;
     procedure SetVolume(AValue: Real); virtual; abstract;
+    procedure SetFileName(AValue: string); virtual;
   public
     procedure Play; virtual; abstract;
@@ -46 +49 @@
     property Volume: Real read GetVolume write SetVolume; // 0..1
     property Muted: Boolean read GetMuted write SetMuted;
+    property AudioSystem: TAudioSystem read FAudioSystem write FAudioSystem;
+    property FileName: string read FFileName write SetFileName;
     constructor Create; virtual;
   end;
@@ -56 +61 @@
 
 { TPlayer }
+
+procedure TPlayer.SetFileName(AValue: string);
+begin
+  if AValue = FFileName then Exit;
+  FFileName := AValue;
+end;
 
 constructor TPlayer.Create;
@@ -72 +83 @@
 constructor TAudioSystem.Create;
 begin
-
+  {$IFDEF Windows}
+  FOutputDriver := omWin32;
+  {$ENDIF}
+  {$IFDEF Linux}
+  FOutputDriver := omAlsa;
+  {$ENDIF}
 end;