Модераторы: Snowy, Alexeis, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Запихать wav файл в эгзешку 
:(
    Опции темы
NIZNAIKA
Дата 13.4.2008, 20:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 14.3.2008

Репутация: нет
Всего: нет



Проблема такая: прочитал в DelphiWord что возможно запихать WAV 

файл в эгзешку, спомошью файла ресурса.

Вот таким макором:

1 Создаешь текстовый файл  в нем пишешь:

2 MyWave RCDATA LOADONCALL MyWave.wav

3 Переименовываешь текстовый файл в MyWave.rc 

4 Создаешь bat файл и внем пишешь: brcc32.exe MyWave.rc

5 Батовский фаил+Файл MyWave.rc+Файл MyWave.wav
  копируем в директорию C:\Program Files\Borland\Delphi7\Bin

6 Там запускаем свой Bat файлдалее зоздается файл ресурса 
    с помошью программы brcc32.exe создается MyWave.rеc

7 Копируем этот файл в папку со своим проектом, в проекте пишем
   {$R MyWave.res} после implementation

8 На кнопку пишем:
   sndPlaySound('MyWave.wav', SND_ASYNC + SND_LOOP);

Так и сделал. Все бы нечего (все играло),но обноружен был косяк
 удалив файл  MyWave.wav с директории C:\Program 

Files\Borland\Delphi7\Bin файл перестает играть. smile 
 Открывал эгзешник Рес хакером  wav файл в нем имеется, а играть не 

хочет. smile  smile 


ЛЮДИ ПОМОГИТЕ В ЧЕМ КОСЯК!!! smile  smile  smile  smile  smile  smile 
Может кто знает как по другому можно вбить WAV файл в эгзешник!!!!!
PM MAIL   Вверх
Alexeis
Дата 14.4.2008, 09:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459



Цитата(NIZNAIKA @  13.4.2008,  19:32 Найти цитируемый пост)
8 На кнопку пишем:
   sndPlaySound('MyWave.wav', SND_ASYNC + SND_LOOP);


Ошибка тут 

Нужно использовать PlaySound. 1й параметр ID ресурса, 2й параметр hInstance, 3й комбинация из SND_ASYNC or SND_RESOURCE


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
NIZNAIKA
Дата 14.4.2008, 12:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 14.3.2008

Репутация: нет
Всего: нет



Один фиг не играет. Можешь написать подробней или пример! smile 
PM MAIL   Вверх
Poseidon
Дата 14.4.2008, 16:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: нет
Всего: 133



Код
PlaySound('MyWave', 0, SND_ASYNC or SND_RESOURCE);



--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
NIZNAIKA
Дата 14.4.2008, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 14.3.2008

Репутация: нет
Всего: нет



Че я нитак делаю? Ну не играет и все!! smile  smile 
Примерчик не могли бы написать?
PM MAIL   Вверх
Alexeis
Дата 14.4.2008, 17:02 (ссылка) |    (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459



NIZNAIKA, ошибка в том, что WAV нельзя помещать в любой раздел. Его нужно помещать в раздел "WAVE" иначе playSound его просто не найдет.

У меня такой вызов 
Код

PlaySound('SAMPLE', HInstance, SND_ASYNC or SND_RESOURCE);


Такой rc файл

Код

sample WAVE wav4.wav


и важно не забыть подключить к проекту. 
Код

{$R my.res}


Все отлично работает.


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
NIZNAIKA
Дата 14.4.2008, 20:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 11
Регистрация: 14.3.2008

Репутация: нет
Всего: нет



Alexeis большое спасибо, выручил!!! smile  smile  smile  smile  smile Спасибо что все растолковал!! smile 



А вобше всем спасибо, кто не оставил мою тему без внимания!!!
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Звук, графика и видео"
Girder
Snowy
Alexeis

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делится вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • По вопросам разработки игр стоит заглянуть сюда

FAQ раздела лежит здесь!


Если Вам помогли и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Girder, Snowy.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Звук, графика и видео | Следующая тема »


 




[ Время генерации скрипта: 0.0477 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.