Как засунуть звук в 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 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

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

	Как засунуть звук в exeшник 17.05.2009, 00:05. Показов 9044. Ответов 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