From 1ce86c93531728a92db7972f901153de1814eac8 Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Sun, 7 Mar 2010 13:55:57 +0000 Subject: more tests. git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@2182 b956fd51-792f-4845-bead-9b4dfca2ff2c --- test/TestPortAudioDevice.pas | 118 +++++++++++++++++++++++++++++++++++++++---- 1 file changed, 108 insertions(+), 10 deletions(-) (limited to 'test') 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 -- cgit v1.2.3