звук в файл *.midi

[yulia]

У меня при нажатии на кнопку проигрывается звук.. Как этот звук записать в файл?

[mihali4]

А у меня в квартире газ...
Что за кнопка?

[yulia]

ну на самом деле не кнопка, а просто Shape, который реагирует Click.

[mutabor]

звук откуда проигрывается?

[yulia]

))))
procedure TForm1.ShB4MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
midiOutShortMsg (hmidi, $5390+((vel) * $10000));
end;

procedure TForm1.ShB4MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
midiOutShortMsg(hmidi,$5380)
end;

вот так проигрывается...

vel - это переменная для регулирования громкости

[mutabor]

Ну тут есть несколько путей.
Первый - посмотреть в MMSystem, может там есть реализация сохранения в файл.
Второй - воспользоваться сторонним компонентом, библиотекой.
Третий - вручную, самый трудный, изучить структуру MIDI формата и побайтово записывать файл, по сути свой движок сохранения в миди написать.

Ну и четвертый - прокрутить эту страницу до конца и посмотреть в похожих темах )

[yulia]

пытаюсь я сделать запись через функции mmsystem... не могли бы вы мне помочь с некоторыми вопросами, пожалуйста.

1. idfile:=mmioOpen('myfile.mid', 0, MMIO_CREATE); - вот так работает, файл создает, но как указать несколько флагов?
idfile:=mmioOpen('myfile.mid', 0, MMIO_CREATE|MMIO_READWRITE); - вот так не работает, пишет, что неразрешенный символ "|".

2. Как я понимаю запись в файл осуществляется с помощью функции
mmioWrite(HMMIO hmmio, HPSTR hpBuff, LONG dwBytes);
HPSTR hpBuff - указатель на буфер с данными. Откуда этот буфер брать?

Заранее спасибо

[yulia]

пытаюсь я сделать запись через функции mmsystem... не могли бы вы мне помочь с некоторыми вопросами, пожалуйста.

1. idfile:=mmioOpen('myfile.mid', 0, MMIO_CREATE); - вот так работает, файл создает, но как указать несколько флагов?
idfile:=mmioOpen('myfile.mid', 0, MMIO_CREATE|MMIO_READWRITE); - вот так не работает, пишет, что неразрешенный символ "|".

2. Как я понимаю запись в файл осуществляется с помощью функции
mmioWrite(HMMIO hmmio, HPSTR hpBuff, LONG dwBytes);
HPSTR hpBuff - указатель на буфер с данными. Откуда этот буфер брать?

Заранее спасибо

[romlo]

1. Символ "|" - это сишный "or", пиши "or" вместо него.