added UAudio_FFMpeg.pas as placeholder... ( Still has bass code in it.. needs to be replaced with ffmpeg code )

UMusic ( And UAudio* ) files, now have proper IAudioPlayback and IAudioInput Interface enumeration.

simply having the unit in the uses clause will make it available.


git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@506 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 80 insertions, 146 deletions

diff --git a/Game/Code/Classes/UMusic_BASS.pas b/Game/Code/Classes/UAudio_bass.pas
index 7de2d781..cbeadc47 100644
--- a/Game/Code/Classes/UMusic_BASS.pas
+++ b/Game/Code/Classes/UAudio_bass.pas
@@ -1,21 +1,16 @@
-unit UMusic_BASS;
+unit UAudio_bass;
 
 interface
 
-{$I switches.inc}
-
 {$IFDEF FPC}
   {$MODE Delphi}
 {$ENDIF}
 
 
 uses Classes,
-
      {$IFDEF win32}
      windows,
      {$ENDIF}
-
-//     UCommon,
      Messages,
      SysUtils,
      {$IFNDEF FPC}
@@ -25,14 +20,30 @@ uses Classes,
      bass,
      ULog,
      UMusic;
-//     USongs;
-//     Classes;
 
+implementation
+
+uses
+     {$IFDEF FPC}
+     lclintf,
+     {$ENDIF}
+     URecord,
+     UIni,
+     UMain,
+     UThemes;
 
+const
+  RecordSystem = 1;
 
 type
+  TMPModes = (mpNotReady, mpStopped, mpPlaying, mpRecording, mpSeeking,
+    mpPaused, mpOpen);
 
-  TMusic_bass = class( TInterfacedObject, IAudioPlayback, IAudioInput )
+const
+  ModeStr:  array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');
+
+type
+    TAudio_bass = class( TInterfacedObject, IAudioPlayback, IAudioInput )
     private
       BassStart:          hStream;            // Wait, I've replaced this with BASS
       BassBack:           hStream;            // It has almost all features we need
@@ -53,6 +64,7 @@ type
 
     public
       Bass: hStream;
+      function  GetName: String;
       procedure InitializePlayback;
       procedure InitializeRecord;
       procedure SetVolume(Volume: integer);
@@ -93,37 +105,15 @@ type
       procedure PlayCustomSound(const Index: Cardinal );
 end;
 
-const
-  RecordSystem = 1;
-
-type
-  TMPModes = (mpNotReady, mpStopped, mpPlaying, mpRecording, mpSeeking,
-    mpPaused, mpOpen);
-
-const
-  ModeStr:  array[TMPModes] of string = ('Not ready', 'Stopped', 'Playing', 'Recording', 'Seeking', 'Paused', 'Open');
-
-implementation
-
-uses
-     {$IFDEF FPC}
-     lclintf,
-     {$ENDIF}
-     
-//     avcodec,
-//     avformat,
-//     avutil,
-
-//     UGraphic,
-     URecord,
-//     UFiles,
-     UIni,
-     UMain,
-     UThemes;
-
+var
+  singleton_MusicBass : IAudioPlayback;
 
+function  TAudio_bass.GetName: String;
+begin
+  result := 'BASS';

+end;
 
-procedure TMusic_bass.InitializePlayback;
+procedure TAudio_bass.InitializePlayback;
 var
   Pet:  integer;
   S:    integer;
@@ -139,7 +129,6 @@ begin
   fHWND  := AllocateHWND( nil); // TODO : JB_lazarus - can we do something different here ?? lazarus didnt like this function
   {$ENDIF}
 
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   if not BASS_Init(1, 44100, 0, fHWND, nil) then
   begin
@@ -149,7 +138,6 @@ begin
     {$ENDIF}
     Exit;
   end;
-  {$ENDIF}
 
   Log.BenchmarkEnd(4); Log.LogBenchmark('--> Bass Init', 4);
 
@@ -177,7 +165,7 @@ begin
   Log.LogBenchmark('--> Loading Sounds', 4);
 end;
 
-procedure TMusic_bass.InitializeRecord;
+procedure TAudio_bass.InitializeRecord;
 var
   S:        integer;
   device:   integer;
@@ -252,21 +240,20 @@ begin
   end; // if
 end;
 
-procedure TMusic_bass.SetVolume(Volume: integer);
+procedure TAudio_bass.SetVolume(Volume: integer);
 begin
   //Old Sets Wave Volume
   //BASS_SetVolume(Volume);
   //New: Sets Volume only for this Application
 
-  {$IFDEF useBASS}
+
   // TODO : jb_linux replace with something other than bass
   BASS_SetConfig(BASS_CONFIG_GVOL_SAMPLE, Volume);
   BASS_SetConfig(BASS_CONFIG_GVOL_STREAM, Volume);
   BASS_SetConfig(BASS_CONFIG_GVOL_MUSIC, Volume);
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.SetMusicVolume(Volume: Integer);
+procedure TAudio_bass.SetMusicVolume(Volume: Integer);
 begin
   //Max Volume Prevention
   if Volume > 100 then
