aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authork-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-03-07 13:55:57 +0000
committerk-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2010-03-07 13:55:57 +0000
commit1ce86c93531728a92db7972f901153de1814eac8 (patch)
treec38e4e317d20ca315b4370912d78ef3224c6f5a9
parent8166385818520755a05d1fa8392aab2ec2c21796 (diff)
downloadusdx-1ce86c93531728a92db7972f901153de1814eac8.tar.gz
usdx-1ce86c93531728a92db7972f901153de1814eac8.tar.xz
usdx-1ce86c93531728a92db7972f901153de1814eac8.zip
more tests.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2182 b956fd51-792f-4845-bead-9b4dfca2ff2c
-rw-r--r--test/TestPortAudioDevice.pas118
1 files changed, 108 insertions, 10 deletions
diff --git a/test/TestPortAudioDevice.pas b/test/TestPortAudioDevice.pas
index 10c49034..d77bff8f 100644
--- a/test/TestPortAudioDevice.pas
+++ b/test/TestPortAudioDevice.pas
@@ -36,6 +36,7 @@ program TestPortAudioDevice;
uses
SysUtils,
+ ctypes,
PortAudio in '../src/lib/portaudio/portaudio.pas';
const
@@ -63,7 +64,10 @@ var
paApiInfo: PPaHostApiInfo;
deviceIndex: TPaDeviceIndex;
deviceInfo: PPaDeviceInfo;
-
+ inputParameters: PPaStreamParameters;
+ outputParameters: PPaStreamParameters;
+ sampleRate: cdouble;
+
function GetPreferredApiIndex(): TPaHostApiIndex;
var
i: integer;
@@ -119,13 +123,6 @@ begin
writeln ('Pa_Terminate: Error No: ', PaError);
writeln;
- 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;
-
writeln ('*** Test of Pa_GetErrorText ***');
PaError := Pa_Initialize;
writeln ('paNoError (0): ', Pa_GetErrorText(PaError));
@@ -141,6 +138,31 @@ begin
PaError := Pa_Terminate;
writeln;
+ 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;
+
+ 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 GetPreferredApiIndex ***');
PaError := Pa_Initialize;
paApiIndex := GetPreferredApiIndex();
@@ -178,7 +200,8 @@ begin
writeln;
writeln ('*** Test of Pa_GetDeviceInfo ***');
-//
+// Note: the fields of deviceInfo can also be used without the '^'.
+// deviceInfo.name works as well as deviceInfo^.name
PaError := Pa_Initialize;
paApiIndex := GetPreferredApiIndex();
paApiInfo := Pa_GetHostApiInfo(paApiIndex);
@@ -195,10 +218,85 @@ begin
writeln ('deviceInfo[', i, '].defaultLowOutputLatency: ', deviceInfo^.defaultLowOutputLatency);
writeln ('deviceInfo[', i, '].defaultHighInputLatency: ', deviceInfo^.defaultHighInputLatency);
writeln ('deviceInfo[', i, '].defaultHighOutputLatency: ', deviceInfo^.defaultHighOutputLatency);
- writeln ('deviceInfo[', i, '].defaultSampleRate: ', deviceInfo^.defaultSampleRate:5:1);
+ writeln ('deviceInfo[', i, '].defaultSampleRate: ', deviceInfo^.defaultSampleRate:5:0);
writeln;
end;
PaError := Pa_Terminate;
+ writeln ('*** Test of Pa_IsFormatSupported ***');
+// Note: the fields of deviceInfo can also be used without the '^'.
+// deviceInfo.name works as well as deviceInfo^.name
+ PaError := Pa_Initialize;
+ paApiIndex := GetPreferredApiIndex();
+ paApiInfo := Pa_GetHostApiInfo(paApiIndex);
+ for i:= 0 to paApiInfo^.deviceCount - 1 do
+ begin
+ deviceIndex := Pa_HostApiDeviceIndexToDeviceIndex(paApiIndex, i);
+ deviceInfo := Pa_GetDeviceInfo(deviceIndex);
+ writeln ('Device[', i, '] ', deviceInfo^.name, ':');
+ New(inputParameters);
+ New(outputParameters);
+ if deviceInfo^.maxInputChannels > 0 then
+ begin
+ inputParameters^.device := deviceIndex;
+ inputParameters^.channelCount := deviceInfo^.maxInputChannels;
+ inputParameters^.sampleFormat := paInt16;
+ inputParameters^.suggestedLatency := deviceInfo^.defaultLowInputLatency;
+ inputParameters^.hostApiSpecificStreamInfo := nil;
+ outputParameters := nil;
+ end
+ else
+ begin
+ inputParameters := nil;
+ outputParameters^.device := deviceIndex;
+ outputParameters^.channelCount := deviceInfo^.maxOutputChannels;
+ outputParameters^.sampleFormat := paInt16;
+ outputParameters^.suggestedLatency := deviceInfo^.defaultLowOutputLatency;
+ outputParameters^.hostApiSpecificStreamInfo := nil;
+ end;
+ sampleRate := deviceInfo^.defaultSampleRate;
+ PaError := Pa_IsFormatSupported(inputParameters, outputParameters, sampleRate);
+ if PaError = paFormatIsSupported then
+ writeln ('Sample rate: ', sampleRate:5:0, ' : supported')
+ else
+ writeln ('Sample rate: ', sampleRate:5:0, ' : Error: ', Pa_GetErrorText(PaError));
+{
+ try
+ sampleRate := 48000;
+ PaError := Pa_IsFormatSupported(inputParameters, outputParameters, sampleRate);
+ if PaError = paFormatIsSupported then
+ writeln ('Sample rate: ', sampleRate:5:0, ' : supported')
+ else
+ writeln ('Sample rate: ', sampleRate:5:0, ' : Error: ', PaError);
+ except
+ On EDivByZero do
+ begin
+ writeln ('Division by 0 error with sample rate ', sampleRate:5:0);
+ PaError := Pa_Terminate;
+ PaError := Pa_Initialize;
+ end;
+ end;
+ try
+ sampleRate := 90000;
+ PaError := Pa_IsFormatSupported(inputParameters, outputParameters, sampleRate);
+ if PaError = paFormatIsSupported then
+ writeln ('Sample rate: ', sampleRate:5:0, ' : supported')
+ else
+ writeln ('Sample rate: ', sampleRate:5:0, ' : Error: ', Pa_GetErrorText(PaError));
+ except
+ On EDivByZero do
+ begin
+ writeln ('Division by 0 error with sample rate ', sampleRate:5:0);
+ PaError := Pa_Terminate;
+ PaError := Pa_Initialize;
+ end;
+ end;
+}
+ Dispose(inputParameters);
+ Dispose(outputParameters);
+ end;
+ writeln;
+ PaError := Pa_Terminate;
+
writeln ('End: Test of Portaudio libs');
end. \ No newline at end of file