PlaySound для 2 файлов

[JoanM]

Здравствуйте!
Я на этом форуме искал и через яндекс/гугель искал, но не нашёл. Вопрос: как воспроизвести 2 файла (можно больше) одновременно. Т.е. допустим у меня в проге играет фон + какой-то звукан появился. Через MediaPlayer не предлагайте (есть причины). Может быть есть какие флаги на PlaySound? Хорошо бы на PlaySound сделать.
На MediaPlayer делаю:

MP.filename:='asdfadf';
MP.Open;
MP.Play;

Когда в следующий раз делаю то же самое, даёт ошибку.
Пишу тогда:

If MP.Filename='Тот, что уже был открыт' then MP.Play;

Всё равно даёт какую-то ошибку про псевдоним файла.

Заранее спасибо!

[mutabor]

А второй MediaPlayer для второго звука не пробовал добавить? Первый пускай себе играет, и воспроизводи второй когда нужно.

В PlaySound нужно флаг передать такой чтобы управление вернула программе сразу, и можно будет еще раз запустить.

[Terran]

Если файлы которые нужно воспроизвести формата .wav, то можно использовать такой способ для каждого файла:

const
SND_ASYNC = $0001;
function sndPlaySound(lpszSoundName: PChar; uFlags: UINT): BOOL; stdcall; external 'winmm.dll' name 'sndPlaySoundA';
procedure PlayWav(FileName:string);
begin
sndPlaySound(PChar(FileName),SND_AS YNC);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
PlayWav('C:\1.wav');
end;

[lacost]

Пишу тут потому что не хочу создавать тему клон.

Такой вопрос, необходимо воспроизвести n звуков одновременно, думаю n будет не больше 10 но это не суть важно. Вобщем какой порекомендуете способ чтобы можно было управлять воспроизведением каждой мелодии, ещё очень важно чтобы это не сильно грущило систему так как все мелодии должны воспроизводиться чётко в своё время.

Буду благодарен за любые советы.

[JTG]

Ищи TBassPlayer, или просто bass.dll+bass.pas

[lacost]

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

Потому что те исходники которые я нарыл меня мало устаривают...

[mutabor]

Найди именно TBassPlayer, с ним помимо самого модуля и библиотек должны быть примеры использования с исходниками.

[lacost]

ДА спасибо нашел более менее понятно, но всётакии хотелось бы ещё и конкретный ответ. Может кто то сталкивался с одновременным воспроизведение нескольких звуков и будут советы в реализации....прошу простить за наглость

[SERG1980]

Попробуйте набор компонентов New Audio Component 1.72
http://www.softsl.com/Components-View-401.html

[mutabor]

Может кто то сталкивался с одновременным воспроизведение нескольких звуков и будут советы в реализации...

Не имеет значения каким компонентом или функцией воспроизводить звуки, принцип от этого не меняется. Если звуки воспроизводятся асинхронно, запускайте хоть пятьдесят, лишь бы ресурсов системы хватило. Это можно сделать и с TMediaPlayer и с PlaySound и тем более с более продвинутыми звуковыми движками.

Если BASS вы скачали только ради этого, можно было этого не делать, а обойтись стандартными средствами Дельфи.

Тут вообще вопрос реализации алгоритма, вывода звуков мало касающегося. Все зависит от конкретной задачи. В общем случае, я бы поместил в массив идентификаторы звуков, время их вывода, и в таймере проверял подошло ли время, если подошло - запускал бы определенный звук.