Как зашить без заморочек звук в ехе как в кейгенах?

SoftIce · Регистрация: 27.07.2011

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

Или лучше писать на с++.

Добавлено через 16 минут
Всё, не отвечайте буду писать на сях.

@PB · 27.09.2011, 20:34

Не по теме:

Раздел для VB а вы упоминаете C++.
Если уж на то пошло (другие языки), то без заморочек это можно сделать в PureBasic.

PureBasic
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
Structure MEMFILE
  Length.l
  pos.l
  mdata.l
EndStructure
 
Procedure.l modopenmem(*memfile.MEMFILE)
  *memfile = AllocateMemory(SizeOf(MEMFILE))
  *memfile\mdata = ?mod
  *memfile\Length = ?modend - ?mod
  *memfile\pos    = 0
  ProcedureReturn *memfile
EndProcedure
 
Procedure.l modclosemem(*memfile.MEMFILE)
  FreeMemory(*memfile) : *memfile = #Null
EndProcedure
 
Procedure.l modreadmem(Buffer.l, size.l, *memfile.MEMFILE)
  If *memfile\pos + size >= *memfile\Length
    size = *memfile\Length - *memfile\pos
  EndIf
  CopyMemory(*memfile\mdata+*memfile\pos, Buffer, size)
  *memfile\pos + size
  ProcedureReturn size
EndProcedure
 
Procedure modseekmem(*memfile.MEMFILE, pos.l, mode.l) 
  Select mode
    Case #SEEK_SET
      *memfile\pos = pos
    Case #SEEK_CUR
      *memfile\pos+pos
  EndSelect
  If *memfile\pos > *memfile\Length
    *memfile\pos = *memfile\Length
  EndIf
EndProcedure
 
Procedure.l modtellmem(*memfile.MEMFILE)
  ProcedureReturn *memfile\pos
EndProcedure
 
 
FSOUND_File_SetCallbacks(@modopenmem(), @modclosemem(), @modreadmem(), @modseekmem(), @modtellmem())
mod= FMUSIC_LoadSong("", #Null)
FMUSIC_PlaySong(mod)
MessageRequester("MiniFMOD - проигрыватель XM музыки", "Для завершения проигрывания нажмите кнопку <OK>")
 
DataSection
  mod:
  IncludeBinary "infile.xm"
  modend:
EndDataSection

За вшивание файла в EXE отвечает эта часть кода.

PureBasic
1
2
3
4
5
DataSection
  mod:
  IncludeBinary "infile.xm"
  modend:
EndDataSection

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

Памирыч · 27.09.2011, 20:40

Не по теме:

PB, какого формата звуковой файл?

@PB · 27.09.2011, 20:45

Не по теме:

Сообщение от Памирыч

какого формата звуковой файл

infile.xm
Но можно и wav, ogg, flac, mp3, midi, mod и др. форматы, правда, код немного изменится.

@Pro_grammer · 28.09.2011, 09:10

Не по теме:

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

без заморочек это можно сделать в PureBasic

Заморочек нет, но без сторонней библиотеки запустить этот код не получиться ( а либа то на Сях :))

@PB · 28.09.2011, 11:51

Не по теме:

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

Заморочек нет, но без сторонней библиотеки запустить этот код не получиться ( а либа то на Сях )

И что? Какая разница на чем она написана?
Сложно установить библиотеку, простым извлечением содержимого архива в папку со средой программирования?

PS.
TC писал о заморочках зашивания других файлов в EXE, а в PureBasic это производится оператором IncludeBinary языка, а MiniFMOD только для примера и ее можно заменить на встроенную либу Module.

@Pro_grammer · 28.09.2011, 14:43

Не по теме:

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

Не по теме:

можно заменить на встроенную либу Module.

Встроенная либа основана на ModPlug XMMS Plugin и написана на С++.
Теперь подумай - зачем человеку втирать про PureBasic, если он умеет писать на С++?

@PB · 28.09.2011, 14:59

Не по теме:

Виталий, какая разница на чем написаны библиотеки?
Допустим, некоторые из библиотек того же PureBasic, написаны на ассемблере и что в этом плохого? Компания "Fantaisie Software" решила не изобретать колесо, а приспособить уже готовые наработки в этой области. Это же касается компилятора FASM, задействованного в процессе сборки бинарников.
Как же вы еще 3D двиг OGRE не вспомнили? Он ведь тоже на сях!

И запомните, я не втираю ничего и никому!
Пишите на чем считаете нужным.

@Pro_grammer · 28.09.2011, 15:24

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

Виталий

Вы меня ни с кем не путаете?

Памирыч · 28.09.2011, 15:26

Комментарий модератора

Если все эти вопросы не касаются VB 6.0, дискуссии прекращаем

@Опан · 30.09.2011, 21:59

Этот вопрос недавно уже обсуждался здесь:
Воспроизведение музыки и звуков в VB

Новые блоги и статьи Все статьи Все блоги /
Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника 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. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .

SoftIce es geht mir gut 11274 / 4760 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439

	Как зашить без заморочек звук в ехе как в кейгенах? 27.09.2011, 15:09. Показов 2341. Ответов 10 Метки нет (Все метки) Или лучше писать на с++. Добавлено через 16 минут Всё, не отвечайте буду писать на сях. 0

Памирыч
	27.09.2011, 20:40
	Не по теме: PB, какого формата звуковой файл? 1

@PB
	28.09.2011, 14:59
	Не по теме: Виталий, какая разница на чем написаны библиотеки? Допустим, некоторые из библиотек того же PureBasic, написаны на ассемблере и что в этом плохого? Компания "Fantaisie Software" решила не изобретать колесо, а приспособить уже готовые наработки в этой области. Это же касается компилятора FASM, задействованного в процессе сборки бинарников. Как же вы еще 3D двиг OGRE не вспомнили? Он ведь тоже на сях! И запомните, я не втираю ничего и никому! Пишите на чем считаете нужным. 0

@Опан Юзер с абсолютным слухом 709 / 489 / 195 Регистрация: 17.12.2010 Сообщений: 1,428
	30.09.2011, 21:59
	Этот вопрос недавно уже обсуждался здесь: Воспроизведение музыки и звуков в VB 1