From 6880109d9d38abfed6dececf863fdb7430fbb837 Mon Sep 17 00:00:00 2001
From: tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 3 Mar 2008 03:16:57 +0000
Subject: - Input now supports multiple SampleRates (not fixed to 44100Hz
 anymore) - Input is not restricted to stereo input-devices anymore (mono and
 multi-channel devices work too) - Some improvements on the input-device
 detection - Retrieves native capture sample-rate on Vista and MacOSX with
 BASS (maybe this solves some problems with wrong sample-rates) -
 Capture-volume preview: a little modification to jay's approach. Now there
 are volume bars and pitch-displays. It needs some fine-tuning, maybe mog can
 do this if he likes. - Some indentation/clean-up/translations

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@900 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UAudioDecoder_FFMpeg.pas | 30 +++++++++++++++++++++---------
 1 file changed, 21 insertions(+), 9 deletions(-)

(limited to 'Game/Code/Classes/UAudioDecoder_FFMpeg.pas')

diff --git a/Game/Code/Classes/UAudioDecoder_FFMpeg.pas b/Game/Code/Classes/UAudioDecoder_FFMpeg.pas
index 1bb9208a..f4c22254 100644
--- a/Game/Code/Classes/UAudioDecoder_FFMpeg.pas
+++ b/Game/Code/Classes/UAudioDecoder_FFMpeg.pas
@@ -4,7 +4,7 @@ unit UAudioDecoder_FFMpeg;
 
 This unit is primarily based upon -
     http://www.dranger.com/ffmpeg/ffmpegtutorial_all.html
-    
+
     and tutorial03.c
 
     http://www.inb.uni-luebeck.de/~boehme/using_libavcodec.html
@@ -19,6 +19,7 @@ interface
 
 {$I ../switches.inc}
 
+//{$DEFINE DebugFFMpegDecode}
 
 uses
   Classes,
@@ -39,7 +40,6 @@ uses
   ULog,
   UConfig;
 
-
 type
   PPacketQueue = ^TPacketQueue;
   TPacketQueue = class
@@ -371,7 +371,9 @@ begin
       
       if(url_feof(pbIOCtx) <> 0) then
       begin
+        {$IFDEF DebugFFMpegDecode}
         SafeWriteLn('feof');
+        {$ENDIF}
         eofState := true;
         continue;
       end;
@@ -379,7 +381,9 @@ begin
       // check for errors
       if(url_ferror(pbIOCtx) = 0) then
       begin
+        {$IFDEF DebugFFMpegDecode}
         SafeWriteLn('Errorf');
+        {$ENDIF}
         // no error -> wait for user input
         SDL_Delay(100);
         continue;
@@ -438,10 +442,12 @@ begin
 
       if(len1 < 0) then
       begin
-	      // if error, skip frame
+        // if error, skip frame
+        {$IFDEF DebugFFMpegDecode}
         SafeWriteLn( 'Skip audio frame' );
+        {$ENDIF}
         audio_pkt_size := 0;
-       	break;
+        break;
       end;
 
       Inc(audio_pkt_data, len1);
@@ -449,8 +455,8 @@ begin
 
       if (data_size <= 0) then
       begin
-    	  // no data yet, get more frames
-     	  continue;
+        // no data yet, get more frames
+        continue;
       end;
 
       // we have data, return it and come back for more later
@@ -475,7 +481,9 @@ begin
     if (audio_pkt_data = PChar(FlushPacket.data)) then
     begin
       avcodec_flush_buffers(pCodecCtx);
+      {$IFDEF DebugFFMpegDecode}
       SafeWriteLn('Flush');
+      {$ENDIF}
       continue;
     end;
 
@@ -484,7 +492,9 @@ begin
     begin
       // end-of-file reached -> set EOF-flag
       SetEOF(true);
+      {$IFDEF DebugFFMpegDecode}
       SafeWriteLn('EOF');
+      {$ENDIF}
       // note: buffer is not (even partially) filled -> no data to return
       exit;
     end;
@@ -516,14 +526,14 @@ begin
 
       if(audio_size < 0) then
       begin
-      	// if error, output silence
+        // if error, output silence
         audio_buf_size := 1024;
         FillChar(audio_buf, audio_buf_size, #0);
         //SafeWriteLn( 'Silence' );
       end
       else
       begin
-      	audio_buf_size := audio_size;
+        audio_buf_size := audio_size;
       end;
       audio_buf_index := 0;
     end;
@@ -619,7 +629,9 @@ begin
   if (av_find_stream_info(pFormatCtx) < 0) then
     exit;
 
+  {$IFDEF DebugFFMpegDecode}
   dump_format(pFormatCtx, 0, pchar(Filename), 0);
+  {$ENDIF}
 
   ffmpegStreamID := FindAudioStreamIndex(pFormatCtx);
   if (ffmpegStreamID < 0) then
@@ -730,7 +742,7 @@ begin
       begin
         Self.firstPkt := pkt1.next;
         if (Self.firstPkt = nil) then
-      	  Self.lastPkt := nil;
+          Self.lastPkt := nil;
         dec(Self.nbPackets);
 
         //SafeWriteLn('Get: ' + inttostr(nbPackets));
-- 
cgit v1.2.3