![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
|
Добрый вечер)
Я никак не могу найти в Интернете как запустить два аудио файла которые будут вместе воспроизводить звук. Попробовал несколько команд из 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
|
|||
|
|||
|
Цитата:
![]() |