|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
26.06.2007, 13:06 | #1 |
Новичок
Джуниор
Регистрация: 26.06.2007
Сообщений: 1
|
Воспроизведение Midi-нот
Добрый день.
Пишу программу, которая должна читать табы/ноты музыкальных произведений и воспроизводить их, например с помощью Midi. Подскажите, пожалуйста, можно ли какой-нибудь стандартной функцией воспроизводить звук определенной частоты? Как вариант создавать Midi 108 файлов и их проигрывать медиа плеером, но он на крайний случай, т.к. не оптимальный. И можно ли каким-нибудь образом создавать Midi-файл? |
26.06.2007, 13:14 | #2 | |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Цитата:
108 ????????? Не потянет MP (если одновременно) Должны быть готовые компоненты.
Life is too short, play more...
Как правильно задавать вопросы |
|
26.06.2007, 13:22 | #3 | |
Форумчанин
Регистрация: 24.01.2007
Сообщений: 323
|
Цитата:
MMSystem; // Play Midi procedure TForm1.Button1Click; const FileName = 'C:\YourFile.mid'; begin MCISendString(PChar('play ' + FileName), nil, 0, 0); end; // Stop Midi procedure TForm1.Button1Click; const FileName = 'C:\YourFile.mid'; begin MCISendString(PChar('stop ' + FileName), nil, 0, 0); end;
Всё проще чем вы думаете, нужно только правильно подойти к тому или иному вопросу?
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Воспроизведение звука | Патрон | Общие вопросы Delphi | 21 | 15.07.2008 20:08 |
Циклическое проигрывание midi-файла без разрывов в звучании | LordYuri | Мультимедиа в Delphi | 2 | 23.04.2008 18:09 |
Закончилось ли воспроизведение? | bagish | Мультимедиа в Delphi | 3 | 12.02.2008 16:21 |
MIDI | Shurik Hacker | Компоненты Delphi | 1 | 21.01.2008 13:54 |
как перевести музон формата mp3 в waw или midi? | geniy | Свободное общение | 7 | 02.09.2007 18:49 |