Скачать: CL | DM;

Сохранение 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]

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)

---

← →
Digitman ©   (2005-04-13 10:10) [3]

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


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


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


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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.054 c