[TEKTON]

Приветствую.
Скачал я примерчик вот отсюда 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]

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

[lmikle]

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

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

[TEKTON]

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

А можно подробнее что оставить в файле окромя массива?
И как это должно выглядеть. (что должно быть в заголовке перед массивом).
Если можно кодом и примером по пунктам 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]

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

[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 файл прямо вмето директивы включения.

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

[TEKTON]

А как проиграть из ресурса 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]

Сообщение от 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 редактор не лазить.
Вот такой мысел