Как в API воспроизвести одновременно больше одного звука?

[SGO]

Я делаю звук так:
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Call PlaySound("ляляля.wav", 0, 1)
Так как же мне "примикшировать" к этому ещё один звук поверх, чтоб он пе прерывал первый? (в поиске не нашёл).

[EUGY]

Public Const SND_NOSTOP = &H10 ' don't stop any currently playing sound

[SGO]

и куда потом эту константу?

[EUGY]

Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

'
Call PlaySound("ляляля.wav", 0, SND_ASYNC Or SND_NOSTOP)
'

[AD'onis]

Доброго времени суток всем!
Ну, допустим, что я прописал, как написал EUGY:
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

И делаю вызов 1-го файла:
Call PlaySound("ляляля1.wav", 0, SND_ASYNC Or SND_NOSTOP)
Через некоторое время - 2-го:
Call PlaySound("ляляля2.wav", 0, SND_ASYNC Or SND_NOSTOP)
Тогда просто глохнет файл 1, а когда 2-й закончится, то первый будет продолжен. Вот в чем фишка получается . Как тогда исправить это?

[iGrok]

DirectSound ?

[AD'onis]

iGrok
Немного не понял...
Неужели через WinAPI нельзя?

[AD'onis]

Ну неужели никто не знает можно ли посредством WinAPI "смикшировать" несколько звуков в процессе работы проги?

[AD'onis]

Вот, нашел код, может у кого возникнут подобные вопросы, чтоб также не мучался . Поддерживается как wav, так и mp3.

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

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long


И вызов:

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

Call mciExecute("play " & App.Path & "\1.mp3")

Ну это сколько надо раз (с соотв. именами файлов), только нужно учитывать, чтоб в пути пробелов не было (или использовать функцию для трансформации пути к файлу в DOS-формат)
А для остановки:

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

Call mciExecute("stop " & App.Path & "\1.mp3")

Все, думаю, тему можно закрыть

[iGrok]

Причем есть подозрение, что и пробелы в имени файла вполне допустимы, при условии, что путь и имя файла будет заключено в кавычки в строке...
"stop " & chr(34) & App.Path & "\1.mp3" & chr(34)

[AD'onis]

iGrok
Нет, попробовал, не прокатило, надо переводить в ДОС-формат, т.к. она еще и длинные имена каталогов и файлов не берет (насчет кириллицы не пробовал)

[HiSER]

Можно воспользоваться этой функцией:

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

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

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

mciSendString "open """ & FileName & """ alias mymusic", vbNullString, 0, 0
mciSendString "play mymusic", vbNullString, 0, 0
mciSendString "stop mymusic", vbNullString, 0, 0
mciSendString "close mymusic", vbNullString, 0, 0

Можно использовать без "alias".
Путь пишется в двойных кавычках, без разницы какой.

[AD'onis]

HiSER
О, а за этот код спасибо