| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: Звук, графика и видео > программный MIDI синтезатор |
| Автор: SFproG 30.1.2005, 23:02 |
| Кто нибудь знает коды всех нот для извлечения их из программы? Например, для извлечения ноты "До" я пишу такой код: procedure TForm1.Button1Click(Sender: TObject); begin midimsg:=$7f3c90; // "$7f3c90" - нота "до" // midioutshortmsg(hmidi_out,midimsg); end; Это коды всех нот которые я знаю: $7f3a90 - ля# $7f3b90 - си $7f3c90 - до $7f3d90 - до# $7f3e90 - ре $7f3f90 - ре# Не хватает ещё шесть. Подскажите кто знает. Заранее спасибо... |
| Автор: Droll 10.2.2005, 14:53 |
| Смотри модуль jclMIDI из JediVCL компонентов Пример использования там есть в примерах \jcl\examples\vcl\multimedia\MidiOutExample.dpr |
| Автор: SFproG 10.2.2005, 16:02 |
| JediVCL у меня нет в Delphi 6. Нашёл в интернете. Как скачаю посмотрю... Спасибо |