Changeset 278 for CoolAudio/Systems

Timestamp:

Oct 4, 2011, 4:12:38 PM (13 years ago)

Author:

george

Message:

• Added: Base classes for Windows audio using mmsystem unit.
• Added: Audio system manger class for supported systems management.

Location:

CoolAudio/Systems

Files:

• UAudioSystem.pas (modified) (4 diffs)
• UAudioSystemWindows.pas (added)

CoolAudio/Systems/UAudioSystem.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils; 
+  Classes, SysUtils, Contnrs;
 
 type
@@ -24 +24 @@
     property OutputMode: TOutputDriver read FOutputDriver write SetOutputMode;
   end;
+
+  TAudioSystemClass = class of TAudioSystem;
 
   { TPlayer }
@@ -56 +58 @@
   end;
 
+  TPlayerClass = class of TPlayer;
+
+  { TAudioSystemManagerItem }
+
+  TAudioSystemManagerItem = class
+    Name: string;
+    SystemClass: TAudioSystemClass;
+    PlayerClass: TPlayerClass;
+  end;
+
+  { TAudioSystemManager }
+
+  TAudioSystemManager = class
+    Systems: TObjectList; // TListObject<TAudioSystem>
+    procedure Register(Name: string; SystemClass: TAudioSystemClass;
+      PlayerClass: TPlayerClass);
+    procedure FillStringList(StringList: TStrings);
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
 resourcestring
   SOpenOutputFailed = 'Failed opening audio output';
@@ -61 +84 @@
 
 implementation
+
+{ TAudioSystemManagerItem }
+
+
+{ TAudioSystemManager }
+
+procedure TAudioSystemManager.FillStringList(StringList: TStrings);
+var
+  I: Integer;
+begin
+  StringList.Clear;
+  for I := 0 to Systems.Count - 1 do
+  with TAudioSystemManagerItem(Systems[I]) do
+    StringList.AddObject(Name, Systems[I]);
+end;
+
+procedure TAudioSystemManager.Register(Name: string;
+  SystemClass: TAudioSystemClass; PlayerClass: TPlayerClass);
+var
+  NewItem: TAudioSystemManagerItem;
+begin
+  NewItem := TAudioSystemManagerItem.Create;
+  NewItem.Name := Name;
+  NewItem.SystemClass := SystemClass;
+  NewItem.PlayerClass := PlayerClass;
+  Systems.Add(NewItem);
+end;
+
+constructor TAudioSystemManager.Create;
+begin
+  Systems := TObjectList.Create;
+end;
+
+destructor TAudioSystemManager.Destroy;
+begin
+  Systems.Free;
+  inherited Destroy;
+end;
 
 { TPlayer }