Changeset 280 for CoolAudio/Demo/UMainForm.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/Demo/UMainForm.pas (modified) (3 diffs)

CoolAudio/Demo/UMainForm.pas

@@ -54 +54 @@
 begin
   AudioSystemManager.FillStringList(ComboBox1.Items);
-  AudioSystem := TAudioSystemMPlayer.Create;
-  TAudioSystemMPlayer(AudioSystem).Path := 'c:\Program Files\SMPlayer\mplayer\mplayer.exe';
-  TAudioSystemMPlayer(AudioSystem).Path := TAudioSystemMPlayer(AudioSystem).FindPath;
-  Player := TPlayerMPlayer.Create;
-  Player.AudioSystem := AudioSystem;
+  if ComboBox1.Items.Count > 0 then
+    ComboBox1.ItemIndex := 0;
+  ComboBox1Change(Self);
 end;
 
 procedure TMainForm.FormDestroy(Sender: TObject);
 begin
-  Player.Free;
-  AudioSystem.Free;
+  FreeAndNil(Player);
+  FreeAndNil(AudioSystem);
 end;
 
 procedure TMainForm.TimerPlaybackTimer(Sender: TObject);
 begin
-  if Player.Playing then begin
+  if Assigned(Player) and Player.Playing then begin
     TrackBar1.OnChange := nil;
     TrackBar1.Position := Trunc(Player.Position / Player.Length * TrackBar1.Max);
@@ -96 +94 @@
 procedure TMainForm.ComboBox1Change(Sender: TObject);
 begin
-  Player.Free;
-  AudioSystem.Free;
+  FreeAndNil(Player);
+  FreeAndNil(AudioSystem);
   if ComboBox1.ItemIndex <> - 1 then begin
     with TAudioSystemManagerItem(ComboBox1.Items.Objects[ComboBox1.ItemIndex]) do begin
@@ -103 +101 @@
       Player := PlayerClass.Create;
       Player.AudioSystem := AudioSystem;
+      //Player.Active := True;
     end;
   end;