Mon problème se situe sur la dernière ligne de code
Set Dscb = Dsc.CreateCaptureBuffer(Dscbd) qui me renvoie le défaut "Invalid procedure call or argument"
Quelqu'un aurait-il une idée ?
merci d'avance.
'******************************************
Dim dx As DirectX8
Dim Dsc As DirectSoundCapture8
Dim Dscb As DirectSoundCaptureBuffer8
Dim Dscbd As DSCBUFFERDESC
Dim dsenum As DirectSoundEnum8
Set dx = New DirectX8
'Enumère les périphériques de captures
Set dsenum = dx.GetDSCaptureEnum
'Sélectionne le périphérique par défaut (1)
Set Dsc = dx.DirectSoundCaptureCreate(dsenum.GetGuid(1))
' Set up the wave format.
With Dscbd.fxFormat
.nFormatTag = 1 'WAVE_FORMAT_PCM
.nChannels = 2
.lSamplesPerSec = 22050
.nBitsPerSample = 16
.nBlockAlign = .nBitsPerSample / 8 * .nChannels
.lAvgBytesPerSec = .lSamplesPerSec * nBlockAlign
.nSize = 0 ' Ignored for WAVE_FORMAT_PCM.
End With
Dscbd.guid3DAlgorithm = 0
Dscbd.lFlags = 0 'DSCBCAPS_DEFAULT
Dscbd.lBufferBytes = Dscbd.fxFormat.lAvgBytesPerSec
Set Dscb = Dsc.CreateCaptureBuffer(Dscbd)