Декодирование музыкального формата OGG/Vorbis на VB6 (2 стр)
Автор: Максим Лебедев
Практическое использование.
Давайте подробнее рассмотрим, как использовать эту библиотеку. Выводить звук будем с помощью DirectX Sound8 через порт dx_vb.
Создадим новый проект, добавим в него модуль DirectX8 и классы DirectSound8, DirectSoundBuffer8.
В коде формы объявим и создадим интерфейсы DirectX Sound8, и наш класс для работы с OGG файлом:
Dim dxs As New DirectSound8 'объект DirectSound8 Dim dxsb As New DirectSoundBuffer8 'буфер Dim ogg As New MXOggFile 'класс для работы с ogg файлом
При запуске программы инициализируем DirectX Sound8 и загрузим наш OGG файл:
Set dxs = DirectX8.CreateDirectSound 'создаем устройство dxs.SetCooperativeLevel Me.hWnd, DSSCL_NORMAL 'устанавливаем приоритет If LoadData = False Then Unload Me: End 'если загрузка не успешна выйдем
Теперь рассмотрим код загрузки файла: