DirectSound в VB6.

[The trick]

Параллельно с Direct3D9 я делал библиотеку типов и модуль с вспомогательными функциями для DirectSound. В архиве библиотека типов dsvb.tlb и модуль DS_Functions.bas. В дальнейшем добавлю модуль класса для поддержки асинхронных уведомлений, пока можно пользоваться этим.
В модуле DS_Functions содержатся следующие функции:

• DSCreateSoundBufferFromFile - создает объект с интерфейсом IDirectSoundBuffer8 из файла. Поддерживаются только WAVE и MP3 файлы. MP3 файлы могут содержать только ID3v1 и ID3v2 теги, какие-либо другие возможно не распознаются/не будут работать. Слишком длинные (по времени) файлы не поддерживаются. Для потокового воспроизведения нужно писать потоковое декодирование на основе кода функции DSCreateSoundBufferFromMemory.
• DSCreateSoundBufferFromMemory - тоже самое, но вместо файла передается указатель на данные файла в памяти и их размер.

Также в архиве содержится пример плеера который реализует некоторые методы IDirectSoundBuffer8 интерфейса (громкость, панорама, частота, эффекты).
TLB также особо сильно не тестировалась, поэтому что-то может не работать. Если что-то не работает пишите сюда.
Скачать.

[Mikle]

Помнишь, я жаловался на ошибку, когда, если проект под отладчиком поставлен на паузу (по ошибке, или точкой останова, или с помощью Stop), его нельзя окончательно останавливать кнопкой "Стоп", иначе среда вылетает. Я понимаю, что такая остановка некорректна, созданы объекты, выделена память, но с dx8vb.dll таких проблем не было, не было и с моей dx_vb.dll.
Я, кажется, это локализовал, это где-то в DirectSound, в Direct3D таких проблем не возникает, хоть я насоздаю буферов, текстур, шейдеров и т. п.
Вот минимальный проект на DirectSound, создаётся один SoundBuffer и воспроизводится с регулировкой параметров, всё работает корректно, но попробуй добавить точку останова, например, в Sub hsVol_Change(), потом запусти и в программе двинь ползунок громкости - программа остановится на паузу, выполнение можно продолжить, всё сработает корректно, но, если её остановить - вылетает.

[The trick]

Вот минимальный проект на DirectSound, создаётся один SoundBuffer и воспроизводится с регулировкой параметров, всё работает корректно, но попробуй добавить точку останова, например, в Sub hsVol_Change(), потом запусти и в программе двинь ползунок громкости - программа остановится на паузу, выполнение можно продолжить, всё сработает корректно, но, если её остановить - вылетает.

У меня не вылетает.

[Mikle]

Странно. Я сейчас скачал твой плеер из п.1, взял оттуда tlb и заменил ей свою, выполнил поиск по всем дискам, убедился, что других копий dsvb.tlb у меня нет (только в корзине).
Как крашилось - так и крашится.
Тогда я взял твой плеер, в обработчик регулятора панорамы вставил точку останова - тоже крашится.
VB6 с SP6, Win XP SP3.
Через час попробую на другом компьютере.

[Mikle]

На другом компьютере то же самое, вылет среды без каких-либо сообщений.
dx8vb и dx_vb работают, но немного по-разному:
Если запустить звук PlayLoop, то с dx8vb звук по кнопке "Стоп" останавливается, а с dx_vb продолжает звучать до закрытия IDE.

[Mikle]

Проверил на третьем компьютере, всё то же.
Может я неправильно объяснил, что я делаю?

Ставлю точку останова ("1" на рисунке).
Запускаю программу.
Запускаю звук в режиме PlayLoop.
Двигаю фейдер панорамы (нижний), программа становится на паузу.
Жму кнопку ("2" на рисунке).

Всё! Вылет стабильно. Уже на трёх компьютерах проверил.
Просьба всем, читающим тему, тоже проверить.
Для работы программы нужна dsvb.tlb из первого сообщения данной темы, я её закидывал в System32, там она автоматом регистрируется.

dsvbbug.PNG (18.95 Кб) Просмотров: 13369

[The trick]

[Mikle]

Блин... может оно только на XP-шке так ведёт себя.

Добавлено:
Попробовал, установил на Win7 x64 VB6, теперь другая беда - при нажатии на "Стоп" звук прекращается, но IDE зависает, "Стоп" остаётся активным, "Play" и "Пауза" не работают, закрыть IDE удаётся.

[Хакер]

Блин... может оно только на XP-шке так ведёт себя.

Сейчас потестим.

[Хакер]

