diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/TestPortAudioDevice.pas | 60 |
1 files changed, 30 insertions, 30 deletions
diff --git a/test/TestPortAudioDevice.pas b/test/TestPortAudioDevice.pas index ba394383..5afc02e8 100644 --- a/test/TestPortAudioDevice.pas +++ b/test/TestPortAudioDevice.pas @@ -65,12 +65,12 @@ const ); SampleFormat: array[1..8] of culong = - (paFloat32, paInt32, paInt24, paInt16, paInt8, paUInt8, - paCustomFormat, paNonInterleaved + (paFloat32, paInt32, paInt24, paInt16, + paInt8, paUInt8, paCustomFormat, paNonInterleaved ); SampleFormatName: array[1..8] of string = - ('paFloat32', 'paInt32', 'paInt24', 'paInt16', 'paInt8', 'paUInt8', - 'paCustomFormat', 'paNonInterleaved' + ('paFloat32', 'paInt32', 'paInt24', 'paInt16', + 'paInt8', 'paUInt8', 'paCustomFormat', 'paNonInterleaved' ); var @@ -107,13 +107,13 @@ begin begin // check if API is available apiIndex := Pa_HostApiTypeIdToHostApiIndex(ApiPreferenceOrder[i]); - if (apiIndex >= 0) then + if apiIndex >= 0 then begin // we found an API but we must check if it works // (on linux portaudio might detect OSS but does not provide // any devices if ALSA is enabled) apiInfo := Pa_GetHostApiInfo(apiIndex); - if (apiInfo^.deviceCount > 0) then + if apiInfo^.deviceCount > 0 then begin Result := apiIndex; break; @@ -239,7 +239,7 @@ begin writeln ('*** Test of GetPreferredApiIndex ***'); PaError := Pa_Initialize; paApiIndex := GetPreferredApiIndex(); - if (paApiIndex = -1) then + if paApiIndex = -1 then writeln ('GetPreferredApiIndex: No working Audio-API found.') else writeln ('GetPreferredApiIndex: working Audio-API found. No: ', paApiIndex); @@ -363,9 +363,9 @@ begin sampleRate := standardSampleRates[j]; PaError := Pa_IsFormatSupported(inputParameters, outputParameters, sampleRate); if PaError = paFormatIsSupported then - writeln ('Sample rate: ', sampleRate:5:0, ' : supported') + writeln ('Sample rate: ', sampleRate:5:0, ' : supported') else - writeln ('Sample rate: ', sampleRate:5:0, ' : Error: ', PaError); + writeln ('Sample rate: ', sampleRate:5:0, ' : Error: ', PaError); end; writeln; @@ -374,7 +374,7 @@ begin if inputParameters <> nil then inputParameters^.sampleFormat := SampleFormat[j] else - outputParameters^.sampleFormat := SampleFormat[j]; + outputParameters^.sampleFormat := SampleFormat[j]; PaError := Pa_IsFormatSupported(inputParameters, outputParameters, sampleRate); if PaError = paFormatIsSupported then writeln ('Sample Format ', SampleFormatName[j], ': supported') @@ -396,7 +396,7 @@ var duration: real; begin duration := (Now() - callbackStartTime) * 24 * 3600; - if (duration < 2.0) then + if duration < 2.0 then result := paContinue else begin @@ -447,12 +447,12 @@ begin stream, inputParameters, outputParameters, - sampleRate, + sampleRate, framesPerBuffer, streamFlags, streamCallback, userData - ); + ); if (PaError = paNoError) and (stream <> nil) then writeln ('Pa_OpenStream: success') else @@ -463,10 +463,10 @@ begin callbackStartTime := Now(); PaError := Pa_StartStream(stream); - if (PaError = paNoError) then - writeln ('Pa_StartStream: success') + if PaError = paNoError then + writeln ('Pa_StartStream: success') else - writeln ('Pa_StartStream: ', Pa_GetErrorText(PaError)); + writeln ('Pa_StartStream: ', Pa_GetErrorText(PaError)); callbackWorks := false; @@ -474,18 +474,18 @@ begin writeln('Wait for callback'); delay(4000); - if (callbackWorks and (Pa_IsStreamStopped(stream) = 0)) then + 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)); + 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'); + writeln ('Error: Non working device'); PaError := Pa_AbortStream(stream); if (PaError = paNoError) then writeln ('Pa_AbortStream: success') @@ -516,12 +516,12 @@ begin writeln ('Start: Test of Portaudio libs'); writeln; - //TestInitTerminate(); - //TestErrorText(); - //TestVersion(); - //TestApiInfo(); - //TestDeviceInfo(); - //TestFormatInfo(); + TestInitTerminate(); + TestErrorText(); + TestVersion(); + TestApiInfo(); + TestDeviceInfo(); + TestFormatInfo(); TestStreams(); writeln ('End: Test of Portaudio libs'); |