Главная arrow IDE Delphi arrow Играем трекерную музыку  
10.02.2012
Главное меню
Главная
Лаборатория
Книги по дельфи
Инструменты
Статьи
Видео
Юмор
Ссылки
Поиск
База знаний Delphi
Общие вопросы
Windows, WinAPI
Графика, Звук
IDE Delphi
Консоль
Авторизация





Забыли пароль?
Вы не зарегистрированы. Регистрация
Каталог@Mail.ru - каталог ресурсов интернет
Играем трекерную музыку Версия для печати
Рейтинг: / 16
ХудшаяЛучшая 
Написал Snowy   
25.06.2008
Итак задача: добавить музыку в нашу программу.
Подзадача: малый размер кода и самой музыки.
В данных условиях, трекерная музыка незаменима. Поэтому именно она применяется в различного рода кейгенах.
Ничего придумывать тут не нужно - всё уже давно написано.
В этом файлике находится пример и библиотека для воспроизведения MiniFMod
Сама библиотека написана на С, но добрый человек скомпилил obj и написал хедер. Так что вся процедура сводится к выполнению нескольких комманд:
  XMLoadFromRes('THEME', 'XM'); // загрузить файл с музыкой
  XMPlay; // запустить воспроизведение
  ..... // работает наша программа
  XMStop; // по окончании, останавливаем воспроизведение
  XMFree; // и прибираем после себя 
Саму музыку можно загрузить из файла или из ресурса.
В приведённом примере - из ресурса, т.к. таскать файл отдельно особого смысла нет.
Как воспроизвести mp3 из ресурса, рассказывалось ранее.
Но mp3 всё же имеет гораздо больший размер, по сравнению с трекерной музыкой.
Готовую коллекцию музыки можно взять, например, здесь.
Добавить новыйПоиск
debose - Вот здесь ещё большая коллекци   2008-06-25 17:51:07
Вот здесь ещё большая коллекция хороших треков
http://websound.ru/tracked-music.htm
Surendil - Re   2010-05-05 20:56:11
Ом, класс ))
Давно искал решение, спасибо Вам огромное!
Rubynoid - Остановка в XMPlay   2010-08-03 11:18:11
Здравствуйте! Подскажите, пожалуйста, команду остановки файла *.хм после его воспроизведения. А то, если вводить команду XMPlay - файл проигрывается бесконечно. Если же после сразу прописать
XMStop - то файл даже не успевает воспроизводится. Спасибо!
vovapd   2010-12-19 09:35:35
надо в кнопку кинуть XMStop
Анонимно   2011-02-28 22:26:57
:X <img src=ide:' /> :) :P :unsure: :woohoo: :huh: :whistle: ;) :s :pinch: :D :kiss: :lol:
:kiss: :lol: :dry: <img src=illy:' /> :evil: B) :cheer: :confused: :0 :angry: :!:
:idea: :?: :arrow: :P :unsure: :woohoo:
Начинающий - ааааА!!   2011-11-11 21:42:49
XMLoadFromRes ('THEME', 'XM'); // загрузить файл с музыкой
у меня за ошибку берёт! Чё делать :?:
aexpi *Alex Ivanov* - Поправка   2011-12-11 19:16:23
Надо загружать мелодию из файла процедурой XMLoadFromFile:
[b]
код:
  XMLoadFromFile('THEME.XM'); //загружаем мелодию из файла
  XMPlay; // запускаем воспроизведение
  ReadLn; // ожидание
  XMStop; // Останавливаем воспроизведение
  XMFree;
[/b]

Posted image
комментарии
Имя:
Заголовок:
UBB-Код:
[b] [i] [u] [url] [quote] [code] [img] 
 
 
:angry::0:confused::cheer:B):evil::silly::dry::lol::kiss::D:pinch:
:(:shock::X:side::):P:unsure::woohoo::huh::whistle:;):s
:!::?::idea::arrow:
 
Security Image
Пожалуйста, введите проверочный код, который Вы видите на картинке.
 
< Пред.   След. >