Как засунуть звук в exeшник

@KoFeMaH · Регистрация: 21.02.2009

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

Ув.программисты как можно засунуть музыку в exeшник.можно через медиаплеер с компьютера подгружать но это надо чтобы фаил был на компьютере.а вот как сделать чтобы она была в самом exeшнике?

@Monte-Cristo · 17.05.2009, 00:10

в ресурс запихни, и подлкючи к проекту.

@KoFeMaH · 17.05.2009, 00:14 **[ТС]**

а как его в ресурс запихнуть?извините если глупые вещи спрашиваю просто никогда этого не делал

@Monte-Cristo · 17.05.2009, 00:29

создаешь *.rc файл, примерно следующего содержания:
1 RCDATA "music.mp3"
в каталог с этим файлом переносишь music.mp3
после чего прогоняешь (открываешь с помощью) этот файл через brcc32.exe (лежи в папке билдера в каталоге bin)

Добавлено через 2 минуты 29 секунд
чуть не забыл... на выходе получаешь файл *.res.. перемещаешь его в каталог с проектом, и в .cpp файле прописываешь:

#pragma resource "*.res"

@QenT · 17.05.2009, 17:42

Monte-Cristo, а как вызвать эти вшитые файлы, или перевести в TResourceStream, напишите пожалуйста пример с произведением этого музыкального файла...

@Monte-Cristo · 17.05.2009, 18:33

как проигрывать музыку прямо из ресурса -я не знаю.. никогда не задовался этой целью.. но можете врмено сохранять ее на жд, и проигрывать...

C++
1
2
3
    TResourceStream *res = new TResourceStream(0,1, RT_RCDATA);
    res->SaveToFile("z.mp3");
    res->Free();

Добавлено через 1 минуту 13 секунд

C++
1
TResourceStream *res = new TResourceStream(0,1, RT_RCDATA);

1 сдесь, это порядковый номер в ресурсе.. т.е.

1 RCDATA "music.mp3"

@QenT · 18.05.2009, 02:25

Сделал, все как написано было, экзешник "вспух" ровно на сколько и файл который в него был вложен.
А вот, чтобы считать...

C++
1
TResourceStream *res = new TResourceStream(0,1,RT_RCDATA);

[BCC32 Error] Unit4.cpp(35): E2285 Could not find a match for 'TResourceStream::TResourceStream(int,in t,char *)'
Сделал так:

C++
1
TResourceStream *res = new TResourceStream(0,1,(wchar_t*)RT_RCDATA);

запустилось, но потом появилась ошибка:
"Resource 1 not found"
Вот даже не знаю, что делать(

@Monte-Cristo · 18.05.2009, 09:07

вы в какой версии билдера работаете. я свой код проверил на 6..
если у вас не найден ресурс, значит его там нет. Как у вас .rc файл называется. При компоновки .rc файла, у вас получается .res ?

@QenT · 18.05.2009, 10:52

Сообщение от Monte-Cristo

вы в какой версии билдера работаете. я свой код проверил на 6..
если у вас не найден ресурс, значит его там нет. Как у вас .rc файл называется. При компоновки .rc файла, у вас получается .res ?

У меня 2009:
Образно говоря, до добавления ресурсов *.exe весил 800kb, а вставляемый файл 170kb
Когда создаю a.rc, прописываю в него текст, после компиляции, появляется a.res(171kb),и сам *.exe весит 970kb=800+170.

@QenT · 24.05.2009, 04:51

Раздражает!(ни как не пашет и неверится, что в 2009 отключили возможность) Скиньте пожалуйста в архиве, готовый проект где используется работа с файлами(любыми: звук,рисунок,exe).Заранее очень благодарен!

@mirso · 24.05.2009, 05:00

QenT,
для wav попробуй!

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "myResSound1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
//---создать--myResSound1.RC---------
//VertuRW RCDATA "VERTU.wav"
//MinuteRW RCDATA "Minute.wav"
//----сохранить----закрыть-----открыть с помощью---
//C:\Program Files\Borland\CBuilder6\Bin\brcc32.exe
//-----на--выходе--myResSound1.RES-----------------
#pragma resource "myResSound1.RES"
 
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){}
//---------------------------------------------------------------------------
#include "mmsystem.h"
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    HRSRC rSnd = FindResource(HInstance, "VertuRW", RT_RCDATA);
    rSnd = LoadResource(HInstance, rSnd);
    LPVOID Snd = LockResource(rSnd);
    PlaySoundA((BYTE*)(Snd), HInstance, SND_ASYNC | SND_MEMORY);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    HRSRC rSnd = FindResource(HInstance, "MinuteRW", RT_RCDATA);
    rSnd = LoadResource(HInstance, rSnd);
    LPVOID Snd = LockResource(rSnd);
    PlaySoundA((BYTE*)(Snd), HInstance, SND_ASYNC | SND_MEMORY);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)//stop
{
    PlaySoundA(0, 0, 0x0040);
}
//---------------------------------------------------------------------------

