Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 27.04.2014, 20:20   #1
alman12
Форумчанин
 
Регистрация: 30.12.2013
Сообщений: 466
По умолчанию звук был внутри программы ?

добавления wav файла в ресурс программы чтобы при нажимания на кнопку проигровался звук , у меня не открывается BRCC32

как сделат чтобы звук был внутри программы ?
alman12 вне форума Ответить с цитированием
Старый 27.04.2014, 20:45   #2
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,434
По умолчанию

Нет там звука не было

А теперь по теме
Делаешь RC файл:
"mySound" WAVE "<путь к файлу>"

компилируешь его в res с помощью drcc32.exe и привязываешь к EXE.

Когда надо проиграть его делаешь так:
Код:
 var
   hFind, hRes: THandle;
   Song: PChar;
 begin
  hFind := FindResource(HInstance, 'mySound', 'WAVE') ;
  if hFind <> 0 then begin
    hRes:=LoadResource(HInstance, hFind) ;
    if hRes <> 0 then begin
      Song:=LockResource(hRes) ;
      if Assigned(Song) then SndPlaySound(Song, snd_ASync or snd_Memory) ;
      UnlockResource(hRes) ;
    end;
    FreeResource(hFind) ;
  end;
 end;
На этот раз очень прошу воспользоваться мозгом.
Человек_Борща вне форума Ответить с цитированием
Старый 27.04.2014, 20:50   #3
alman12
Форумчанин
 
Регистрация: 30.12.2013
Сообщений: 466
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
Нет там звука не было

А теперь по теме
Делаешь RC файл:
"mySound" WAVE "<путь к файлу>"

компилируешь его в res с помощью drcc32.exe и привязываешь к EXE.

Когда надо проиграть его делаешь так:
Код:
 var
   hFind, hRes: THandle;
   Song: PChar;
 begin
  hFind := FindResource(HInstance, 'mySound', 'WAVE') ;
  if hFind <> 0 then begin
    hRes:=LoadResource(HInstance, hFind) ;
    if hRes <> 0 then begin
      Song:=LockResource(hRes) ;
      if Assigned(Song) then SndPlaySound(Song, snd_ASync or snd_Memory) ;
      UnlockResource(hRes) ;
    end;
    FreeResource(hFind) ;
  end;
 end;
На этот раз очень прошу воспользоваться мозгом.
brcc32 не открывается как привязыват ?
alman12 вне форума Ответить с цитированием
Старый 27.04.2014, 20:57   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
brcc32
Причем тут он? Сказали же - drcc32.exe
Выполняешь в консоли указанную выше команду, получаешь res файл. Его прикладываешь в папку с программой.
И наверное добавить директиву {$R Имяresфайла}
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 27.04.2014, 20:57   #5
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,434
По умолчанию

а он и не должен, это компилятор rc файлов в res.
гугли "Компиляция res файлов в delphi".
Человек_Борща вне форума Ответить с цитированием
Старый 27.04.2014, 21:14   #6
alman12
Форумчанин
 
Регистрация: 30.12.2013
Сообщений: 466
По умолчанию

Цитата:
Сообщение от Stilet Посмотреть сообщение
Причем тут он? Сказали же - drcc32.exe
Выполняешь в консоли указанную выше команду, получаешь res файл. Его прикладываешь в папку с программой.
И наверное добавить директиву {$R Имяresфайла}
как выполнят в консоле
alman12 вне форума Ответить с цитированием
Старый 27.04.2014, 21:15   #7
KaDima28
Пользователь
 
Регистрация: 24.03.2014
Сообщений: 48
По умолчанию

Цитата:
Сообщение от Человек_Борща Посмотреть сообщение
гугли "Компиляция res файлов в delphi".
http://g.zeos.in/?q=%D0%9A%D0%BE%D0%...D0%B2%20delphi

Цитата:
"mySound" WAVE "<путь к файлу>"
А также вот.

Последний раз редактировалось KaDima28; 27.04.2014 в 21:17.
KaDima28 вне форума Ответить с цитированием
Старый 27.04.2014, 21:17   #8
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

http://stud-alex.ya.ru/replies.xml?item_no=7
http://delphiworld.narod.ru/_all_articles_.html раздел Ресурсы - [35]
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 27.04.2014, 23:00   #9
Человек_Борща
Старожил
 
Аватар для Человек_Борща
 
Регистрация: 30.12.2009
Сообщений: 11,434
По умолчанию

alman12, вам помогают, дают информацию, ищут её за вас. Увы, вы не хотите учиться сами, вам бы кодик да готовый копирнуть... ну удачи. Больше в ваших темах отвечать не буду.
Человек_Борща вне форума Ответить с цитированием
Старый 28.04.2014, 01:20   #10
XE5
Заблокирован
 
Регистрация: 02.03.2014
Сообщений: 439
По умолчанию

Цитата:
Больше в ваших темах отвечать не буду.
Где-то это уже было
alman12
Хоть одну книгу по делфи слабо прочитать? Или только темы клепать умеешь?
XE5 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обработка одномерных массивов, СИ. задание внутри, и написанный мною текст программы тоже внутри. кое-что нужно исправить.. Амелия Общие вопросы C/C++ 6 02.04.2012 20:03
реакция программы на звук NoNameMan Мультимедиа в Delphi 5 12.12.2010 23:49
нужно выбрать на машину магнитолу с usb выходом и колонки. хочу чтобы был чёткий, объёмный звук alex(21) Свободное общение 8 05.10.2010 18:11
Инициализация закрытия программы, если не был найден файл? Vohakisa Помощь студентам 2 30.05.2010 10:23
Сделать чтобы оболочкой программы был не ДОС а нормальное окно виндовс Артэс Общие вопросы C/C++ 7 12.06.2007 12:11