- callback stream test added

- input latency changed to defaultHighInputLatency

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

1 files changed, 114 insertions, 51 deletions

diff --git a/test/TestPortAudioDevice.pas b/test/TestPortAudioDevice.pas
index 1b3c9e7e..ba394383 100644
--- a/test/TestPortAudioDevice.pas
+++ b/test/TestPortAudioDevice.pas
@@ -37,9 +37,8 @@ program TestPortAudioDevice;
 uses
   SysUtils,
   ctypes,
-{$IF Defined(DARWIN)} // for setting the floating point exception mask
+  crt,
   math,
-{$IFEND}
   PortAudio in '../src/lib/portaudio/portaudio.pas';
 
 const
@@ -88,8 +87,11 @@ var
   framesPerBuffer:  culong;
   streamFlags:      TPaStreamFlags;
   streamCallback:   PPaStreamCallback;
+  callbackStartTime: TDateTime;
+  callbackWorks:    boolean;
   userData:         Pointer;
 
+
 function GetPreferredApiIndex(): TPaHostApiIndex;
 var
   i:        integer;
@@ -186,32 +188,9 @@ begin
   FreeMem(SingleChannelBuffer);
 end;
 }
-function MicrophoneCallback(input: pointer; output: pointer; frameCount: longword;
-      timeInfo: PPaStreamCallbackTimeInfo; statusFlags: TPaStreamCallbackFlags;
-      inputDevice: pointer): integer; cdecl;
-begin
-//  HandleMicrophoneData(input, frameCount*4, inputDevice);
-  result := paContinue;
-end;
-
-function PortaudioAudioCallback(input: pointer; output: pointer; frameCount: longword;
-    timeInfo: PPaStreamCallbackTimeInfo; statusFlags: TPaStreamCallbackFlags;
-    userData: pointer): integer; cdecl;
-{var
-  Engine: TAudioPlayback_Portaudio;
-}begin
-{  Engine := TAudioPlayback_Portaudio(userData);
-  // update latency
-  Engine.Latency := timeInfo.outputBufferDacTime - timeInfo.currentTime;
-  // call superclass callback
-  Engine.AudioCallback(output, frameCount * Engine.FormatInfo.FrameSize);
-}  Result := paContinue;
-end;
 
+procedure TestInitTerminate();
 begin
-  writeln ('Start: Test of Portaudio libs');
-  writeln;
-
   writeln ('*** Test of Pa_Initialize and Pa_Terminate ***');
   PaError := Pa_Initialize;
   if PaError = paNoError then
@@ -225,7 +204,10 @@ begin
   else
     writeln ('Pa_Terminate:  Error No: ', PaError);
   writeln;
-  
+end;
+
+procedure TestErrorText();
+begin
   writeln ('*** Test of Pa_GetErrorText ***');
   PaError := Pa_Initialize;
   writeln ('paNoError (0): ', Pa_GetErrorText(PaError));
@@ -240,32 +222,20 @@ begin
   writeln (i:6, ' ', Pa_GetErrorText(i));
   PaError := Pa_Terminate; 
   writeln;
+end;
 
+procedure TestVersion();
+begin
   writeln ('*** Test of Pa_GetVersion and Pa_GetVersionText ***');
   PaError := Pa_Initialize;
   writeln ('Pa_GetVersion:     ', Pa_GetVersion);
   writeln ('Pa_GetVersionText: ', Pa_GetVersionText);
   PaError := Pa_Terminate; 
   writeln;
+end;
 
-  writeln ('*** Test of Pa_GetDeviceCount ***');
-  PaError := Pa_Initialize;
-  writeln ('Pa_GetDeviceCount: ', Pa_GetDeviceCount);
-  PaError := Pa_Terminate; 
-  writeln;
-
-  writeln ('*** Test of Pa_GetDefaultInputDevice ***');
-  PaError := Pa_Initialize;
-  writeln ('Pa_GetDefaultInputDevice: ', Pa_GetDefaultInputDevice);
-  PaError := Pa_Terminate; 
-  writeln;
-
-  writeln ('*** Test of Pa_GetDefaultOutputDevice ***');
-  PaError := Pa_Initialize;
-  writeln ('Pa_GetDefaultOutputDevice: ', Pa_GetDefaultOutputDevice);
-  PaError := Pa_Terminate; 
-  writeln;
-
+procedure TestApiInfo();
+begin
   writeln ('*** Test of GetPreferredApiIndex ***');
   PaError    := Pa_Initialize;
   paApiIndex := GetPreferredApiIndex();
@@ -301,6 +271,27 @@ begin
   end;
   PaError := Pa_Terminate; 
   writeln;
+end;
+
+procedure TestDeviceInfo();
+begin
+  writeln ('*** Test of Pa_GetDeviceCount ***');
+  PaError := Pa_Initialize;
+  writeln ('Pa_GetDeviceCount: ', Pa_GetDeviceCount);
+  PaError := Pa_Terminate; 
+  writeln;
+
+  writeln ('*** Test of Pa_GetDefaultInputDevice ***');
+  PaError := Pa_Initialize;
+  writeln ('Pa_GetDefaultInputDevice: ', Pa_GetDefaultInputDevice);
+  PaError := Pa_Terminate; 
+  writeln;
+
+  writeln ('*** Test of Pa_GetDefaultOutputDevice ***');
+  PaError := Pa_Initialize;
+  writeln ('Pa_GetDefaultOutputDevice: ', Pa_GetDefaultOutputDevice);
+  PaError := Pa_Terminate; 
+  writeln;
 
   writeln ('*** Test of Pa_GetDeviceInfo ***');
 // Note: the fields of deviceInfo can also be used without the '^'.
