Сохранение midi

← →
toshbek (2005-04-12 21:04) [0]

Как можно сохранить извлекаемые на мидивыход звуки в файл?
пример извлечения:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (key = 90) and not (z) then begin z := True; midimsg:=$7f3c90; midioutshortmsg(hmidi_out,midimsg); end; if (key = 88) and not (x) then begin x := True; midimsg:=$7f3e91; midioutshortmsg(hmidi_out,midimsg); end; и т.д.
заранее благодарен!
p.s. как бороться с переполнение буфера клавы?

← →
thaddy (2005-04-12 22:37) [1]

The last one is easy: use a ringbuffer with size equal to the polypgony of the keyboard and store the access times. Throw away the oldest one when a new message enters and the buffer is full.
The first one:
You can find examples for midi storage on Colin Wilson's site:
http://www.wilsonc.demon.co.uk/delphi.htm
including a full midi sequencer application with all sources! (powerseqencer)

← →
thaddy (2005-04-12 22:38) [2]

> Как можно сохранить извлекаемые на мидивыход звуки в файл?

это зависит от конкретно используемого тобой MidiOut-дивайса

> как бороться с переполнение буфера клавы?

Использовать DirectInput

Сохранение midi Найти похожие ветки