DirectSoundCapture CreateCaptureBuffer

cs_bierman Messages postés 14 Date d'inscription lundi 14 avril 2003 Statut Membre Dernière intervention 8 février 2010 - 30 juil. 2004 à 13:39
cs_bierman Messages postés 14 Date d'inscription lundi 14 avril 2003 Statut Membre Dernière intervention 8 février 2010 - 5 août 2004 à 16:56

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)

1 réponse

Réponse 1 / 1

cs_bierman Messages postés 14 Date d'inscription lundi 14 avril 2003 Statut Membre Dernière intervention 8 février 2010
5 août 2004 à 16:56

Problème résolu