проиграть midi-файл из файла ресурсов

[pokerlifer]

проиграть wav-файл, хранящийся в res-файле можно sndStopSound'ом.
а как сделать то же самое, но с midi-файлами и циклически?

[Клим]

тебе обязательно проигрывать из res файла?

[A.A.Z.]

Клим, напиши, как проигрывать midi, а я напишу, как из ресурса их вытащить.

[Клим]

через виндовс-медиа контрол наверное.

[EvilCoder]

Ты бы по форуму поискал, подобных тем здесь навалом.....

[Keen]

По моему опыту его нужно только вытаскивать и воспроизводить с помощью MCIExecute. А прямо из res - не знаю .

[pokerlifer]

из ресурса загружается пользовательский массив данных.
LoadResData 100.
но как-то надо объяснить,
что это на самом деле
midi-строка.
как-то разбивать его на части, что ли?
и кто знает, можно ли на VB библиотеки звуков и картинок делать?

[A.A.Z.]

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

Sub ExtractFileFromResource(ByVal ResID As Long, ByVal FileName As String)
Dim B() As Byte, FF&
B = LoadResData(ResID, "CUSTOM")
FF = FreeFile()
Open FileName For Binary Access Write As #FF
Put #FF, , B
Close #FF
End Sub

Процедура вытаскивает из № ресурса (ResID) байтовый массив и записывает его в файл (FileName).

После этого просто проигрываете все, что Вам нужно. Как обычно.
Можно после этого удалить файл.

[pokerlifer]

большее спасибо, работает.
только как теперь цикл организовать?

в sndPlaySound для WAV'ов есть параметр LOOP,
а в MCICommand для midi вроде как и нет ничего такого.

[Santa]

Конечно запоздало но вопрос назрел.
Хочу заострить внимание на проигрывание .mid не посредственно из .res. Как организовать с .wav я знаю, а как это сделать с .mid?!!
Нужна помощь, помогите!

[pokerlifer]

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

1. http://www.vbrussian.com/Examples.asp?ID=58
2. http://www.syix.com/wpsjr1/WPMidi.bas
3. http://azbukavb.narod.ru/vbcod/vbcod5.html
4. http://temp.vbstreets.ru/default.asp?pa ... ld&id=vb08
5. http://vb.narod.ru/stat/k19.htm

[Santa]

Вопрос о цикличности и воспроизведении .mp3 решился, спасибо за сотрудничество, всё получилось куда лучше чем ожидалось.
Но смею заметить, что ответ на вопрос "проигрывание .mid не посредственно из .res файла прикрепленного к проекту, не сохраняя .mid на диск" остался не решенным.
Помощь нужна по прежнему!