@@ -277,26 +264,22 @@ begin
 
 
   //Set Volume
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   BASS_ChannelSetAttributes (Bass, -1, Volume, -101);
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.SetLoop(Enabled: boolean);
+procedure TAudio_bass.SetLoop(Enabled: boolean);
 begin
   Loop := Enabled;
 end;
 
-function TMusic_bass.Open(Name: string): boolean;
+function TAudio_bass.Open(Name: string): boolean;
 begin
   Loaded := false;
   if FileExists(Name) then
   begin
-    {$IFDEF useBASS}
     // TODO : jb_linux replace with something other than bass
     Bass := Bass_StreamCreateFile(false, pchar(Name), 0, 0, 0);
-    {$ENDIF}
     
     Loaded := true;
     //Set Max Volume
@@ -306,191 +289,153 @@ begin
   Result := Loaded;
 end;
 
-procedure TMusic_bass.Rewind;
+procedure TAudio_bass.Rewind;
 begin
   if Loaded then begin
   end;
 end;
 
-procedure TMusic_bass.MoveTo(Time: real);
+procedure TAudio_bass.MoveTo(Time: real);
 var
   bytes:    integer;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   bytes := BASS_ChannelSeconds2Bytes(Bass, Time);
   BASS_ChannelSetPosition(Bass, bytes);
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.Play;
+procedure TAudio_bass.Play;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   if Loaded then
   begin
     if Loop then
-      BASS_ChannelPlay(Bass, True); // start from beginning... actually bass itself does not loop, nor does this TMusic_bass Class
+      BASS_ChannelPlay(Bass, True); // start from beginning... actually bass itself does not loop, nor does this TAudio_bass Class
 
     BASS_ChannelPlay(Bass, False); // for setting position before playing
   end;
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.Pause; //Pause Mod
+procedure TAudio_bass.Pause; //Pause Mod
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   if Loaded then begin
     BASS_ChannelPause(Bass); // Pauses Song
   end;
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.Stop;
+procedure TAudio_bass.Stop;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   Bass_ChannelStop(Bass);
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.Close;
+procedure TAudio_bass.Close;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   Bass_StreamFree(Bass);
-  {$ENDIF}
 end;
 
-function TMusic_bass.Length: real;
+function TAudio_bass.Length: real;
 var
   bytes:    integer;
 begin
   Result := 60;
 
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   bytes  := BASS_ChannelGetLength(Bass);
   Result := BASS_ChannelBytes2Seconds(Bass, bytes);
-  {$ENDIF}
 end;
 
-function TMusic_bass.Position: real;
+function TAudio_bass.Position: real;
 var
   bytes:    integer;
 begin
   Result := 0;
 
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   bytes  := BASS_ChannelGetPosition(BASS);
   Result := BASS_ChannelBytes2Seconds(BASS, bytes);
-  {$ENDIF}
 end;
 
-function TMusic_bass.Finished: boolean;
+function TAudio_bass.Finished: boolean;
 begin
   Result := false;
 
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   if BASS_ChannelIsActive(BASS) = BASS_ACTIVE_STOPPED then
   begin
     Result := true;
   end;
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.PlayStart;
+procedure TAudio_bass.PlayStart;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   BASS_ChannelPlay(BassStart, True);
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.PlayBack;
+procedure TAudio_bass.PlayBack;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   BASS_ChannelPlay(BassBack, True);// then
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.PlaySwoosh;
+procedure TAudio_bass.PlaySwoosh;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   BASS_ChannelPlay(BassSwoosh, True);
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.PlayChange;
+procedure TAudio_bass.PlayChange;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   BASS_ChannelPlay(BassChange, True);
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.PlayOption;
+procedure TAudio_bass.PlayOption;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   BASS_ChannelPlay(BassOption, True);
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.PlayClick;
+procedure TAudio_bass.PlayClick;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   BASS_ChannelPlay(BassClick, True);
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.PlayDrum;
+procedure TAudio_bass.PlayDrum;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   BASS_ChannelPlay(BassDrum, True);
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.PlayHihat;
+procedure TAudio_bass.PlayHihat;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   BASS_ChannelPlay(BassHihat, True);
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.PlayClap;
+procedure TAudio_bass.PlayClap;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   BASS_ChannelPlay(BassClap, True);
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.PlayShuffle;
+procedure TAudio_bass.PlayShuffle;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   BASS_ChannelPlay(BassShuffle, True);
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.StopShuffle;
+procedure TAudio_bass.StopShuffle;
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   BASS_ChannelStop(BassShuffle);
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.CaptureStart;
+procedure TAudio_bass.CaptureStart;
 var
   S:        integer;
   SC:       integer;
@@ -510,7 +455,7 @@ begin
   end;
 end;
 
-procedure TMusic_bass.CaptureStop;
+procedure TAudio_bass.CaptureStop;
 var
   SC:   integer;
   P1:       integer;
@@ -527,15 +472,12 @@ begin
 
 end;
 
