Синтез Midi инструментов

[Romtek]

Самое простое - это с применением WinAPI: mcisendstring (для WAV, MIDI).

Какой звук ты хочешь издавать ?

Добавлено 31.05.05, 10:37
Графика и мультимедиа->Работа со звуком

Добавлено 31.05.05, 10:52
Windows.Beep(Freq,Duration); для w2k, XP
Freq - частота
Duration - длительность

Добавлено 31.05.05, 10:52
Delphi: Multimedia

Добавлено 31.05.05, 10:53
Всё, что можно в Дельфи, можно сделать и в FPC.

[Ash]

А как можно сыграть определённую миди ноту, определённым инструментом?

[Romtek]

Цитата Ash @ 31.05.05, 10:55

А как можно сыграть определённую миди ноту, определённым инструментом?

Этот вопрос лучше задать в разделе Программирование звука

[Romtek]

Вот написал маленький пример для озвучивания MIDI:

uses CRT, Windows, MMSystem;
 
var
    midimsg: DWORD;
    hmidi_out: HMIDIOUT;
    hmidi_in:  HMIDIIN;
    err_cd: integer;
    Down:boolean;
    ch : char;
 
begin
     //открытие миди выхода
     err_cd:=midioutopen(@hmidi_out,1,0,0,0);
 
     writeln ('Нажмите пробел для произведения звука или Esc для выхода.');
     repeat
          ch := readkey;
          if ch = ' ' then
          begin
               midimsg:=$7f3a90; // поменять константу для других инструментов
               midioutshortmsg(hmidi_out,midimsg);
          end;
     until ch = #27;
end.

Добавлено 01.06.05, 14:39
Программа написана на для Free Pascal и тестирована в версии 2.0.0
Должна работать в любых 32-битных компиляторах Паскаля.

[Ash]

FPC 2.0.0
Пишет Error while linking
Указатель на последнем end'е.
Чё ему надо?

[Romtek]

Бывает такое. Пробуй перезапустить IDE.

[Ash]

Перезапускаю, всё равно ошибка.

Добавлено 01.06.05, 17:30
А, всё. В опциях\линкер другие установочки зделал, всё пошло

[Ash]

Ноту меняю, громкость тоже, однако как инструмент менять не погимаю.

[Romtek]

Ну так поиск для чего создан?
Гугл тебе в помощь, MSDN, ...

[Ash]

Всё, разобрался. Спасибо за помощь.

Если кому интересно:
http://www-camil.music.uiuc.edu/Classes/199E/MIDI/midimessages.html

Сообщение отредактировано: Ash - 01.06.05, 19:14

[Romtek]

Покажи пример, мне тоже интересно

[Ash]

uses CRT, Windows, MMSystem;
 
var
    midimsg: DWORD;
    hmidi_out: HMIDIOUT;
    hmidi_in:  HMIDIIN;
    err_cd: integer;
    Down:boolean;
    ch : char;
 
begin
     //открытие миди выхода
     clrscr;
     err_cd:=midioutopen(@hmidi_out,0,0,0,0);
 
     writeln ('Нажмите пробел для произведения звука или Esc для выхода.');
     repeat
          ch := readkey;
          if ch = ' ' then
          begin
               midimsg:=$0023c0; // $с - установка инструмента($23=35 - Fretless Bass) channel=0
               midioutshortmsg(hmidi_out,midimsg);
               midimsg:=$903090; // $9 - проигрывание ноты $30(пока точно не знаю какая нота) channel=0
               midioutshortmsg(hmidi_out,midimsg);
               delay(1000);
               midimsg:=$903080; // $8 - выключение ноты channel=0
               midioutshortmsg(hmidi_out,midimsg);
          end;
     until ch = #27;
end.

Сообщение отредактировано: Ash - 01.06.05, 20:17

[Romtek]

Ты наверно с константами плохо разобрался. Надо копать дальше.

[Ash]

Да нее... Всё понятно, а чё не понятного?

[Romtek]

У меня к примеру не издаёт звуков твой пример.

Добавлено 01.06.05, 20:24
Задание:
Составить пример для проигрывания нот любой октавы.

Можешь написать?

Добавлено 01.06.05, 20:39
Вот нашёл интересную функцию:

function MidiOutMessage(hMidi:HMIDIOUT; iStatus, iChannel, iData1, iData2: integer): DWORD;
var
  dwMessage:DWORD;
begin
  dwMessage:= iStatus or iChannel or (iData1 shl 8) or (longint( iData2 shl 16)) ;
  result:= midiOutShortMsg (hMidi, dwMessage) ;
end;