Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Закрытая тема
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 24.04.2014, 22:56
delpi12 delpi12 вне форума
Новичок
 
Регистрация: 14.03.2014
Сообщения: 82
Версия Delphi: Delphi XE2
Репутация: -623
По умолчанию как сделать звуки в программе

как сделать звуки в программе при нажатие на кнопку ? но звук был внутри программы не была в отделной папке ?
  #2  
Старый 24.04.2014, 23:25
Аватар для angvelem
angvelem angvelem вне форума
.
 
Регистрация: 18.05.2011
Адрес: Омск
Сообщения: 3,970
Версия Delphi: 3,5,7,10,12,XE2
Репутация: выкл
По умолчанию

Добавить WAV-файл(ы) в ресурсный файл.
Код:
PlaySound(PChar(Имя в ресурсном файле), hInstance, SND_RESOURCE or SND_MEMORY or SND_ASYNC);
Не забыть подключить MMSystem в uses.
__________________
Je venus de nulle part
55.026263 с.ш., 73.397636 в.д.
  #3  
Старый 25.04.2014, 00:03
delpi12 delpi12 вне форума
Новичок
 
Регистрация: 14.03.2014
Сообщения: 82
Версия Delphi: Delphi XE2
Репутация: -623
По умолчанию

Цитата:
Сообщение от angvelem
Добавить WAV-файл(ы) в ресурсный файл.
Код:
PlaySound(PChar(Имя в ресурсном файле), hInstance, SND_RESOURCE or SND_MEMORY or SND_ASYNC);
Не забыть подключить MMSystem в uses.

не звучит нечего ?
  #4  
Старый 25.04.2014, 06:47
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

А файл в ресурс добавил?
  #5  
Старый 25.04.2014, 14:36
delpi12 delpi12 вне форума
Новичок
 
Регистрация: 14.03.2014
Сообщения: 82
Версия Delphi: Delphi XE2
Репутация: -623
По умолчанию

Цитата:
Сообщение от lmikle
А файл в ресурс добавил?

нет как добавить ?
  #6  
Старый 25.04.2014, 17:19
SEREGA_AP55 SEREGA_AP55 вне форума
Прохожий
 
Регистрация: 25.04.2014
Сообщения: 1
Версия Delphi: delphi 7
Репутация: 10
По умолчанию

СКАЖИТЕ ПОЖАЛУСТА КАК СОЗДАТЬ МУЗ ФАИЛ РЕСУРСА
  #7  
Старый 25.04.2014, 18:05
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от delpi12
нет как добавить ?
Цитата:
Сообщение от SEREGA_AP55
СКАЖИТЕ ПОЖАЛУСТА КАК СОЗДАТЬ МУЗ ФАИЛ РЕСУРСА
Сначала создаёшь текстовый документ (но с расширением .rc) и в нём добавляешь примерно такие строки:
Цитата:
Музычка1 WAVE "C:\WINDOWS\Media\tada.wav"
Т.е. для каждого музыкального файла новая строка в этом файле.
Теперь добавь этот текстовый rc-файл к себе в проект: Меню -> Project -> Add to Project -> ... Открыть
И после компиляции проекта вот так должно зазвучать:
Код:
uses
  ....., MMSystem;
.....
procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySound('Музычка1', HInstance, SND_RESOURCE or SND_MEMORY or SND_ASYNC);
end;
Этот пользователь сказал Спасибо poli-smen за это полезное сообщение:
Alegun (02.05.2014)
  #8  
Старый 25.04.2014, 22:58
delpi12 delpi12 вне форума
Новичок
 
Регистрация: 14.03.2014
Сообщения: 82
Версия Delphi: Delphi XE2
Репутация: -623
По умолчанию

как добавит wav в ресурс создал текстовой файла rc что в нем написат ?
  #9  
Старый 25.04.2014, 23:04
Аватар для poli-smen
poli-smen poli-smen вне форума
Профессионал
 
Регистрация: 06.08.2012
Адрес: Кривой Рог
Сообщения: 1,791
Версия Delphi: Delphi 7, XE2
Репутация: 4415
По умолчанию

Цитата:
Сообщение от delpi12
как добавит wav в ресурс создал текстовой файла rc что в нем написат ?
Я же в предыдущем сообщении написал что в нём писать.
  #10  
Старый 25.04.2014, 23:33
delpi12 delpi12 вне форума
Новичок
 
Регистрация: 14.03.2014
Сообщения: 82
Версия Delphi: Delphi XE2
Репутация: -623
По умолчанию

Цитата:
Сообщение от poli-smen
Я же в предыдущем сообщении написал что в нём писать.

я написал а что потом сделат ?
  #11  
Старый 25.04.2014, 23:53
Аватар для M.A.D.M.A.N.
M.A.D.M.A.N. M.A.D.M.A.N. вне форума
Sir Richard Abramson
 
Регистрация: 05.04.2008
Сообщения: 5,505
Версия Delphi: XE10
Репутация: выкл
По умолчанию

До тебя баны не доходят?
__________________
— Как тебя понимать?
— Понимать меня не обязательно. Обязательно меня любить и кормить вовремя.


На Delphi, увы, больше не программирую.
Рекомендуемая литература по программированию
  #12  
Старый 26.04.2014, 05:52
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,087
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

Можно просто скомпилировать в res и подключить директивой {$R FileName}. Для компиляции есть утилита коммандной строки, brcc кажется.
  #13  
Старый 26.04.2014, 07:38
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от delpi12
я написал а что потом сделат ?
http://www.delphisources.ru/forum/sh...19&postcount=4
__________________
Пишу программы за еду.
__________________
  #14  
Старый 27.04.2014, 20:03
delpi12 delpi12 вне форума
Новичок
 
Регистрация: 14.03.2014
Сообщения: 82
Версия Delphi: Delphi XE2
Репутация: -623
По умолчанию

у меня не открывается BRCC32.exe как сделать чтобы wav файл хранился внутри программы ?
и запустит при нажатие кнопки
  #15  
Старый 27.04.2014, 20:32
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

добавь его в ресурсы
__________________
Пишу программы за еду.
__________________
Закрытая тема


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 23:44.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025