Странно, вроде бы давно отписался, а собственного ответа не вижу.

В общем:
1) У меня тоже падает.
2) Если кратко: непосредственная причина падения в том, что при нажатии кнопки «Стоп» выполняется некий код, который у некоторого COM-интерфейса вызывает IUnknown::Release. Однако к моменту вызова IUnknown::Release участо памяти, где лежала ссылка на COM-интерфейс оказывается в буквальном смысле освобождён (вызовом HeapFree). Потому что HeapFree имеет характерную особенность (для целей отладки): память, которая освобождается, заполняется DWORD-ами 0xFEEEFEEE. Именно такой DWORD и содержится там, где код VBA6.DLL ожидает ссылку на COM-интерфейс.

[Хакер]

Падает в RESDESCTBL::DestructItem. Что такое RESDESCTBL отдалённо я вроде писал.

При нажатии «Стоп» VB пытается зачистить все «ресурсы» проекта, коими считаются существующие объекты или модули их «члены», то есть свойства и модульные переменные. За зачистку каждой такой переменной отвечает отдельный вызов RESDESCTBL::DestructItem.

При очередном вызове RESDESCTBL:DestructItem, который делается ради того, чтобы зачистить очередной модульный член (свойство класса или переменную модуля), эта функция натыкается на член, тип которого — объектная ссылка. Метод RestructItem пытается вызвать IUnknown::Release на этой ссылке и получает полный облом по причине того, что на месте vtable оказывается мусор (дворды 0xFEEEFEEE).

Стек вызовов на момент фатального вызова RESDESCTBL::DestructItem вот такой:

call_stack_when_calling_RESDESCTBL_DestructItem.png (10.96 Кб) Просмотров: 13335

Осталось теперь только выяснить, что это за vtable и кем она преждевременно затирается.

[Хакер]

Выяснил!

Всё оказалось предельно просто. Более того, оказалось, что для воспроизведения бага не нужно никаких контролов, ползунков громкости и панорамы — не нужно также ставить проект на паузу, ставить брекпоинты.

Достаточно просто во время работы проекта нажать кнопку «Стоп» — не важно, из выполняющегося ли проекта или из кода на паузе. Более того, падение остаётся и в скомпилированном проекте, если в случайный момент сделать End.

Причина падения проста:
Библиотека DirectSound нарушает фундаментальное правило COM в отношении времени жизни объектов (что время их жизни должно подчиняться подсчёту ссылок — пока хоть одна ссылка есть, объект не имеет права умирать).

Когда отпускается последняя ссылка на корневой объект иерархии — экзмпляр класса DirectSound8 — не только корневой объект уничтожается, но и дочерние, точнее подчинённые ему объекты (такие как объекты-буфры), на которые ещё можно быть полно действущих объектных ссылок, ТОЖЕ уничтожаются. Не дожидаясь, пока ссылки на них будут корректно отпущены. Что нарушает правила COM.

Иными словами, одного Set DS = Nothing достаточно для того, чтобы все остальные объекты, связанные с DirectSound, тоже уничтожились, а память, ими занимаемая, освободилась.

—Как это сталкивается с поведением VB?
—Очень просто! Вызов RESDESCTBL::DestructModInst вызывается для экземпляра формы с целью зачистить все её внутренности. Этот метод обходит все члены «ModInst»-а и зачищает каждый вызовом RESDESCTBL::DestructItem. Члены обходятся в том порядке, в каком они объявлены, а объявлены они в таком порядке:

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

Dim DS As DirectSound8
Dim DSB As IDirectSoundBuffer8

Первой зануляется ссылка на корневой объект. Однако при этом (в нарушение правил) уничтожается не только корневой объект, но и все остальные.
Второй зануляется переменная DSB — однако объект, ссылка на который всё ещё лежит в DSB, уже уничтожился, память под него освобождена. Отсюда имеем креш.

Отсюда очевидный workaround для этого бага (со стороны библиотеки Direct Sound): поменять код так, чтобы при автоматической очистке памяти силами VB корневой объект освобождался последним их всех. То есть в данном случае просто объявить сначала DSB, потом DS.

Порядок обхода членов класса (формы) методом DestructModInst изменится, и объект-буфер не будет уничтожаться преждевременно.

Вот я сократил проект до той степени, когда баг проявляется и сделал две версии: как было (которая всегда должна падать при запуске), и с изменённым порядком переменных (которая не должна падать). Отличаются они только порядком объявления переменных.

mkdsdbg.zip

(10.44 Кб) Скачиваний: 434