brcc32.exe - у тебя может быть в другой папке(включи поиск).

@QenT · 24.05.2009, 05:37

Сообщение от mirso

//---создать--myResSound1.RC---------
//VertuRW RCDATA "VERTU.wav"
//MinuteRW RCDATA "Minute.wav"
//----сохранить----закрыть-----открыть с помощью---

RCDATA или RT_RCDATA !?

Если RT_RCDATA, то я получил myResSound1.RES, положил его к проекту и в юните подключил, программа запускается без ошибок, но звук не проигрывается(предположительно потому, что не находит)

@mirso · 24.05.2009, 05:56

QenT,

@QenT · 24.05.2009, 06:12

Сообщение от mirso

QenT,

а как ты запускаешь его через brcc32?

я щас попробовал через консоль(адресса длинные поэтому через батник):
"C:\Program Files\CodeGear\RAD Studio\6.0\bin\brcc32.exe" "C:\Users\Vladislove\Documents\RAD Studio\Projects\myResSound1.rc"
pause

@mirso · 24.05.2009, 06:23

QenT,
правая кнопка и ...
открыть с помощью ...
ищу "brcc32.exe"
OK!
myResSound1.rc должен находится в папке
с проектом, где уже есть файлы wav,
"VERTU.wav" и "Minute.wav". и еще какие
у ты включишь в "*.rc"

@QenT · 24.05.2009, 06:34

Сообщение от QenT

RCDATA или RT_RCDATA !?

Если RT_RCDATA, то я получил myResSound1.RES, положил его к проекту и в юните подключил, программа запускается без ошибок, но звук не проигрывается(предположительно потому, что не находит)

здесь я кстати myResSound1.RES получил через компилятор

Добавлено через 3 минуты 41 секунду

Сообщение от mirso

QenT,
правая кнопка и ...
открыть с помощью ...
ищу "brcc32.exe"
OK!
myResSound1.rc должен находится в папке
с проектом, где уже есть файлы wav,
"VERTU.wav" и "Minute.wav". и еще какие
у ты включишь в "*.rc"

сделал все как написано, рес не получился(

Добавлено через 6 минут 20 секунд

Сообщение от mirso

QenT,
правая кнопка и ...
открыть с помощью ...
ищу "brcc32.exe"
OK!
myResSound1.rc должен находится в папке
с проектом, где уже есть файлы wav,
"VERTU.wav" и "Minute.wav". и еще какие
у ты включишь в "*.rc"

myResSound1.rc:
VertuRW RCDATA "VERTU.wav"
MinuteRW RCDATA "Minute.wav"

все файлы присутсвуют
при запуске если сделать скрин за доли сек как картинка мигнет(внутри пишется )
Error resSound1.rc 1 2: Bad character in source input

@mirso · 24.05.2009, 06:37

QenT,
покажи свой myResSound1.cpp

@QenT · 24.05.2009, 06:39

Сообщение от mirso

QenT,
покажи свой myResSound1.cpp

если я подключаю в юните *.рес почему названия должны совпадать(это помогло)
Спасибо!

@mirso · 24.05.2009, 06:42

QenT,
потому, что идентификатор.

@aleksandrrr · 24.05.2009, 07:41

У меня та же самая проблема. При этом - в Builder 2007 все работает.
Вот мой код

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#pragma resource "files.res"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
TResourceStream *res_stream2 = new TResourceStream(0, UnicodeString("jpg") ,
                                                  (System::WideChar*)"RT_RCData");
res_stream2->SaveToFile("fff.jpg" );
 
 
код файла ресурсов
jpg RCData "ddd.jpg"
 
Ума не приложу что делать.
}
 
