Работа со "значением" миди

[Stormtrooper]

Доброго времени суток. У меня возникла необходимость работы с миди файлами. Я могу проиграть его, могу сделать, что-то вроде пианино, но не как не могу выполнить следующие… Воспроизводя миди файл мне необходимо получать его значение в настоящий момент времени (как я понял, он воспроизводится этой функцией -midiOutShortMsg(hmidi, i), где i значение воспроизводимого звука), а весь миди файл вызывается из буфера кусками именно в таком виде. Если у кого, то есть, какая ни будь информация, поделитесь, буду очень благодарен…

[Stormtrooper]

Если понятнее, то скажем при проигрывании миди файла у меня какой то элемент менял параметр(скажем visible у кнопки) появляясь исчезая в такт

[Stormtrooper]

возможен вариант обработки событий (event) которые закодированы в миди, он тоже пригоден. Вообще выслушаю любые предложения, так же буду рад литературе, на эту тему.

[mutabor]

Не постите много постов подряд, используйте кнопку "Правка".
Что касается миди, я делал пианино, файлы читать не пробовал. Как вы воспроизводите файл? Функцией типа SoundPlay? Тогда не получиться ничего, нужно файл читать на низком уровне, тогда будет доступ ко всем данным. Поищите исходники может есть где-то чтения миди файлов, чтобы самому не писать.

[Stormtrooper]

За несколько сообщений подряд я прошу прощенья. Миди воспроизводил функцией MCISendString(PChar('play ' + FileName), nil, 0, 0); да она не подходит для этого. Не чего на низком уровне не нашел, хотя в тупике (и в поиске)уже дней 10. Очень нужна помощь. В проигрывании файла(звуковом) нужды нет, необходимо получать для обработки инструмент и время. Работать мне нужно с ударными, т.е. высота тона мне тут не столь важна(она постоянна для каждого инструмента).

[mutabor]

Ну тут задача сводится к чтению формата MIDI файла. Есть два пути - писать свою реализацию и воспользоваться уже готовой. Я уверен, что существуют готовые, если бы это было что-то редкое и никому не нужное, то пришлось бы конечно разбирать формат самому, но т.к. это MIDI, то конечно же существуют готовые решения, вопрос стоит только в их платности/бесплатности. Поищите на torry.net компоненты для чтения MIDI, может найдете то, что вам нужно.

з.ы. Вот что я нашел на Торри
Раздел Аудио на Torry
Один из компонентов с низкоуровневым доступом
Исходники работы с MIDI файлами

[Stormtrooper]

Спасибо огромное, нашел по ссылкам много полезного, буду разбираться.

[Stormtrooper]

Мне еще раз необходима помощь. Алгоритм программы будет примерно такой: берем байт, раскладываем на биты, читаем нужные нам биты, формируем свой список событий и их времени. Как в делфи можно реализовать перевод байта в биты? пролазил по инету и нечего не нашел, сразу прошу прощения если вопрос где то поднимался уже.

[JTG]

function GetBit(const Value: Byte; const Bit: Byte): Boolean;
begin
  Result := (Value and (1 shl Bit)) <> 0;
end;

function SetBit(const Value: Byte; const Bit: Byte): Byte;
begin
  Result := Value or (1 shl Bit);
end;

function ClearBit(const Value: Byte; const Bit: Byte): Byte;
begin
  Result := Value and not (1 shl Bit);
end;

function EnableBit(const Value: Byte; const Bit: Byte; const TurnOn: Boolean): Byte;
begin
  Result := (Value or (1 shl Bit)) xor (Byte(not TurnOn) shl Bit);
end;

Если не путаю, там вроде надо перегруппировывать 8-битные значения в 7-битные, так что можно что-нибудь поэффективнее придумать

[Stormtrooper]

Спасибо, буду побывать