VPF::Библиотека для работы с MIDI - Форум программистов

DemoCode

Дата 15.9.2006, 20:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: 1
Всего: 41

Существуют ли готовые библиотеки для работы с MIDI (не проигрывание)?
Нигде не могу найти. smile

Мне нужно из программы записывать MIDI-файлы. Причём нужно это мделать ко вчерашнему дню, так что самому уже разбираться в формате MIDI-файлов некогда, вот и пошёл по пути поиска нужных либ. Может кто встречал такие? Грубо говоря, нужно создавать MIDI-файлы, в которые записывать данные типа "Сейчас играет такая нота, через 1,2 секунды вторая, ещё через 0,5 секунд третья и т.д.".

Спасибо.

--------------------

Жить стало лучше, жить стало веселей
© И.В. Сталин

DemoCode

Дата 16.9.2006, 11:48 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 890
Регистрация: 20.10.2005
Где: Россия

Репутация: 1
Всего: 41

Вот нашёл одну небольшую либу (в аттаче). Правда она совершенно без доков. Midi-файлы создаются, но ни в одном проигрывателе не читаются. Стало быть делаю что-то не так. smile

Вот код:

Код


procedure Form1.TestMIDI;
var
   MidiHead: TMidiHead;
   MidiTrack: TMidiTrack;
   MidiEvent: PMidiEvent;
begin
   { Хидер }
   MidiHead.FileType:=ftSingle;
   MidiHead.NumberTracks:=1;
   MidiHead.PulsesPerQuarter:=16;
   MidiFile.SetMidiHead(MidiHead);
   { Событие }
   New(MidiEvent);
   MidiEvent^.iTrack:=0;
   MidiEvent^.iEvent:=8;
   MidiEvent^.iData1:=8;
   MidiEvent^.iData2:=8;
   MidiEvent^.sLetter:='8';
   MidiEvent^.iPulses:=8;
   MidiEvent^.iPositon:=8;
   { Добавляем событие в трек }
   MidiTrack:=TMidiTrack.Create;
   MidiTrack.AddEvent(MidiEvent);
   { Добавляем трек }
   MidiFile.SetTrack(MidiTrack);
   { Пишем в файл } 
   MidiFile.WriteFile;
end;

Присоединённый файл ( Кол-во скачиваний: 28 )

MidiFile.pas 15,69 Kb

--------------------

lacost

Дата 2.10.2008, 14:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 8
Регистрация: 24.9.2008

Репутация: нет
Всего: нет

Есть у кого описание этой библиотеки? Сложно в ней разобраться.. :(

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »