Использование playsound

@TBySky · Регистрация: 31.01.2016

Студворк — интернет-сервис помощи студентам

Функция windows playsound которую можно использовать в делфи может
запускаться с параметрами snd_sync и snd_async. в первом случае программа
вызвавшая функцию останавливается на время воспроизведения, а во втором нет,
но если программа опять вызовет playsound а воспроизведение еще не завершилось
то звук получается рваным или вообще ничего не прозвучит. как сделать что бы
с одной стороны программа не останавливалась на время звучания, а с другой
- что бы новый звук не начинал воспроизводиться пока звучит старый. Можно ли
так сделать без создания потока.

@krapotkin · 07.10.2017, 20:20

т.к. у вас нет события, которое возникает после окончания PlaySound(ASYNC), то как вы узнаете, закончился звук уже или нет?
так что вариант только делать SYNC в потоке

@Jin X · 08.10.2017, 11:03

Через PlaySound такое сделать не получится, т.е. в очередь звуки не поставишь

Тут нужно использовать waveOut-функции.

Как вариант можно использовать опцию SND_NOSTOP, тогда PlaySound будет выдавать False, если звук ещё воспроизводится. Вот так:

Delphi
1
2
3
4
5
  PlaySound(0, 0, 0);  // останавливаем прежние звуки
  PlaySound('C:\Windows\Media\tada.wav', 0, SND_FILENAME or SND_ASYNC or SND_NODEFAULT);
  Sleep(100);  // небольшая задержка, чтобы предыдущий PlaySound успел начать воспроизведение
  repeat
  until PlaySound('C:\Windows\Media\notify.wav', 0, SND_FILENAME or SND_ASYNC or SND_NODEFAULT or SND_NOSTOP)

@krapotkin · 08.10.2017, 14:00

Сообщение от Jin X

repeat
* until

ага, а вся остальная программа будет просто ждать

@Jin X · 08.10.2017, 17:32

Это просто для иллюстрации, что можно в любой момент попробовать и проверить – закончился ли звук (и начался ли новый).
Но звук всё равно будет рваным.

Добавлено через 1 минуту
А нормально – через waveOut-функции.

@Jin X · 08.10.2017, 22:05

TBySky, вот пример реализации через waveOut-функции.

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@TBySky 0 / 0 / 0 Регистрация: 31.01.2016 Сообщений: 5

	Использование playsound 07.10.2017, 17:16. Показов 8568. Ответов 5 Метки нет (Все метки) Функция windows playsound которую можно использовать в делфи может запускаться с параметрами snd_sync и snd_async. в первом случае программа вызвавшая функцию останавливается на время воспроизведения, а во втором нет, но если программа опять вызовет playsound а воспроизведение еще не завершилось то звук получается рваным или вообще ничего не прозвучит. как сделать что бы с одной стороны программа не останавливалась на время звучания, а с другой - что бы новый звук не начинал воспроизводиться пока звучит старый. Можно ли так сделать без создания потока. 0

@krapotkin 6847 / 4674 / 1463 Регистрация: 14.04.2014 Сообщений: 20,653 Записей в блоге: 21
	07.10.2017, 20:20
	т.к. у вас нет события, которое возникает после окончания PlaySound(ASYNC), то как вы узнаете, закончился звук уже или нет? так что вариант только делать SYNC в потоке 0

@Jin X Asm/C++/Delphi/Py/PHP/VBA 6808 / 2048 / 238 Регистрация: 14.12.2014 Сообщений: 4,297 Записей в блоге: 12
	08.10.2017, 17:32
	Это просто для иллюстрации, что можно в любой момент попробовать и проверить – закончился ли звук (и начался ли новый). Но звук всё равно будет рваным. Добавлено через 1 минуту А нормально – через waveOut-функции. 0