-//procedure TMusic_bass.CaptureCard(RecordI, SoundNum, PlayerLeft, PlayerRight: byte);
-procedure TMusic_bass.CaptureCard(RecordI, PlayerLeft, PlayerRight: byte);
+//procedure TAudio_bass.CaptureCard(RecordI, SoundNum, PlayerLeft, PlayerRight: byte);
+procedure TAudio_bass.CaptureCard(RecordI, PlayerLeft, PlayerRight: byte);
 var
   Error:      integer;
   ErrorMsg:   string;
 begin
-  {$IFDEF useBASS}
-  // TODO : jb_linux replace with something other than bass
-
   if not BASS_RecordInit(RecordI) then
   begin
     Error := BASS_ErrorGetCode;
@@ -560,20 +502,16 @@ begin
   begin
     Recording.SoundCard[RecordI].BassRecordStream := BASS_RecordStart(44100, 2, MakeLong(0, 20) , @GetMicrophone, PlayerLeft + PlayerRight*256);
   end;
-  
-  {$ENDIF}
 end;
 
-procedure TMusic_bass.StopCard(Card: byte);
+procedure TAudio_bass.StopCard(Card: byte);
 begin
-  {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
   BASS_RecordSetDevice(Card);
   BASS_RecordFree;
-  {$ENDIF}
 end;
 
-function TMusic_bass.LoadSoundFromFile(var hStream: hStream; Name: string): boolean;
+function TAudio_bass.LoadSoundFromFile(var hStream: hStream; Name: string): boolean;
 var
   L: Integer;
 begin
@@ -581,15 +519,9 @@ begin
   begin
     Log.LogStatus('Loading Sound: "' + Name + '"', 'LoadSoundFromFile');
     try
-      {$IFDEF useBASS}
       // TODO : jb_linux replace with something other than bass
       hStream := BASS_StreamCreateFile(False, pchar(Name), 0, 0, 0);
-      {$ELSE}
-      hStream := FFMPeg_StreamCreateFile(False, pchar(Name) );
-      {$ENDIF}
-      
 
-      
       //Add CustomSound
       L := High(CustomSounds) + 1;
       SetLength (CustomSounds, L + 1);
@@ -607,21 +539,15 @@ begin
 end;
 
 //Equalizer
-function TMusic_bass.GetFFTData: TFFTData;
+function TAudio_bass.GetFFTData: TFFTData;
 var
-Data: TFFTData;
+  Data: TFFTData;
 begin
-  {$IFDEF useBASS}
-  // TODO : jb_linux replace with something other than bass
-
   //Get Channel Data Mono and 256 Values
   BASS_ChannelGetData(Bass, @Result, BASS_DATA_FFT512);
-  //Result := Data;
-  
-  {$ENDIF}
 end;
 
-function TMusic_bass.LoadCustomSound(const Filename: String): Cardinal;
+function TAudio_bass.LoadCustomSound(const Filename: String): Cardinal;
 var
   S: hStream;
   I: Integer;
@@ -644,15 +570,10 @@ begin
     Result := 0;
 end;
 
-procedure TMusic_bass.PlayCustomSound(const Index: Cardinal );
+procedure TAudio_bass.PlayCustomSound(const Index: Cardinal );
 begin
-  {$IFDEF useBASS}
-  // TODO : jb_linux replace with something other than bass
-
   if Index <= High(CustomSounds) then
     BASS_ChannelPlay(CustomSounds[Index].Handle, True);
-    
-  {$ENDIF}
 end;
 
 
@@ -660,7 +581,7 @@ end;
 
 Sorry guys... this is my mess :(
 Im going to try and get ffmpeg to handle audio playback ( at least for linux )
-and Im going to implement it nicly along side BASS, in TMusic_bass ( where I can )
+and Im going to implement it nicly along side BASS, in TAudio_bass ( where I can )
 
 http://www.dranger.com/ffmpeg/ffmpeg.html
 http://www.dranger.com/ffmpeg/ffmpegtutorial_all.html
@@ -669,7 +590,7 @@ http://www.inb.uni-luebeck.de/~boehme/using_libavcodec.html
 
 *}
 {*
-function TMusic_bass.FFMPeg_StreamCreateFile(abool : boolean; aFileName : pchar ): THandle;
+function TAudio_bass.FFMPeg_StreamCreateFile(abool : boolean; aFileName : pchar ): THandle;
 var
  lFormatCtx : PAVFormatContext;
 begin
@@ -700,4 +621,17 @@ begin
 
 end;  *}
 
+initialization
+  singleton_MusicBass := TAudio_bass.create();
+
+  writeln( 'UAudio_Bass - Register Playback' );
+  AudioManager.add( IAudioPlayback( singleton_MusicBass ) );
+
+  writeln( 'UAudio_Bass - Register Input' );
+  AudioManager.add( IAudioInput( singleton_MusicBass )    );
+
+finalization

+  AudioManager.Remove( IAudioPlayback( singleton_MusicBass ) );

+  AudioManager.Remove( IAudioInput( singleton_MusicBass ) );

+
 end.