![]() |
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Новичок
Джуниор
Регистрация: 26.06.2007
Сообщений: 1
|
![]()
Добрый день.
Пишу программу, которая должна читать табы/ноты музыкальных произведений и воспроизводить их, например с помощью Midi. Подскажите, пожалуйста, можно ли какой-нибудь стандартной функцией воспроизводить звук определенной частоты? Как вариант создавать Midi 108 файлов и их проигрывать медиа плеером, но он на крайний случай, т.к. не оптимальный. И можно ли каким-нибудь образом создавать Midi-файл? |
![]() |
![]() |
![]() |
#2 | |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
![]() Цитата:
108 ????????? Не потянет MP (если одновременно) Должны быть готовые компоненты.
Life is too short, play more...
Как правильно задавать вопросы |
|
![]() |
![]() |
![]() |
#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 |