Как воспроизводить не один файл (MMControl)?

[Adolf]

Как воспроизвести не один файл, а несколько и последовательно с помощью MMControl?

Один файл воспроизводится так:
MMControl1.FileName = App.Path & "\Data\Sounds\Sound-1.mid"

А как воспроизвести два и больше?

[Jenizix]

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


MMControl1.FileName = App.Path & "\Data\Sounds\Sound-1.mid"
MMControl1.command="open"
MMControl1.command="play"
MMControl1.command="close"

MMControl1.FileName = App.Path & "\Data\Sounds\Sound-2.mid"
MMControl1.command="open"
MMControl1.command="play"
MMControl1.command="close"


[Enter]

Задать несколько файл-неймов сразу нельзя, т.к тогда ни один из них не будет найден. => не будет воспроизводиться. Если задать сначала один файл-нейм и дать команду MMControl.Command="PLAY", а затем проделать то же с другим, то файлы будут воспроизводиться вместе, т.е накладываться друг на друга. => Файл неймы нужно задавать последовательно. Автоматизировать процесс воспроизведения можно, создав список имен и заставив их изменяться по закону n=n+1 (или другому), будет уместно использовать FileList, т.к там есть полезное свойство Path, где можно один раз задать путь к списку файлов. Как ты реализуешь свою задумку дело твоего творчества.

[Enter]

ИМХО в случае с твоим кодом файл будет закрываться, не успев воспроизвестись. Команды MMControl надо писать БОЛЬШИМИ БУКВАМИ иначе ничего не выйдет.

[Jenizix]

ИМХО в случае с твоим кодом файл будет закрываться, не успев воспроизвестись.

Не, ну я просто показал как это можно сделать...

Команды MMControl надо писать БОЛЬШИМИ БУКВАМИ иначе ничего не выйдет.

Странно но у меня все и так работает...

[Adolf]

Не стал я все это так мастерить, сделал проще, пусть пользователь сам выбирает Sound, который ему нравится. А то я второй день все с этим MMControl разбираюсь, сделал такую даже штуку.

1)MMControl начинает запуск саундтрека.
2)Переход на следующий саундтрек держит в своих руках таймер, интервал которого настроен под время музыки. Время определять надо в ручную и вписать его в код.
3) Когда время истекает, начинает воспроизводится следующий саундтрек и так по кругу.

Но согласитесь это все не так должно описыватся. Должно существовать более простое решение.

Так что я создал просто плей-лист что хочу, то и слушает пользователь из списка, если нечего не нравится, то пользователь отключает.

Большими буквами не обязательно писать - у меня и так все работает.

[Jenizix]

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

А это можно сделать так: при завершении проигрывания вызываеться MMControl1_Done туда и написать переход на следующий трек...

вот что получилось...

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

Private Sub List1_Click()
MMControl1.Command = "stop"
MMControl1.FileName = List1.List(List1.ListIndex)
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub

Private Sub MMControl1_Done(NotifyCode As Integer)
MMControl1.Command = "stop" ' хотя наверное необязательно....
MMControl1.FileName = List1.List(List1.ListIndex + 1)
MMControl1.Command = "open"
MMControl1.Command = "play"
End Sub


[Adolf]

Jenizix
Я сделал несколько по-другому - тоже работает.