Как включить MP3 вместо MIDI?

[Densil]

Доброе врямя суток всем. Кто-нибудь знает, как изменить следующий код (для MMControl), чтобы включался MP3 файл, а не только MIDI?

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

Private Sub Form_Load()
Dim DirPath

'm1 - это имя MMControl
m1.DeviceType = "Sequencer"

DirPath = App.Path 'возвращаем имя рабочего каталога программы

If Right(DirPath, 1) <> "\" Then 'проверка того, чтобы в конце
DirPath = DirPath + "\" 'имени был знак "\"
End If

m1.FileName = DirPath + "flo.mid"
m1.Command = "Open"
m1.Command = "Play"
End Sub


Или с помощью MMControla можно воспроизводить только MIDI?

[alibek]

Ты указываешь MMC использовать секвенсер и пытаешься подсунуть ему wav-файл?
Укажи другое устройства воспроизведения (если в системе установлены кодеки), либо юзай другие библиотеки.

[Densil]

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

[Densil]

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

[Kovu]

Densil
Тип устройства можно и не указывать

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

m1.FileName = "C:\1.mp3"
m1.Command = "Open"
m1.Command = "Play"


[BV]

Тип "MPEGVideo", но лучше заюзать мой класс: http://bbs.vbstreets.ru/viewtopic.php?t=19356

[Densil]

Kovu, вот спасибо - то выручил! Без обьявления типа устройства всё заработало.
Премного всем благодарен!