Майкл, пожалуйста, проверь и подтверди, что все мои выводы верны (а то вдруг у тебя какой-то другой баг выстреливает, кроме найденного мной сейчас).

[The trick]

Хакер, Майкл спасибо за отладку.

[Mikle]

для воспроизведения бага не нужно никаких контролов, ползунков громкости и панорамы — не нужно также ставить проект на паузу, ставить брекпоинты.

Достаточно просто во время работы проекта нажать кнопку «Стоп» — не важно, из выполняющегося ли проекта или из кода на паузе. Более того, падение остаётся и в скомпилированном проекте, если в случайный момент сделать End.

Прям мои мысли читаешь Мне эта мысль спать мешала, думал встану, проверю.

спасибо за отладку.

Это тебе спасибо за библиотеку. Мне она нужна, вот я и шевелюсь.
Кстати, есть мысль по поводу причины того, что у тебя проект не падает. Может быть у тебя при установке SDK был включен отладочный режим, работают отладочные версии dll, а их работа отличается от работы обычных?
Это только предположение.

Майкл, пожалуйста, проверь и подтверди, что все мои выводы верны

MUST_FAIL версия падает, MUST_WORK работает.

[Хакер]

Кстати, есть мысль по поводу причины того, что у тебя проект не падает. Может быть у тебя при установке SDK был включен отладочный режим, работают отладочные версии dll, а их работа отличается от работы обычных?

Скорее всего просто более новые версии DLL DirectSound с исправленным багом.

[Mikle]

Ещё тест, исходя из вышепроведённого расследования, я сделал вывод, что даже без End или Stop проект можно завесить просто поменяв местами строки в ClearAll таким образом:

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

  Set DS = Nothing
  DSB.Stop
  Set DSB = Nothing


Да, проект рушится при закрытии окна, можно даже не запускать звук.

Скорее всего просто более новые версии DLL DirectSound с исправленным багом.

Даже новее тех, что идут с семёркой?
Да и остаётся вопрос, почему тогда ничего не падает ни через dx8vb, ни через dx_vb.

Правка:
Падает с dx_vb, если так же изменить ClearAll! А по End не падает потому, что нет COM-объектов, о которых знает VB6, а ClearAll не выполняется, объекты остаются висеть мусором в памяти, но IDE при её закрытии, как-то умудряется их тоже уничтожить.
А вот dx8vb.dll не падает никак, видимо внутри ведёт подсчёт ссылок.

[Хакер]

я сделал вывод, что даже без End или Stop проект можно завесить просто поменяв местами строки в ClearAll таким образом:

Да, я хотел это написать, но понял, что это и так очевидно.

А вообще, ты знаешь, как обойти проблему в случае, когда у тебя будет сложный проект с кучей классов, кучей объектов и кучей взаимных ссылок, то есть в ситуации, когда время жизни отдельной ссылки проследить будет сложно?

Даже новее тех, что идут с семёркой?

А ты на семёрке воспроизвёл баг?

Да и остаётся вопрос, почему тогда ничего не падает ни через dx8vb, ни через dx_vb.

Что такое dx_vb?
А что касается dx8vb, то по всей видимости там просто обернули все DS-объекты крохотными тривиальными обёртками, которые исправляют баг. То есть просто каждый дочений объект иерархии хранит ссылку на корневой и не отпускает её, пока сам не умрёт. В таком случае корневой объект никогда не уничтожится раньше дочерних. Но это только предположение, хотя можно и проверить.

[Mikle]

Я там выше пост дописал.

А вообще, ты знаешь, как обойти проблему в случае, когда у тебя будет сложный проект с кучей классов, кучей объектов и кучей взаимных ссылок, то есть в ситуации, когда время жизни отдельной ссылки проследить будет сложно?

Нет. Особенно когда в проекте много модулей, откуда мне знать, в каком порядке будут удаляться объекты разных модулей?

А ты на семёрке воспроизвёл баг?

Я же выше написал, там IDE не закрывается, а виснет.

Что такое dx_vb?

Это моя dll, которой я пользовался раньше, она нативная, по типу WinAPI, о создании с помощью неё COM-объекта VB6 ничего не узнаёт, в посте выше об этом есть.

[Mikle]

А вообще, ты знаешь, как обойти проблему в случае, когда у тебя будет сложный проект с кучей классов, кучей объектов и кучей взаимных ссылок, то есть в ситуации, когда время жизни отдельной ссылки проследить будет сложно?

Подозреваю, что нужно просто хранить ссылку на DS8 в таком месте, которое VB6 уничтожит последним, но только что это за место?

[Mikle]

