Changeset 276 for CoolAudio/Systems

Timestamp:

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

Author:

george

Message:

• Modified: MPlayer system now play audio files.

Location:

CoolAudio/Systems

Files:

• UAudioSystem.pas (modified) (6 diffs)
• UAudioSystemFMOD.pas (modified) (8 diffs)
• UAudioSystemMPlayer.pas (modified) (6 diffs)
• fmod (added)
• mplayer (added)

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;
 

CoolAudio/Systems/UAudioSystemFMOD.pas

@@ -10 +10 @@
 type
 
-  { TFMODAudioSystem }
+  { TAudioSystemFMOD }
 
-  TFMODAudioSystem = class(TAudioSystem)
+  TAudioSystemFMOD = class(TAudioSystem)
   private
     procedure SetOutputMode(AValue: TOutputDriver); override;
@@ -20 +20 @@
   end;
 
-  { TFMODPlayer }
+  { TPlayerFMOD }
 
-  TFMODPlayer = class(TPlayer)
+  TPlayerFMOD = class(TPlayer)
   private
     FHandle: PFSoundStream;
@@ -41 +41 @@
 implementation
 
-{ TFMODAudioSystem }
+{ TAudioSystemFMOD }
 
-procedure TFMODAudioSystem.SetOutputMode(AValue: TOutputDriver);
+procedure TAudioSystemFMOD.SetOutputMode(AValue: TOutputDriver);
 begin
   inherited SetOutputMode(AValue);
@@ -56 +56 @@
 end;
 
-constructor TFMODAudioSystem.Create;
+constructor TAudioSystemFMOD.Create;
 begin
   inherited Create;
@@ -64 +64 @@
 end;
 
-destructor TFMODAudioSystem.Destroy;
+destructor TAudioSystemFMOD.Destroy;
 begin
   FMOD_Unload;
@@ -70 +70 @@
 end;
 
-{ TFMODPlayer }
+{ TPlayerFMOD }
 
-function TFMODPlayer.GetLength: TDateTime;
+function TPlayerFMOD.GetLength: TDateTime;
 begin
   Result := FVolume;
 end;
 
-function TFMODPlayer.GetPosition: TDateTime;
+function TPlayerFMOD.GetPosition: TDateTime;
 begin
 
 end;
 
-function TFMODPlayer.GetVolume: Real;
+function TPlayerFMOD.GetVolume: Real;
 begin
   Result := FSOUND_GetVolume(0) / 256;
 end;
 
-function TFMODPlayer.GetMuted: Boolean;
+function TPlayerFMOD.GetMuted: Boolean;
 begin
   Result := FSOUND_GetMute(0);
 end;
 
-procedure TFMODPlayer.SetPosition(AValue: TDateTime);
+procedure TPlayerFMOD.SetPosition(AValue: TDateTime);
 begin
   if FPlaying then FSOUND_Stream_SetPosition(FHandle, Trunc(AValue / OneMillisecond));
 end;
 
-procedure TFMODPlayer.SetVolume(AValue: Real);
+procedure TPlayerFMOD.SetVolume(AValue: Real);
 begin
   FSOUND_SetVolume(0, Trunc(AValue * 256));
 end;
 
-procedure TFMODPlayer.SetMuted(AValue: Boolean);
+procedure TPlayerFMOD.SetMuted(AValue: Boolean);
 begin
   FSOUND_SetMute(0, AValue)
 end;
 
-procedure TFMODPlayer.Play;
+procedure TPlayerFMOD.Play;
 begin
   //FHandle := FSOUND_Stream_Open(tmpp, FSOUND_NONBLOCKING, 0, 0);
@@ -113 +113 @@
 end;
 
-procedure TFMODPlayer.Pause;
+procedure TPlayerFMOD.Pause;
 begin
   if FPlaying then
@@ -119 +119 @@
 end;
 
-procedure TFMODPlayer.Stop;
+procedure TPlayerFMOD.Stop;
 begin
   if FPlaying then begin

CoolAudio/Systems/UAudioSystemMPlayer.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UAudioSystem;
+  Classes, SysUtils, UAudioSystem, Process, Math, Dialogs;
+
+const
+{$ifdef Unix}
+  MPlayerExecutableName = 'mplayer';
+{$endif}
+{$ifdef Windows}
+  MPlayerExecutableName = 'mplayer.exe';
+{$endif}
 
 type
