Воспроизведение звука

[Ramauf]

Как можно воспроизвести звук нужной частоты через динамик (не системный)? А через API функции?!!

[goro]

Как можно воспроизвести звук нужной частоты через динамик (не системный)? А через API функции?!!

По моему на ВБ это сделать нереально, разве что воспроизводить уже существующий wav файл.

[Vovik]

Как можно воспроизвести звук нужной частоты через динамик (не системный)? А через API функции?!!

Через API - нельзя... А вот через DirectX стоило попробовать!

[Шурик]

Как воспроизвести звук и видео
'Вариант 1

Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long
Private Sub Form_Click()
Dim res
res = mciExecute("Play C:\Путь_до_файла")
End Sub
'Вообще, для того, что бы воспроизвести аудио или видео файл, можно воспользоваться элементом управления Microsoft Multimedia Control, но при этом вместе с вашим приложением придется таскать файл MCI32.OCX, а это лишних 193 кб, приведенный же выше код гораздо меньше. Прим. все вышесказанное касается только тех случаев, когда вам необходимо просто проиграть какой-то звуковой файл из программы.

'Вариант 2

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Sub Form_Load()
Dim x As Long
x = PlaySound("C:\Путь_до_файла", 0, &H1 Or &H10)
End Sub

'Вариант 3

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Form_Load()
Dim x As Long
x = sndPlaySound("C:\Путь_до_файла", &H1 Or &H10)
End Sub

Первый параметр, lpszSound, представляет собой имя WAV-файла, который вы хотите проиграть.

Второй параметр, fuSound, содержит одну из следующих констант, которые передают Windows простые команды.

SND_SYNC 0x0000 Играть синхронно (по умолчанию)
SND_ASYNC 0x0001 Играть несинхронно
SND_NODEFAULT 0x0002 Не использовать звук, предпологающийся по умолчанию
SND_MEMORY 0x0004 Первый параметр - файл памяти
SND_LOOP 0x0008 Проигрывать звук в цикле до следующего обращения к sndPlaySound
SND_NOSTOP 0x0010 Не прекращать проигрывать текущий звук
Возвращаемое значение

Возвращает TRUE, при успешном выполнении, в обратном случае FALSE
Параметры функции: lpszSoundName Имя файла. Если этот параметр NULL,
то проигрывание файла останавливается. fuOptions Специальные опции
для проигрывания музыки. Они могут быть следующими:
Значение Описание SND_SYNC Музыка играется синхронно, и функция не
возвращает указатель пока не будет конца файла. SND_ASYNC Музыка
играется асинхронно, и функция возвращает указатель сразу после
начала проигрывания файла. Чтобы остановить проигрывание,
надо вызвать функцию SndPlaySound с параметром lpszSoundName
установленным в NULL. SND_NODEFAULT Если файл не найден,
то функция возвращает указатель сразу и не проигрывает
стандартный звуковой эффект Windows. SND_MEMORY
Этот параметр нужен для проигрывания Wave-файла в виде ресурса
(из памяти). SND_LOOP Этот параметр нужен для проигрывания
Wave-файла в циклическом режиме. Также при этом вы должны
использовать влаг SND_ASYNC. Чтобы остановить проигрывание,
надо вызвать функцию SndPlaySound с параметром lpszSoundName
установленным в NULL. SND_NOSTOP Если музыка уже проигрывается,
то функция возврвщает FALSE. Возвращаемое значение:
Если музыка проигрывается правильно, то функция возврвщает TRUE,
иначе FALSE.

[Amed]

2Z-zzz Вопрос-то не о том, как проигрывать файлы

P.S. Возможно, ключ к решению в том, чтобы "на лету" записывать wav-файлы с нужной частотой и длительностью звука и потом их же проигрывать?
P.P.S. Я пошёл искать форматы wav-файлов...

[Mikle]

Зачем вообще нужен файл? В DirectSound создать буфер, заполнить его вручную данными и воспроизвести. Причем, если нужны звуки разных частот, DirectSound позволит воспроизвести буфер с разными частотами не меняя данных.

[Ramauf]

А можешь предоставить технологию воспроизведения через DirectSound???

[alibek]

Можно и через API, установив флаг SND_MEMORY и создав в памяти виртуальный WAV-файл (например в байтовом массиве). Но DirectX конечно дает больше возможностей.

[Mikle]

А можешь предоставить технологию воспроизведения через DirectSound???

http://www.tuapse-mikle.narod.ru/snd.zip

[Ramauf]

Спасиба, посмотрю.

[mark+]

Большое спсибо z-zzz. Я как раз пишу программу, где не используется ни одного дополнительного контрола будь то MMC или Dialog... а звук нужен!

[Шурик]

Большое спсибо z-zzz. Я как раз пишу программу, где не используется ни одного дополнительного контрола будь то MMC или Dialog... а звук нужен!

Всегда пожалуйста!!!!!

[Mikle]

To Z-zzz:

понравился вариант с MCIExecute, более короткого я еще не видел. Но как потом управлять воспроизведением. В MSDN нашел список команд MCIExecute, Stop, Open, Close, Pause там есть, но где хотя бы Volume? Может для установки громкости воспроизведения использовать не MCIExecute, а другую команду?

[MEMBER]

MCISendString