UFmod. Подключение в отдельном модуле и проигрывание

TEKTON · #1 25.07.2018, 21:41

Приветствую.
Скачал я примерчик вот отсюда http://www.delphisources.ru/pages/so...ear/ufmod.html
Всё работает.

Но вопрос такой:
Можно ли код мелодии вынести в отдельный файл и подключать аля
uses или #includ
А то километры этого байт кода в начале кода ну очень не удобно!

И в файл с каким расширением эту музыку засунуть можно ( *pas ?)

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
const
   xm : array[0..130410] of byte = (
	$45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,
$45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,  
$45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,    
.....
.....   
.....  Куча  куча километровых данных
.....
.....
$45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,  
$45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,  
$03, $03, $03, $03, $03, $02, $03, $02, $03, $02, $02
);

implementation

{$R *.dfm}
//Подключаем файл импорта функций ufmod
{$I ufmod.inc *** uFMOD API (WINMM) }
procedure TForm1.Button1Click(Sender: TObject);
begin
 uFMOD_PlaySong(@xm,Length(xm),XM_MEMORY);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 uFMOD_StopSong;
end;

end.

Это вопрос раз.
Второй, можно ли регулировать громкость, скорость воспроизведения и т.д.

Последний.
Можно как нибудь программно узнать сколько программа проиграла этого байт кода?
И вывести это число в байтах куда нить в Label ?

Спасибо.

Alegun · #2 25.07.2018, 22:05

