DirectX DirectSound

[cg_ck]

Код: Выделить всё

Dim dx As New DirectX7
Dim ds As DirectSound

Dim dsbuffer1 As DirectSoundBuffer
Dim dsbuffer2 As DirectSoundBuffer


Sub InitSound()
'On Local Error Resume Next

Set ds = dx.DirectSoundCreate("")

If Err.Number <> 0 Then
End If

ds.SetCooperativeLevel Form1.hWnd, DSSCL_NORMAL


Dim bufferDesc As DSBUFFERDESC
Dim waveFormat As WAVEFORMATEX

bufferDesc.lFlags = DSBCAPS_CTRLPAN

Set dsbuffer1 = ds.CreateSoundBufferFromFile("Beat004.wav", bufferDesc, waveFormat)
If Err.Number <> 0 Then
End If

Set dsbuffer2 = ds.CreateSoundBufferFromFile("c:\Beat005.wav", bufferDesc, waveFormat)
If Err.Number <> 0 Then
End If
End Sub


Sub PlayPanned(Buffer As DirectSoundBuffer, Position As Integer)Buffer.SetPan Position
Buffer.Play 0Sub



Private Sub Command1_Click()
    InitSound
    'PlayPanned dsbuffer1, 0
End Sub

Private Sub Command2_Click()
    PlayPanned dsbuffer1, 0
End Sub



Вылетает после
Set dsbuffer1 = ds.CreateSoundBufferFromFile("Beat004.wav",
со словами:
File name or class name not found during Automation operation


Ссылка на стоатью?
[url]
http://vbstreets.ru/VB/Articles/65565.aspx
[/url]

В чём собственно проблема может быть?

[GM]

А у тебя "Beat004.wav", есть ? Если нету то для примера попробуй ну скажем C:\WINDOWS\Media\chimes.wav .

[GM]

Я имею ввиду если ты вводиш "Beat004.wav". То это значит что этот файл находится в текущей директории твоей проги. Лучше уточни этот путь. Или дело не втом

[cg_ck]

Насколько я был слеп и глуп. Спасибо!