@@ -13 +21 @@
   TAudioSystemMPlayer = class(TAudioSystem)
   private
+    FPath: string;
     procedure SetOutputMode(AValue: TOutputDriver); override;
+    function FindPath: string;
   public
     constructor Create; override;
     destructor Destroy; override;
+    property Path: string read FPath write FPath;
   end;
 
@@ -23 +34 @@
   TPlayerMPlayer = class(TPlayer)
   private
+    FProcess: TProcess;
+    FProcessActive: Boolean;
+    FPlaying: Boolean;
     FVolume: Real;
+    function GetProcessOutput: string;
+    procedure SendCommand(Command: string);
     function GetLength: TDateTime; override;
     function GetPosition: TDateTime; override;
@@ -31 +47 @@
     procedure SetVolume(AValue: Real); override;
     procedure SetMuted(AValue: Boolean); override;
+    procedure SetFileName(AValue: string); override;
   public
     procedure Play; override;
     procedure Pause; override;
     procedure Stop; override;
-  end;
-
+    constructor Create; override;
+    destructor Destroy; override;
+  end;
+
+resourcestring
+  SMPlayerNotFound = 'MPlayer executable not found. Make sure it is properly installed in binary path';
+  SSendCommandException = 'Exception occured during sending command to MPlayer';
+  SErrorReadingOutput = 'Exception while reading MPlayer output';
+  SCantStopProcess = 'Can''t stop Mplayer process';
 
 implementation
@@ -47 +71 @@
 end;
 
+function TAudioSystemMPlayer.FindPath: string;
+var
+  tmps: string;
+  tmppath: string;
+  I: Integer;
+begin
+  Result := '';
+  {$ifdef Darwin}
+  {$else}
+  // Searches for MPlayer in the PATH
+  tmps := GetEnvironmentVariable('PATH');
+  repeat
+    I := pos(':', tmps);
+    if I = 0 then I := Length(tmps);
+    tmppath := IncludeTrailingPathDelimiter(Copy(tmps, 0, I - 1)) + MPlayerExecutableName;
+    if FileExists(tmppath) then Result := tmppath
+      else Delete(tmps, 1, I);
+  until (Length(tmps) <= 1) or (Result <> '');
+  {$endif}
+  if Result = '' then raise Exception.Create(SMPlayerNotFound);
+end;
+
 constructor TAudioSystemMPlayer.Create;
 begin
   inherited Create;
+  FPath := '';
 end;
 
@@ -59 +106 @@
 { TPlayerMPlayer }
 
+procedure TPlayerMPlayer.SendCommand(Command: string);
+begin
+  Command := Command + LineEnding;// #10; // MPLayer always needs #10 as Lineending, no matter if win32 or linux
+  try
+    if FProcessActive then FProcess.Input.Write(Command[1], System.Length(Command));
+  except
+    raise Exception.Create(SSendCommandException);
+  end;
+end;
+
 function TPlayerMPlayer.GetLength: TDateTime;
 begin
-  Result:=inherited GetLength;
 end;
 
 function TPlayerMPlayer.GetPosition: TDateTime;
-begin
-  Result:=inherited GetPosition;
+var
+  tmps: string;
+  I: Integer;
+  Time: Real;
+begin
+  if FProcess.Running then begin
+    I := 0;
+    repeat
+      SendCommand('get_property time_pos');
+      Sleep(8);
+      tmps := GetProcessOutput;
+      Inc(I);
+    until (Pos('time_pos', tmps) > 0) or (I >= 3);
+    I := LastDelimiter('=', tmps);
+    if I > 0 then begin
+      Time := StrToFloat(Copy(tmps, I + 1, System.Length(tmps)));
+      Time := Time * 1000;
+      Result := Round(Time);
+    end else Result := -1;
+  end else Result := -1;
 end;
 
 function TPlayerMPlayer.GetVolume: Real;
 begin
-  Result:=inherited GetVolume;
 end;
 
 function TPlayerMPlayer.GetMuted: Boolean;
-begin
-  Result:=inherited GetMuted;
+var
+  tmps, s: string;
+  I: Integer;
+begin
+  if FPlaying and FProcess.Running then begin
+    repeat
+      SendCommand('get_property mute');
+      Sleep(5);
+      tmps := GetProcessOutput;
+    until Pos('mute', tmps) > 0;
+    i := LastDelimiter('=', tmps);
+    if i > 0 then begin
+      s := Copy(tmps, i + 1, System.Length(tmps) - i);
+      Result := s = 'yes';
+    end;
+  end;
 end;
 
 procedure TPlayerMPlayer.SetPosition(AValue: TDateTime);
 begin