На счёт большого проекта.
Вот мой проект, хорошо подходит для теста: https://yadi.sk/d/_xPTO0c73FfWBR
Меняя в modD3D #Const Test можно выключать тестовый режим, но это касается только графики.
Вся работа с DS собрана в один модуль modDS, с помощью константы SoundEnabled можно временно отключать звук, тогда проект работает корректно.
Не смотря на то, что весь звук в одном модуле, смена порядка объявления объектных переменных не решает проблему падения проекта по End.

[Mikle]

The trick, приветствую!
Попытался сделать звукозапись на основе твоей библиотеки, но не вышло.
Интерфейс IDirectSoundCapture8 присутствует, но нет метода для создания соответствующего объекта, и нет методов самого объекта IDirectSoundCapture8. Мне нужен метод CreateCaptureBuffer.
Может просто есть большое различие с DirectSound из состава dx8vb.dll? Но я что-то не разберусь.
Прилагаю простейший индикатор уровня записи с использованием dx8vb.dll. Там есть макрос ReadBuffer, он разложится на Lock-memcpy-Unlock, это понятно, но вот как создать сам DirectSoundCaptureBuffer8?

[The trick]

Привет!

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

Option Explicit

Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private DSc As DirectSoundCapture8
Private DScb As IDirectSoundCaptureBuffer8
Private DScbd As DSCBUFFERDESC
Private Buf() As Integer
Private CurPos As Long
Private Level As Single

Public Sub SoundInit()
  Dim tfx As WAVEFORMATEX
 
  ReDim Buf(2047)
  CurPos = 0
  Level = 0
 
  With tfx
    .wFormatTag = 1
    .nChannels = 1
    .nSamplesPerSec = 44100
    .wBitsPerSample = 16
    .nBlockAlign = .wBitsPerSample / 8 * .nChannels
    .nAvgBytesPerSec = .nSamplesPerSec * .nBlockAlign
   .cbSize = 0          ' Ignored for WAVE_FORMAT_PCM.
  End With
 
  DScbd.dwSize = Len(DScbd)
  DScbd.lpwfxFormat = VarPtr(tfx)
  DScbd.dwFlags = 0
  DScbd.dwBufferBytes = 65536

  Set DSc = New DirectSoundCapture8
  DSc.Initialize ByVal 0&
  DSc.CreateCaptureBuffer DScbd, DScb, Nothing
  DScb.Start DSCBSTART_LOOPING
 
End Sub

Public Sub SoundTerm()
  DScb.Stop
  Set DScb = Nothing
  Set DSc = Nothing
End Sub

Public Sub SoundTick(ByRef Lev As Single)
  Dim i           As Long
  Dim d           As Long
  Dim p1          As Long
  Dim p2          As Long
  Dim l1          As Long
  Dim l2          As Long
 
  If ((GetCurPos - CurPos + 65536) And 65535) > 4095 Then

    DScb.Lock CurPos, 4096, p1, l1, p2, l2, 0
   
    CopyMemory Buf(0), ByVal p1, l1
   
    If p2 Then
        CopyMemory ByVal VarPtr(Buf(0)) + l1, ByVal p2, l2
    End If
   
    DScb.Unlock p1, l1, p2, l2

    CurPos = (CurPos + 4096) And 65535
   
    For i = 0 To 2047
      d = d + Abs(CLng(Buf(i)))
    Next i
   
    Level = d / (32768 * 2048)
   
  End If
 
  Lev = Level
 
End Sub

Private Function GetCurPos() As Long

  DScb.GetCurrentPosition GetCurPos, 0&

End Function


[Mikle]

Не работает, интерфейса DirectSoundCapture8 нет. Есть IDirectSoundCapture8, но на строке Private DSc As IDirectSoundCapture8 получаем ошибку: "Automation type not supported in Visual Basic".
dsvb на всякий случай скачал заново по ссылке в начале данной темы.
Может ты проверял, забыв отключить ссылку на dx8vb?

[The trick]

Проверь сейчас, у меня просто tlb в другом месте лежит, я обновил в архиве tlb.

[Mikle]

Да, с этой библиотекой работает. Спасибо!

[Mikle]

Несколько дней бился с проблемой - спектроанализатор с данной библиотекой даёт сильные гармоники на чистом синусоидальном сигнале, причём не только кратные частоты, но и дольные. Полностью аналогичная программа на dx8vb работает нормально. Тогда я сделал сохранение в файл прочитываемого буфера, и увидел, что в сигнале не синус, а его короткие обрывки, из-за стыков получаются лишние частоты. Тогда в DirectX SDK я вычитал, что при чтении CaptureBuffer нужно убедиться, что из зоны чтения ушёл не только capture cursor, но и read cursor. Я это сделал, и всё заработало нормально. Я посмотрел позиции курсоров во время работы программы - read cursor всегда отстаёт от capture cursor, получается, что capture cursor можно вообще не проверять.
Всё теперь нормально, только странно, что для ReadBuffer из dx8vb хватает одного capture cursor.

