Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Мультимедиа в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 04.02.2010, 17:03   #1
Trial
Истребитель кофе
Пользователь
 
Аватар для Trial
 
Регистрация: 04.02.2010
Сообщений: 15
По умолчанию Одновременный запуск нескольких аудио файлов из ресурса

Народ помогите пожалуйсто ничё не получается( Кароче нужно воспроизвести несколько файлов одновременно.
PlaySound воспроизводит из ресурса, но по очереди.
MciSendString воспроизводит одновременно но как из ресурса воспроизвести я так и не понял.
Компонент MediaPlayer тоже может одновременно воспроизводить но опять же как из ресурса, непонятно.

Чтоб было более понятнее я делаю программу подобно этой флешке http://2-ch.ru/f/src/ToneMatrix.swf принцип в том что по вертикале квадратики издают разную тональность а по горизонтали время, вот нужно чтобы если два или несколько квадратиков нажать они одновременно издавали звук а не по очереди.
Trial вне форума
Старый 04.02.2010, 17:06   #2
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

Цитата:
PlaySound воспроизводит из ресурса, но по очереди
а с флагами баловались...
еще directsound есть...
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума
Старый 04.02.2010, 17:17   #3
Trial
Истребитель кофе
Пользователь
 
Аватар для Trial
 
Регистрация: 04.02.2010
Сообщений: 15
По умолчанию

Да по всякому я уже их ставил:

Так играет из ресурса по очереди:
Код:
PlaySound('SOUND', HInstance, SND_RESOURCE);
PlaySound('SOUND1', HInstance, SND_RESOURCE);
Даже если ставлю SND_RESOURCE or SND_SYNC всё равно сначало один потом другой

Если ставлю:
Код:
mciSendString(PChar('Play "D:\Путь\до\файла.mp3"'),nil,0,0);
mciSendString(PChar('Play "D:\Путь\до\файла2.mp3"'),nil,0,0);
Тогда играет одновременно.

directsound не пробовал, щас почитаю, ну хотя в принципе уверен что можно както через PlaySound сделать, но только как, понять не могу

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор


Хорошо, прочту все правила и обязуюсь соблюдать =)

Последний раз редактировалось Trial; 05.02.2010 в 11:01.
Trial вне форума
Старый 05.02.2010, 11:48   #4
Trial
Истребитель кофе
Пользователь
 
Аватар для Trial
 
Регистрация: 04.02.2010
Сообщений: 15
По умолчанию

Всё проблема решена есть флаг SND_ASYNC для асинхронного воспроизведения

Код:
PlaySound('SOUND', HInstance, SND_RESOURCE or SND_ASYNC);
PlaySound('SOUND1', HInstance, SND_RESOURCE or SND_ASYNC);
Звук воспроизводится одновременно из ресурса, невнимательность подводит

Тему можно закрывать.
Trial вне форума
Старый 05.02.2010, 17:56   #5
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

вот видите, флаги
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Запуск нескольких клиентов с одной машины unit-85 Работа с сетью в Delphi 4 16.03.2009 13:02
Проигрывание нескольких файлов <-=SG=-> Общие вопросы Delphi 3 11.10.2008 15:47
Слияние нескольких wav файлов lacost Мультимедиа в Delphi 1 30.09.2008 19:25
открытие нескольких файлов valyan Общие вопросы Delphi 10 17.07.2008 20:27
Копирование нескольких файлов + ProgressBar AngelOfDeath Общие вопросы Delphi 4 28.05.2008 14:57