@@ -325,7 +316,10 @@ begin
     writeln;
   end;
   PaError := Pa_Terminate; 
+end;
 
+procedure TestFormatInfo();
+begin
   writeln ('*** Test of Pa_IsFormatSupported ***');
   PaError    := Pa_Initialize;
   paApiIndex := GetPreferredApiIndex();
@@ -364,9 +358,6 @@ begin
     else
       writeln ('Sample rate: ', sampleRate:5:0, ' : Error: ', Pa_GetErrorText(PaError));
 
-{$IF Defined(DARWIN)} // floating point exceptions are raised. Therefore, set the exception mask.
-    SetExceptionMask([exZeroDivide, exPrecision]);
-{$IFEND}
     for j := low(standardSampleRates) to high(standardSampleRates) do
     begin 
       sampleRate := standardSampleRates[j];
@@ -396,7 +387,26 @@ begin
     writeln;
   end;
   PaError := Pa_Terminate; 
+end;
 
+function AudioCallback(input: pointer; output: pointer; frameCount: culong;
+      timeInfo: PPaStreamCallbackTimeInfo; statusFlags: TPaStreamCallbackFlags;
+      inputDevice: pointer): cint; cdecl;
+var
+  duration: real;
+begin
+  duration := (Now() - callbackStartTime) * 24 * 3600;
+  if (duration < 2.0) then
+    result := paContinue
+  else
+  begin
+    callbackWorks := true;
+    result := paComplete;
+  end;
+end;
+
+procedure TestStreams();
+begin
   writeln ('*** Test of Pa_OpenStream and Pa_CloseStream ***');
   PaError    := Pa_Initialize;
   paApiIndex := GetPreferredApiIndex();
@@ -413,7 +423,7 @@ begin
       inputParameters^.device                    := deviceIndex;
       inputParameters^.channelCount              := deviceInfo^.maxInputChannels;
       inputParameters^.sampleFormat              := paInt16;
-      inputParameters^.suggestedLatency          := deviceInfo.defaultLowInputLatency;
+      inputParameters^.suggestedLatency          := deviceInfo.defaultHighInputLatency;
       inputParameters^.hostApiSpecificStreamInfo := nil;
       outputParameters := nil;
     end
@@ -430,9 +440,9 @@ begin
     sampleRate      := deviceInfo^.defaultSampleRate;
     framesPerBuffer := paFramesPerBufferUnspecified;
     streamFlags     := paNoFlag;
-    streamCallback  := nil;
+    streamCallback  := @AudioCallback;
     userData        := nil;
-  
+
     PaError := Pa_OpenStream(
                      stream,
                      inputParameters,
@@ -448,6 +458,43 @@ begin
     else
       writeln ('Pa_OpenStream: ', Pa_GetErrorText(PaError));
 
+    if (PaError = paNoError) and (stream <> nil) then
+    begin
+      callbackStartTime := Now();
+
+      PaError := Pa_StartStream(stream);
+      if (PaError = paNoError) then
+	writeln ('Pa_StartStream: success')
+      else
+	writeln ('Pa_StartStream: ', Pa_GetErrorText(PaError));
+
+      callbackWorks := false;
+
+      // wait twice the time a successful callback would need for termination
+      writeln('Wait for callback');
+      delay(4000);
+
+      if (callbackWorks and (Pa_IsStreamStopped(stream) = 0)) then
+      begin
+	writeln ('Success: Device works');
+	PaError := Pa_StopStream(stream);
+	if (PaError = paNoError) then
+	  writeln ('Pa_StopStream: success')
+	else
+	  writeln ('Pa_StopStream: ', Pa_GetErrorText(PaError));
+      end
+      else
+      begin
+	writeln ('Error: Non working device');
+        PaError := Pa_AbortStream(stream);
+        if (PaError = paNoError) then
+          writeln ('Pa_AbortStream: success')
+        else
+          writeln ('Pa_AbortStream: ', Pa_GetErrorText(PaError));
+
+      end;
+    end;
+
     PaError := Pa_CloseStream(stream);
     if PaError = paNoError then
       writeln ('Pa_CloseStream: success')
@@ -460,6 +507,22 @@ begin
     writeln;    
   end;
   PaError := Pa_Terminate; 
+end;
+
+begin
+  // floating point exceptions are raised. Therefore, set the exception mask.
+  SetExceptionMask([exZeroDivide, exPrecision]);
+
+  writeln ('Start: Test of Portaudio libs');
+  writeln;
+
+  //TestInitTerminate();
+  //TestErrorText(); 
+  //TestVersion();
+  //TestApiInfo();
+  //TestDeviceInfo();
+  //TestFormatInfo();
+  TestStreams();
   
   writeln ('End: Test of Portaudio libs');
 end.
\ No newline at end of file