Changeset 278 for CoolAudio/Demo/UMainForm.pas

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.

File:

• CoolAudio/Demo/UMainForm.pas (modified) (5 diffs)

CoolAudio/Demo/UMainForm.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  ComCtrls, ExtCtrls, UAudioSystem, UAudioSystemFMOD, UAudioSystemMPlayer;
+  ComCtrls, ExtCtrls, UAudioSystem, UAudioSystemFMOD, UAudioSystemMPlayer,
+  UCoolAudio;
 
 type
@@ -18 +19 @@
     ButtonPlay: TButton;
     ButtonPause: TButton;
+    ComboBox1: TComboBox;
     Edit1: TEdit;
+    Label1: TLabel;
     OpenDialog1: TOpenDialog;
     TimerPlayback: TTimer;
@@ -26 +29 @@
     procedure ButtonPlayClick(Sender: TObject);
     procedure ButtonStopClick(Sender: TObject);
+    procedure ComboBox1Change(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -48 +52 @@
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
+  AudioSystemManager.FillStringList(ComboBox1.Items);
   AudioSystem := TAudioSystemMPlayer.Create;
   TAudioSystemMPlayer(AudioSystem).Path := 'c:\Program Files\SMPlayer\mplayer\mplayer.exe';
@@ -85 +90 @@
 end;
 
+procedure TMainForm.ComboBox1Change(Sender: TObject);
+begin
+  Player.Free;
+  AudioSystem.Free;
+  if ComboBox1.ItemIndex <> - 1 then begin
+    with TAudioSystemManagerItem(ComboBox1.Items.Objects[ComboBox1.ItemIndex]) do begin
+      AudioSystem := SystemClass.Create;
+      Player := PlayerClass.Create;
+      Player.AudioSystem := AudioSystem;
+    end;
+  end;
+end;
+
 procedure TMainForm.ButtonPauseClick(Sender: TObject);
 begin