-  inherited SetPosition(AValue);
 end;
 
 procedure TPlayerMPlayer.SetVolume(AValue: Real);
 begin
-  inherited SetVolume(AValue);
+  if FVolume = AValue then Exit;
+  FVolume := AValue;
+  if FPlaying and FProcess.Running then begin
+    if AValue < 0 then AValue := 0;
+    if AValue > 1 then AValue := 1;
+    SendCommand('set_property volume ' + IntToStr(Round(AValue * 100)) + '/1');
+  end;
 end;
 
 procedure TPlayerMPlayer.SetMuted(AValue: Boolean);
 begin
-  inherited SetMuted(AValue);
+  if FPlaying and FProcess.Running then
+    SendCommand('mute');
+end;
+
+procedure TPlayerMPlayer.SetFileName(AValue: string);
+begin
+  inherited SetFileName(AValue);
+end;
+
+function IntTodB(I, Ref: Longint): Integer;
+var
+  dB: Real;
+begin
+  if I = 0 then db := 0.001 else dB := I;
+  dB := 20 * log10(dB / ref);
+  Result := Round(dB);
 end;
 
 procedure TPlayerMPlayer.Play;
-begin
-  inherited Play;
+var
+  MPOptions: String;
+  Vol: Real;
+begin
+  if FPlaying then Stop;
+  //FProcess := TProcess.Create(nil);
+  MPOptions := '-slave -quiet -softvol';
+  if AudioSystem.OutputMode = omAlsa then MPOptions := MPOptions + ' -ao alsa';
+  if AudioSystem.OutputMode = omOSS then MPOptions := MPOptions + ' -ao oss';
+  if AudioSystem.OutputMode = omWin32 then MPOptions := MPOptions + ' -ao win32';
+  if AudioSystem.OutputMode = omDirectX then MPOptions := MPOptions + ' -ao dsound';
+
+  //MPOptions := '-af volume=' + IntToStr(IntTodB(Round(FVolume * 100), 100)) + ' ' + MPOptions;// -volume xx only supported with patched mplayer;
+
+  FProcess.CommandLine := TAudioSystemMPlayer(AudioSystem).FPath + ' ' + MPOptions + ' "' + FFileName + '"';
+  FProcess.Options := FProcess.Options + [poUsePipes, poDefaultErrorMode, poStderrToOutPut, poNoConsole];
+  //InputBox('', '', FProcess.CommandLine);
+  FProcess.Execute;
+
+  if FProcess.Running then begin
+    FPlaying := True;
+  end;
 end;
 
 procedure TPlayerMPlayer.Pause;
 begin
-  inherited Pause;
+  if FPlaying then begin
+    SendCommand('pause');
+    Sleep(10);
+    //FPaused := not FPaused;
+  end;
 end;
 
 procedure TPlayerMPlayer.Stop;
 begin
-  inherited Stop;
+  if FPlaying then begin
+    SendCommand('quit');
+    Sleep(15);
+    if FProcess.Running then begin
+      Sleep(50);
+      if FProcess.Running then
+        if not FProcess.Terminate(0) then
+          raise Exception.Create(SCantStopProcess);
+    end;
+  end;
+  FPlaying := False;
+end;
+
+constructor TPlayerMPlayer.Create;
+begin
+  inherited Create;
+  FProcess := TProcess.Create(nil);
+end;
+
+destructor TPlayerMPlayer.Destroy;
+begin
+  Stop;
+  FProcess.Free;
+  inherited Destroy;
+end;
+
+function TPlayerMPlayer.GetProcessOutput: string;
+var
+  AStringList: TStringList;
+begin
+  try
+    AStringList:=TStringList.Create;
+    try
+      if FProcess.Running then AStringList.LoadFromStream(FProcess.Output);
+      if AStringList.Count > 0 then
+        Result := AStringList.Strings[0]
+        else Result := '';
+    except
+      Result := '';
+      raise Exception.Create(SErrorReadingOutput);
+    end;
+  finally
+    AStringList.Free;
+  end;
 end;