HiAsm

Форумы Между делом потоковый звук из памяти (*.xm)? ← Ctrl1Ctrl →

Ответов: 632

Рейтинг: 16

#1: 2007-07-24 15:51:55 ЛС | профиль | цитата

2ddd,
=b

на 30 kb ажжжж )
//когда доделаю, покажу

[size=-2]------ Добавлено в 22:05
http://biocyborg.narod.ru/soft/src/BeRoXM.zip
народ, кто поможет портировать скрипт в Хиасм?

[size=-2]------ Добавлено в 15:51
code_1727.txt

Потоковый звук XM с потдержкой KOL (отличный компонент для Хиасм имхо)
Но Twis преобразовал C-исходник библиотеки MiniFMOD в объектный файл и подготовил модуль minifmod.pas, в котором описал процедуры и функции библиотеки, указал подключение .OBJ-файла, а также добавил необходимые функции, которые не были включены в .OBJ-файл.
Таким образом, воспроизведение фоновой музыки прямо из ресурсов стало простейшей задачей:


unit muz;
//в uses нужно добавить minifmod (не забудьте положить minifmod.pas minifmod.obj в каталог с исходниками кряка)
{здесь пропущено описание переменных}
{$R mmu.res}   // подключаем файл с музыкой; mmu.rc должен содержать текст XMMOD  MUSIC  melody.xm

procedure TForm1.KOLForm1FormCreate(Sender: PObj); //при запуске программы начинаем воспроизведение
begin
 XMPlayFromRes('XMMOD', 'MUSIC');  
end;

procedure TForm1.KOLForm1Close(Sender: PObj; var Accept: Boolean); 
begin
 XMFree;       
end;

Исходник:
http://biocyborg.narod.ru/rev/twicxm.zip

карма: 0

файлы: 1 code_1727.txt [2.7KB] [256]

Форумы Между делом потоковый звук из памяти (*.xm)? ← Ctrl1Ctrl →