Проигрывание файла wav

[Tatyanka]

Вопрос простой: как проиграть файл wav? Но это не должен быть стандартный звук, как в команде Beep, потому что при разных событиях проигрываются разные звуки. Если не wav, то хоть какой-нибудь аудиофайл... Желательно без запуска дополнительных программ..

[Чудик]

почитай, может то?

[Чудик]

или вот:
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_MEMORY = &H4
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10



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)
Private Declare Function sndPlaySound& Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long)
Private Declare Function sndStopSound& Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszNull As Long, ByVal uFlags As Long)


Private Sub Command1_Click()
result = mciSendString("open ""C:\Documents and Settings\Àäìèíèñòðàòîð\Ìîè äîêóìåíòû\For Siemens\fish.mid"" type sequencer alias fish", 0&, 0, 0)
result = mciSendString("play fish", 0&, 0, 0)
result = mciSendString("Close Animation", 0&, 0, 0)
End Sub

Private Sub Command2_Click()
result = sndPlaySound("C:\Documents and Settings\Àäìèíèñòðàòîð\Ìîè äîêóìåíòû\For Siemens\Male on.wav", SND_ASYNC Or SND_NODEFAULT)
End Sub

Private Sub Command3_Click()
'result = mciSendString("stop fish", 0&, 0, 0)
'result = mciSendString("Close fish", 0&, 0, 0)
result = sndPlaySound("E:\My.wav", SND_ASYNC)
End Sub

Private Sub Command4_Click()
result = sndStopSound(0, SND_ASYNC)
End Sub

[Андрей Васюта]

Воспользуйся поиском или посмотри тут http://bbs.vbstreets.ru/viewtopic.php?t ... ht=wav+%E0

[tyomitch]

Ещё PlaySound почему-то все забыли...
Пример тут: http://bbs.vbstreets.ru/viewtopic.php?t=11834

[Tatyanka]

YES!!! Спасибо, tyomitch!!!

[jangle]

народ, как проиграть wav однократно, а не циклически?

[dr.MIG]

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

Private Const SND_FILENAME = &H20000
Private Const SND_ASYNC = &H1
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

PlaySound "SOME.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC


[Proxy]

Давно хотел впросить: а в висте PlaySound тоже работает? Или это удел NT?

[tyomitch]

Домашнее задание товарищу Proxy:
1) ввести в гугл слово PlaySound
2) кликнуть по первой ссылке
3) найти параграф Requirements
4) сделать выводы


jangle тоже хорош: существующий топик нашёл, а в нём существующий ответ на свой вопрос -- не смог

[Proxy]

Windows NT/2000/XP: Included in Windows NT 3.1 and later.
Windows 95/98/Me: Included in Windows 95 and later.

Отсутствие Vista говорит о том, что инфа возникла ещё до её появления. Хотелось бы узнать достоверно.

[jangle]

jangle тоже хорош: существующий топик нашёл, а в нём существующий ответ на свой вопрос -- не смог

Так файл воспроизводится циклически, а мне нужно проиграть только один раз

[Williams]

Windows NT/2000/XP: Included in Windows NT 3.1 and later.
Windows 95/98/Me: Included in Windows 95 and later.

Отсутствие Vista говорит о том, что инфа возникла ещё до её появления. Хотелось бы узнать достоверно.

Сказано же, And Later. Снятие этой функции в Висте убило бы данный функционал в некоторых программах, зачем это по-твоему надо Майкрософту? Все операционные системы серии проектируются таким образом, чтобы обеспечить обратную совместимость.

народ, как проиграть wav однократно, а не циклически?

У PlaySound есть SND_LOOP:

The sound plays repeatedly until PlaySound is called again with the pszSound parameter set to NULL. If this flag is set, you must also set the SND_ASYNC flag.