[С.Т.]

Это здорово! Так просто!
Но есть вопрос.
Бегло изучив DirectSound, я понял так, что буферы воспроизводятся один за одним (при наполнении буфера звуковой информацией в методе .Lock мы получаем AudioPtr1 для наполнения и AudioPtr2 для информации, куда перетечёт излишек байт). Может, неверно понял, но это даже не важно. Важно, что буферы плавно переходят друг в друга, исключая щелчки.
А вот вопрос:
Можно ли сделать так, чтобы первый буфер сыграл один раз и перетёк во второй буфер, но чтобы этот второй буфер играл ЦИКЛИЧЕСКИ?
А по выходе из цикла (Buffer.Stop или специальной командой) перетёк бы в третий буфер, который опять же БЕЗ цикла завершит звучание.
То есть, середина звукового файла должна быть зациклена. А начало и конец - свободны.

Ведь цикличность мы задаём только в команде DSBuffer.Play - параметром DSBPLAY_LOOPING. А как сделать плавное перетекание (и желательно автоматическое) между буферами без цикла и буферами с циклом?

Поясню, зачем это нужно.
Делаю движок для воспроизведения звуковых шрифтов (SoundFonts) по файлам SFZ. Парсинг файла SFZ уже сделал, основные команды программа запоминает и готова управлять воспроизведением сэмплов.
И тут-то загвоздка. Очень часто нужно сэмпл разделить на три части:
№1. Начало - сыграть один раз;
№2. Середина - играть циклически;
№3. Окончание - сыграть один раз после принудительного выхода из цикла №2 (по отпусканию MIDI-клавиши).

Вроде бы варианта два:

1) Принудительный луп вручную. Загружаем файл сэмпла в буфер целиком командой DS.CreateSoundBuffer и устанавливаем в конце лупа контрольную точку командой SetNotificationPositions. И следим: как только достигаем этой контрольной точки, возвращаем позицию командой DSBuffer.SetCurrentPosition в точку начала лупа, и так всё время. А когда пользователь отпускает клавишу, снимаем эту необходимость и проходим на окончание сэмпла. Недостатки: ручное слежение - это отъём ресурсов, вероятность промашек, щелчки на стыках...

2) Частично встроенный луп. Загружаем файл сэмпла в ТРИ РАЗНЫХ буфера: начало, луп и конец. Как только отыграли начало, программа ТУТ ЖЕ должна получить импульс на запуск второй фазы - циклической, по "DSBuffer.Play 0,0,DSBPLAY_LOOPING". Но откуда получить этот импульс? Придётся ставить уведомление:

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

Dim Notify As IDirectSoundNotify
Dim Notifies() As DSBPOSITIONNOTIFY:   ReDim Notifies(0)
Notifies(0).dwOffset = DSBPN_OFFSETSTOP
Notifies(0).hEventNotify=DX.CreateEvent.......
Notify.SetNotificationPositions 1, Notifies(0)

А для этого устанавливать и подключать DirectX 8 лишь для CreateEvent! Но ведь Event нам нужен не по достижении определённой точки времени в буфере, а просто по его окончании. Может, можно выполнить это проще? Без доп. зависимостей и т.д.
И всё равно программе придётся следить за каждым звуком: когда ему пора переходить в циклическую фазу?
А звуков-то много. Нет-нет, да и опоздает, не уследит за всеми.
А вдруг возможно запрограммировать такое поведение в сам DirectSound?

Приложил максимально упрощённый проект, где по нажатии кнопки воспроизводится звук колокольчика, но как программно перейти в середине этого звука в Цикл (Audio-Loop, позволяющий оттянуть это звучание сколь угодно долго без угасания) - я всё-таки не разобрался. Сэмплы так сделаны, что заранее известны точки цикла, чтобы он был без щелчков. Но как выйти в Цикл после Бесциклового Начала ноты?

[The trick]

https://www.vbforums.com/showthread.php ... ost5546531

[С.Т.]

Ух ты!!! Это ИДЕАЛЬНО то, что нужно!!! Спасибище до небес!
Грандиозно! Выделяешь кусок графика - и получаешь серединный цикл!
Вот Вы человечище!