Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.75/8: Рейтинг темы: голосов - 8, средняя оценка - 4.75
 Аватар для Atomus
14 / 14 / 15
Регистрация: 21.08.2015
Сообщений: 48

Ошибка при попытке воспроизведения звука

04.01.2016, 22:08. Показов 1769. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть программа, где на фоне изначально играет длинный саундтрек, а при нажатии ЛКМ на графический объект, должен воспроизвестись звук (длина 1 сек), при этом саундтрек играет дальше. Переписал кусок, вот код:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
{$reference 'PresentationCore.dll'}
uses ABCObjects, GraphABC;
 
const h=250;
        w=350;
 
var soundtrack:= new System.Windows.Media.MediaPlayer;
     click:= new System.Windows.Media.MediaPlayer;
     cir:= new CircleABC(w div 2,h div 2,(h div 2)-10,clred);
 
procedure m(a,b,c:integer);
begin
  if (cir.PtInside(a,b)) and (c=1) then click.Play;
end;
 
begin
 setwindowsize(w,h);
 soundtrack.Open( new System.Uri('soundtrack.wav', System.UriKind.Relative));
 click.Open( new System.Uri('click.wav', System.UriKind.Relative));
 onmousedown+=m;
 soundtrack.Play;
end.
Всё работает, но если запуск звука находится ВНУТРИ процедуры клика мыши, выдаёт ошибку
Как можно исправить?
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
04.01.2016, 22:08
Ответы с готовыми решениями:

Ошибка при попытке воспроизведения звука
Привет всем) Сделал небольшую игру на Студии 2010 с++. Но проблемы со звуком. Пишет в консоли(смотрите вложение) В чем проблема??? Заранее...

Ошибка при воспроизведения звука
Такая проблема... по нажатию кнопки должна играть музыка Вот код private void button2_Click(object sender, EventArgs e) ...

Ошибка воспроизведения звука
Не пойму как исправить ошибку: public Microsoft.DirectX.AudioVideoPlayback.Audio audio; public List<string> path = new...

7
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33184 / 21482 / 8231
Регистрация: 22.10.2011
Сообщений: 36,849
Записей в блоге: 12
05.01.2016, 13:43
Я для проигрывания фоновой музыки использовал MediaPlayer, а для короткого звука - SoundPlayer: Проигрывание звуков в приложении при наступлении определенного события
1
 Аватар для Atomus
14 / 14 / 15
Регистрация: 21.08.2015
Сообщений: 48
05.01.2016, 16:33  [ТС]
Цитата Сообщение от volvo Посмотреть сообщение
Я для проигрывания фоновой музыки использовал MediaPlayer, а для короткого звука - SoundPlayer
А если нужно, чтобы фоновая музыка играла непрерывно? В MediaPlayer нет "PlayLooping", которая есть в SoundPlayer.
Пробовал что-то типа такого:

Pascal
1
2
3
4
5
6
7
8
9
 fsound := new System.Windows.Media.MediaPlayer;
 
procedure m(sender:object;E:system.EventArgs);
begin
 fsound.Stop;
 fsound.Play;
end;
 
fsound.MediaEnded+=m;
но выдаёт ошибку: Ошибка времени выполнения: Object reference not set to an instance of an object.

Если и фоновую музыку и звук сделать SoundPlayer, то при запуске звука прерывается воспроизведение музыки и не продолжается.

Если и фоновую музыку и звук сделать MediaPlayer, то ругается, когда я вызываю запуск звука внутри события клика мыши (что я и описал в теме)

Мне вообще нужно, чтобы при открытии окна изначально непрерывно играла фоновая музыка. При нажатии ЛКМ на графический объект (картинка, вроде кнопки) остановилось воспроизведение фоновой музыки и прозвучал "щелчок". При повторном нажатии он прозвучал вновь и запустилась дальше непрерывное воспроизведение фоновой музыки. По сути, кнопка ВКЛ/ВЫКЛ звука, являющаяся картинкой, нажатие которой сопровождается звуком щелчка
0
 Аватар для Atomus
14 / 14 / 15
Регистрация: 21.08.2015
Сообщений: 48
07.01.2016, 03:40  [ТС]
Актуально
0
 Аватар для Reckit
23 / 23 / 13
Регистрация: 05.09.2015
Сообщений: 142
07.01.2016, 14:04
Привет, это моя игра с исходным кодом, может поможет:
Вложения
Тип файла: rar SoundMaker.rar (869.9 Кб, 138 просмотров)
0
 Аватар для Reckit
23 / 23 / 13
Регистрация: 05.09.2015
Сообщений: 142
07.01.2016, 14:21
OpenSource\SoundButtons.pas:
Найдёшь функцию SelectButton
Там происходит воспроизведение звука.

С помощью SoundButton(type SoundButton=class) ты сможешь создавать в своих программах кнопки с возможностью воспроизведения звука. Можешь менять цвет границы/бэкгрунда, менять цвет выборки кнопки(граница/бэкгрунд), изменять размер кнопки, размер кнопки при выборе, и.т.д.
0
 Аватар для Reckit
23 / 23 / 13
Регистрация: 05.09.2015
Сообщений: 142
17.01.2016, 13:07
столько дней прошло, хотя бы написал что-ли помогло не?
0
 Аватар для Atomus
14 / 14 / 15
Регистрация: 21.08.2015
Сообщений: 48
19.01.2016, 15:56  [ТС]
Не помогло
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
19.01.2016, 15:56
Помогаю со студенческими работами здесь

Ошибка воспроизведения звука в консольном приложении
Почему не хочет воспроизводится звук(в консольном приложении)??? Этот же код в формах все нормально воспроизводит!!! Пробовал и с...

Воспроизведения звука при нажатии клавиши
Доброго времени суток! Можно сделать что-то в этом роде??? if (Form1->BitBtn1->Click()) { ...

Ошибка при попытке очистить дерево дважды или попытке очистить и заново заполнить
Привет, нужно написать программу с деревьями ( VS, формы) однако возникли проблемы: есть функции - создание, удаление и обходы. Однако...

Воспроизведения звука мгновенно
Здраствуйте. Хочу сделать звук щелчка на нажатие клавиш. Я знаю про функцию PlaySnd или както так. Но нужно сделать мгновенное...

Компонент для воспроизведения звука
Подскажите пожалуйста есть ли в Delphi компонент который может воспроизводить мелодии и если есть то что именно за компонент и как с ним...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Новый ноутбук
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
— Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru