|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как запустить 2 и более аудиофайлов?
Добрый вечер)
Я никак не могу найти в Интернете как запустить два аудио файла которые будут вместе воспроизводить звук. Попробовал несколько команд из MMSystem с флагом SND_ASYNC и где-то неправильно вводил команду, так как был только звук ошибки. А в других случаях только один аудио файл играл, поскольку ресурс якобы занят и не может его взять. Пробовал несколько MediaPlayer'ов ставить и запустить звуки на разных дорожках, но опять же, ресурсы занимаются первым звуком и в это время второй не играет. Как можно воспроизводить несколько звуков одновременно? |
#2
|
||||
|
||||
"...несколько команд из MMSystem...":
Код:
uses MMSystem; procedure TForm1.Button1Click(Sender: TObject); begin mciSendString(PChar('play "Звук1.wav"'), nil, 0, 0); mciSendString(PChar('play "Звук2.wav"'), nil, 0, 0); mciSendString(PChar('close waveaudio'), nil, 0, 0); end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Cognizer (08.06.2017)
|
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
Неужели midi ещё используется, исторически сложилось, со времён ковокса, что в обычную аудиокарту был вшит всего один "железный" секвенсер, а потом и он исчез, вытесненный программным эмулятором, миди файл не аудио - это набор команд управления синтезатором, поэтому их нужно не микшировать, а распределять по дорожкам с правом доступа к одним и тем же инструментам, вот древний пример-недоделка самостоятельного управления
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#5
|
|||
|
|||
Цитата:
|