Changeset 276 for CoolAudio/Demo/UMainForm.pas

Timestamp:

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

Author:

george

Message:

• Modified: MPlayer system now play audio files.

Location:

CoolAudio/Demo

Files:

• . (modified) (1 prop)
• UMainForm.pas (modified) (4 diffs)

CoolAudio/Demo

@@ -2 +2 @@
 11-seal-amazing.mp3
 lib
+Demo.exe

@@ -2 +2 @@
 11-seal-amazing.mp3
 lib
+Demo.exe

CoolAudio/Demo/UMainForm.pas

@@ -19 +19 @@
     ButtonPause: TButton;
     Edit1: TEdit;
+    OpenDialog1: TOpenDialog;
     TrackBar1: TTrackBar;
+    procedure Button1Click(Sender: TObject);
     procedure ButtonPauseClick(Sender: TObject);
     procedure ButtonPlayClick(Sender: TObject);
@@ -43 +45 @@
 procedure TMainForm.FormCreate(Sender: TObject);
 begin
-  AudioSystem := TFMODAudioSystem.Create;
-  Player := TFMODPlayer.Create;
+  AudioSystem := TAudioSystemMPlayer.Create;
+  TAudioSystemMPlayer(AudioSystem).Path := 'c:\Program Files\SMPlayer\mplayer\mplayer.exe';
+  Player := TPlayerMPlayer.Create;
+  Player.AudioSystem := AudioSystem;
 end;
 
@@ -55 +59 @@
 procedure TMainForm.ButtonPlayClick(Sender: TObject);
 begin
+  Player.FileName := Edit1.Text;
   Player.Play;
 end;
@@ -68 +73 @@
 end;
 
+procedure TMainForm.Button1Click(Sender: TObject);
+begin
+  if OpenDialog1.Execute then Edit1.Text := OpenDialog1.FileName;
+end;
+
 end.
 

@@ -2 +2 @@
 11-seal-amazing.mp3
 lib
+Demo.exe