MIDI без тормозов

[HiddenMan]

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

Вопрос: как этого можно избежать?

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

i = mciSendString("close mid1", 0&, 0, 0)
i = mciSendString("open " & FileName & " type sequencer alias mid1", 0&, 0, 0)
i = mciSendString("status mid1 length", Mssg, 255, 0)
i = mciSendString("play mid1 from 0", 0&, 0, 0)


[JohnK]

Нужно смотреть весь код, может у тебя там что-то подвисает.

[HiddenMan]

Задержка происходит точно после i = mciSendString("open " & FileName & " type sequencer alias mid1", 0&, 0, 0)

[HiddenMan]

Может как то в отдельном потоке это всё реализовать :/ только ходят слухи, что у VB6 проблемы с потоками.

[iGrok]

Может как то в отдельном потоке это всё реализовать :/ только ходят слухи, что у VB6 проблемы с потоками.

Простое решение: А почему бы тебе не вынести загрузку midiшек в самое начало, а когда надо просто сделать play ?

[HiddenMan]

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

[JohnK]

А что тебе подгрузить их все в начале, я думаю альясов придумать не составит особого труда.

[HiddenMan]

надо бы попробовать...
спасибо за наводку

[HiddenMan]

Да ужжж!
Загружается она конечно как большая
(секунд 15)
но зато музыки переключаются уже без тормозов, что и требовалось.

Товарищи iGrok и JohnK, ещё раз БОЛЬШАЯ СПАСИБА

[vladikcomper]

А зачем вообще ждать? Есть способ воспроизведения MIDI без зависаний.
Есть библиотека quartz.dll, которая если не ошибаюсь является DirectShow. Она позволяет воспроизводить WAV, WMA, MP3 и MIDI, без каких-либо зависаний.
Работать с ней просто. Вот моя статья про ее использование:
http://vladikcomper.narod.ru/prog_codes_view.htm?23

[HiddenMan]

Влад, статью я почитал, вот только я не знаю входит эта либа в стандартную комплектацию вин98 или нет, короче не проверял ещё.
А всё таки как она работает? Видимо есть какой то более продвинутый способ проиграть миди чем юзать mciSendString :\
Что это за способ?
Кто знает?

[iGrok]

Влад, статью я почитал, вот только я не знаю входит эта либа в стандартную комплектацию вин98 или нет, короче не проверял ещё.
А всё таки как она работает? Видимо есть какой то более продвинутый способ проиграть миди чем юзать mciSendString :\
Что это за способ?
Кто знает?

quartz.dll есть в win98. Работу не проверял, но она есть, и VB с ней работать может.

З.Ы. А способ этот - как раз юзать quartz.dll. )
Либо, если копать глубже, разбирать midi-файлы "по нотам", и отдавать соответствующие команды драйверу синтезатора.

[Proxy]

Если не секрет: для чего ориентироваться на совместимость с Win98? Она ещё где-то юзабельна?

[HiddenMan]

Win98? Она ещё где-то юзабельна?

Кое где люди ещё с 95 не слезли ))

[Proxy]

Можно доверить воспроизведение midi отдельному процессу (это как временное решение). Написать параллельный exe проект для воспроизведения midi, создать одно единственное окно (это временное решение, повторяюсь) в нём, и через сообщения организовать начало воспроизведения той или иной midi, закрытия вспомогательной программы. Если вспомогательно приложение ещё не загрузилось - оно просто не отреагирует на сообщение, никаких подвисаний не будет.

[iGrok]

Можно доверить воспроизведение midi отдельному процессу (это как временное решение). Написать параллельный exe проект для воспроизведения midi, создать одно единственное окно (это временное решение, повторяюсь) в нём, и через сообщения организовать начало воспроизведения той или иной midi, закрытия вспомогательной программы. Если вспомогательно приложение ещё не загрузилось - оно просто не отреагирует на сообщение, никаких подвисаний не будет.

Бррррр.. Зачем???? 0_O
Куда тебя понесло вообще?
Приемлемое решение же уже дано. Даже нормальное, правильное решение уже дано. Зачем ты этого монстра предлагаешь?

[Proxy]

Просто пока разбираешься с quartz.dll можно как временное(!) решение сделать вот так.

Кстати: где можно почитать про работу с MIDI-набором аудиокарты? Точней как опросить карту о имеющихся наборах, открыть канал и передать некоторую последовательность нот (тон/дилэй) на воспроизведение (несколько стримов). Поиск что-то не сильно помог (не знаю как корректно запрос сформулировать).

[Mikle]

Можно воспроизводить через DirectMusic, тогда доступен выбор миди синтезатора, в том числе аппаратного, если есть. А по умолчанию воспроизводится через MS Sinth, он звучит довольно прилично и, главное, на всех звучках одинаково. Вот пример:

[Proxy]

Спасибо, посмотрю.

[vladikcomper]

Можно воспроизводить через DirectMusic

Ну, это думаю, лишнее.
1) Уменьшится совместимость. Например, в DirectX11 нет файлов dx7vb.dll и dx8vb.dll, при попытке их установить и зарегистрировать, система выдает ошибку. Проверено на Windows 7 RC.
2) DirectMusic, может, хорош в играх, для полноценного использования DirectX. Но он синтезирует музыку через Программный синтезатор, что звучит не всегда хорошо (это, конечно, мягко сказано).
3) А Quartz.dll он есть, был и будет. И в Вин98, и Вин7. К тому же сам могучий Windows Media Player его юзает.

[Mikle]

нет файлов dx7vb.dll и dx8vb.dll, при попытке их установить и зарегистрировать, система выдает ошибку. Проверено на Windows 7 RC.

А у меня без проблем на Win7 dx8vb.dll зарегистрировалась.

Но он синтезирует музыку через Программный синтезатор, что звучит все всегда хорошо

Он позволяет выбрать любой синтезатор.

А Quartz.dll он есть, был и будет.

Ничего против него не имею.

[vladikcomper]

А у меня без проблем на Win7 dx8vb.dll зарегистрировалась.

Я пытался зарегистрировать dx7vb.dll - не получилось, решил тогда, что и dx8vb.dll не пойдет.
Как бы то ни было, DMusic - не совсем подходящий вариант.
Quartz.dll - универсальнее и мощнее, он поддерживает больше форматов, работать с ним проще.
Я тоже ничего не имею против DMusic, просто есть способ проще и лучше.
Впрочем, пускай HiddenMan сам выбирает, мы предложили ему способы.

P.S.: Извиняюсь за свою жуткую ошибку:
Я написал:

Но он синтезирует музыку через Программный синтезатор, что звучит все всегда хорошо

Вместо:

Но он синтезирует музыку через Программный синтезатор, что звучит не всегда хорошо

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