[SIZE=1]Добавлено через 51 секунду[/SIZE]
У меня та же самая проблема. При этом - в Builder 2007 все работает.
Вот мой код
include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
#pragma resource "files.res"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
TResourceStream *res_stream2 = new TResourceStream(0, UnicodeString("jpg") ,
(System::WideChar*)"RT_RCData");
res_stream2->SaveToFile("fff.jpg" );
 
 
код файла ресурсов
jpg RCData "ddd.jpg"
 
//  Ума не приложу что делать.
}

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

@KoFeMaH 38 / 24 / 4 Регистрация: 21.02.2009 Сообщений: 249

	Как засунуть звук в exeшник 17.05.2009, 00:05. Показов 9107. Ответов 26 Метки нет (Все метки) Ув.программисты как можно засунуть музыку в exeшник.можно через медиаплеер с компьютера подгружать но это надо чтобы фаил был на компьютере.а вот как сделать чтобы она была в самом exeшнике? 0

@Monte-Cristo 2816 / 1408 / 107 Регистрация: 07.03.2009 Сообщений: 4,446
	17.05.2009, 00:10
	в ресурс запихни, и подлкючи к проекту. 0

@KoFeMaH 38 / 24 / 4 Регистрация: 21.02.2009 Сообщений: 249
	17.05.2009, 00:14 [ТС]
	а как его в ресурс запихнуть?извините если глупые вещи спрашиваю просто никогда этого не делал 0

@Monte-Cristo 2816 / 1408 / 107 Регистрация: 07.03.2009 Сообщений: 4,446
	17.05.2009, 00:29
	создаешь .rc файл, примерно следующего содержания: 1 RCDATA "music.mp3" в каталог с этим файлом переносишь music.mp3 после чего прогоняешь (открываешь с помощью) этот файл через brcc32.exe (лежи в папке билдера в каталоге bin) Добавлено через 2 минуты 29 секунд чуть не забыл... на выходе получаешь файл .res.. перемещаешь его в каталог с проектом, и в .cpp файле прописываешь: #pragma resource "*.res" 2

@QenT 40 / 40 / 8 Регистрация: 29.01.2009 Сообщений: 244
	17.05.2009, 17:42
	Monte-Cristo, а как вызвать эти вшитые файлы, или перевести в TResourceStream, напишите пожалуйста пример с произведением этого музыкального файла... 0

@Monte-Cristo 2816 / 1408 / 107 Регистрация: 07.03.2009 Сообщений: 4,446
	18.05.2009, 09:07
	вы в какой версии билдера работаете. я свой код проверил на 6.. если у вас не найден ресурс, значит его там нет. Как у вас .rc файл называется. При компоновки .rc файла, у вас получается .res ? 0

@QenT 40 / 40 / 8 Регистрация: 29.01.2009 Сообщений: 244
	24.05.2009, 04:51
	Раздражает!(ни как не пашет и неверится, что в 2009 отключили возможность) Скиньте пожалуйста в архиве, готовый проект где используется работа с файлами(любыми: звук,рисунок,exe).Заранее очень благодарен! 0

@mirso 562 / 373 / 55 Регистрация: 05.04.2009 Сообщений: 767
	24.05.2009, 05:56
	QenT, Миниатюры 0

@mirso 562 / 373 / 55 Регистрация: 05.04.2009 Сообщений: 767
	24.05.2009, 06:23
	QenT, правая кнопка и ... открыть с помощью ... ищу "brcc32.exe" OK! myResSound1.rc должен находится в папке с проектом, где уже есть файлы wav, "VERTU.wav" и "Minute.wav". и еще какие у ты включишь в "*.rc" 0

@mirso 562 / 373 / 55 Регистрация: 05.04.2009 Сообщений: 767
	24.05.2009, 06:37
	QenT, покажи свой myResSound1.cpp 1

@mirso 562 / 373 / 55 Регистрация: 05.04.2009 Сообщений: 767
	24.05.2009, 06:42
	QenT, потому, что идентификатор. 0