Вынести можно,тогда переместите массив ХМ в отдельный юнит через uses, кстати, это не код, это набор байтов сиречь треккерная пестня в формате *.xm "записанная" текстом. Библитотека очень старая,обычно лежит в ресурсах,регулировок у неё вроде нет окромя воспроизведения,паузы и стопа, можно или файлы крутить или потоки, для этого передаются специальные флажки, крутит она не только *.xm, но и *.mod тоже, кажись и *.it берёт с *.s3m`мами, многие крякалки с "музикальными эффектами" используют именно её, bass с регулировками, но она довольно большая по размеру

lmikle · #3 25.07.2018, 22:08

1. Можно.
1а) вынести описание в отдельный модуль и подключать его через uses
1б) вынести только декларацию массива в отдельный файл и подключать его через директиву include ( {$I filename.inc} )
1в) положить данные в ресурс, прикомпилировать ресурс в программу и потом просто его считать
1г) просто положить данные в файл рядом с программой и считывать его в память когда надо проиграть

2 и 3 - вопрос к библиотеке. смотри какие функции есть в ufmod.inc

TEKTON · #4 25.07.2018, 22:21

Спасибо.
Да я знаю что это массив , просто так обозвал не очень удачно

А можно подробнее что оставить в файле окромя массива?
И как это должно выглядеть. (что должно быть в заголовке перед массивом).
Если можно кодом и примером по пунктам 1а), 1в)

С пунктом 1б) разобрался
Оставляем чисто:

Код:

const
   xm : array[0..130410] of byte = (
    $45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,
.....   
.....  Куча  куча километровых данных
.....
$45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,  
$03, $03, $03, $03, $03, $02, $03, $02, $03, $02, $02
);

А в файле куда подключаем

Код:

{$R *.dfm} 
{$I MUSIC2.inc}

Музыку хочу хранить/таскать внутри самого exe (не рядом с программой).

А что насчёт счётчика масива ?
Можно это организовать как то?

Дело вот в чём.
Просто иногда какой музончик из кейгена надо рипнуть.
Начало музыки найти легко обычно (Extended Module: ...), а вот окончание...

Приходится крамсать с конца файла блоками, пока не нащупаешь окончание музыки.

А так бы было здорово.
Нашёл начало музла, отрезал всё лишнее что перед ним, потом засунул в проигрыватель, прослушал до конца воспроизведения музыки.
А в лейбле отобразилось место до которого надо откромсать файл.

Спасиб.

TEKTON · #5 26.07.2018, 11:17

Вот полезный материал для работы с uFMODOM
http://ufmod.sourceforge.net/Example.../commands.html
Может кому тоже пригодится

lmikle · #6 26.07.2018, 21:44

Ну вот прямо так и режешь:

Файл Music1.inc

Код:

const
   xm : array[0..130410] of byte = (
    $45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,
$45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,  
$45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,    
.....
.....   
.....  Куча  куча километровых данных
.....
.....
$45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,  
$45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,  
$03, $03, $03, $03, $03, $02, $03, $02, $03, $02, $02
);

В оригинальном исходнике:

Код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;

{$I Music1.inc}
 
implementation
 
{$R *.dfm}
//Подключаем файл импорта функций ufmod
{$I ufmod.inc *** uFMOD API (WINMM) }
procedure TForm1.Button1Click(Sender: TObject);
begin
 uFMOD_PlaySong(@xm,Length(xm),XM_MEMORY);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 uFMOD_StopSong;
end;
 
end.

Т.е., по сути, с точки зрения компилятора исходник остается точно таким же. Просто теперь препроцессор скомпонует его из 2х физических файлов, вставив .inc файл прямо вмето директивы включения.

ЗЫ. Для особо умных. я знаю, что у паскаля нет выделенного шага препроцессора, но так легче объяснить.

TEKTON · #7 28.07.2018, 18:29

А как проиграть из ресурса xm ?
Почитал о функциях его вот тут http://ufmod.sourceforge.net/Example.../commands.html

Но некоторые коды у меня не работают.
Может мне какая урезанная версия uFmod досталась...

Не работает:
Function uFMOD_PlayFile,
Function uFMOD_PlayMem,
Function uFMOD_PlayRes
...

Работают тока:
Function uFMOD_PlaySong, (Этой кстати нет в том хелпе на который ссылку привёл. Может у меня какая старая версия uFmod*а ).
Function uFMOD_Pause,
Function uFMOD_Resume,
Function uFMOD_Stop.

Слышал что кроме uFmod есть ещё mimiuFmod.
Где можно его скачать ?

И вообще может кто знает, что лучше выбрать

Fmod,
miniFmod,
uFmod,

...
Какие может ещё есть библиотеки для трекерной музыки ?
Может есть всеядные ? (it, xm, mod, S3M)
Которые весят мало-мало...
Если можно микро обзор от тех кто пользовался ими.

Спасибо.

TEKTON · #8 28.07.2018, 20:33

Цитата:

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

Ну вот прямо так и режешь:

Файл Music1.inc

Код:

const
   xm : array[0..130410] of byte = (
    $45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,
$45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,  
$45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,    
.....
.....   
.....  Куча  куча километровых данных
.....
.....
$45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,  
$45, $78, $74, $65, $6E, $64, $65, $64, $20, $4D, $6F, $64, $75, $6C,  
$03, $03, $03, $03, $03, $02, $03, $02, $03, $02, $02
);

В оригинальном исходнике:

Код:

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;

{$I Music1.inc}
 
implementation
 
{$R *.dfm}
//Подключаем файл импорта функций ufmod
{$I ufmod.inc *** uFMOD API (WINMM) }
procedure TForm1.Button1Click(Sender: TObject);
begin
 uFMOD_PlaySong(@xm,Length(xm),XM_MEMORY);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 uFMOD_StopSong;
end;
 
end.

Т.е., по сути, с точки зрения компилятора исходник остается точно таким же. Просто теперь препроцессор скомпонует его из 2х физических файлов, вставив .inc файл прямо вмето директивы включения.

ЗЫ. Для особо умных. я знаю, что у паскаля нет выделенного шага препроцессора, но так легче объяснить.

Нее.
Я наверно не совсем доходчиво изложил мыслю свою.

Если это наш файл, то да, зная с каких "байт" он начинается и каким заканчивается, можно в Hex вырезать что угодно.
Но это зная "с каких "байт" он начинается и каким заканчивается".

А если предположим, я скачал где то в нете кейген с какой то музычкой, и хочу её выдрать.
То тут всё не просто становится.

Если б трекерная музыка начиналась с определённого заголовка аля
Extended Module: ... и заканчивалась на определённые байты типо как теги в html то было б круто.
Почему такое не было принято не понятно.
Скорее всего просто никого не волновало "выдирание" музыки обратно с уже скомпиленного exe.
А так получается заголовок Extended Module в Hex редакторе можно найти, а где музыка заканчивается, только по "рисунку" и характерным повторениям байтов можно на вскидку определить.
Вот и посетила меня идея что б скрестить трекер плеер с Hex редактором

Что б типо такого получилось:
https://youtu.be/vFx6xNsNQMg
Показанное в ролике, это конечно чудеса монтажа

Типо открываешь в проге exe, она находит начало музыки,
Потом запускаешь плеер и прослушиваешь трек до конца.
Когда музыка остановилась,
кликаешь кнопку и конечный адрес найден.
Ну и что б можно было немного по этим байтам прогуляться было, Вперёд/назад.
Ну и можно сразу резак прикрутить, что б потом в Hex редактор не лазить.
Вот такой мысел

Опции темы	Поиск в этой теме
Версия для печати Отправить на Email	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

	Сайт	Форум	FAQ	Соглашения	Прочее
	Новости Исходники Компоненты Статьи Добавить исходник Поиск	Правила Поиск Сообщения за сегодня Пользователи Кто на форуме?	Delphi FAQ - 5000 статей DRKB - 4500 статей (ZIP-архив) Справочник функций и процедур Delphi Delphi Programming Guide Indy in Depth. Глубины Indy	Конфиденциальность Соглашение пользователя Правила обработки cookie	О сайте Donate Контакты

Этот пользователь сказал Спасибо Alegun за это полезное сообщение:
TEKTON (25.07.2018)

Этот пользователь сказал Спасибо lmikle за это полезное сообщение:
TEKTON (25.07.2018)