Структура midi файлов

[lacost]

Собственно хотелось бы услышать от тех кто работал с миди как там представляются данные.

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

[Alter]

http://ru.wikipedia.org/wiki/MIDI

[mutabor]

Или может кто то встречал библиотеку для работы с миди?

Встречал, MMSystem.

[lacost]

mutabor, про MMSystem я знаю всё равно спсибо за описание функций миди представленных там.

Но я имел в виду библиотеку для создания миди файлов.
На сколько я понимаю нужно просто обьявить file of byte и писать туда все неоюходимые данны...но так же не хочеться писать библиотеку самомму)))

Встретил вот такую, но наверно что то делаю не так потому чсто файл миди создаётся но не играет.

procedure TForm1.Button1Click(Sender: TObject);

var
   MidiHead: TMidiHead;
   MidiTrack: TMidiTrack;
   MidiEvent: PMidiEvent;
   MFile : TMidiFile;
begin
   {Объявляю  Хидер }
   MidiHead.FileType:=ftSingle;
   MidiHead.NumberTracks:=1;
   MidiHead.PulsesPerQuarter:=16;


   {Новое  Событие }
   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);
   { Добавляем трек }
   MFile.SetTrack(MidiTrack);
   { Пишем в указанный файл }
   MFile.FileName:='m.midi';
   MFile.WriteFile;  // процедура выполняется до конца нормально проверял пошагово

end; //странно но в дебагере именно єта строчка даёт ошибку как так? О_о

[alexBlack]

Сообщение от lacost

...
MidiTrack.AddEvent(MidiEvent);
{ Добавляем трек }
MFile.SetTrack(MidiTrack);
{ Пишем в указанный файл }
MFile.FileName:='m.midi';
MFile.WriteFile; // процедура выполняется до конца нормально проверял пошагово
end; //странно но в дебагере именно єта строчка даёт ошибку как так? О_о

Вы не создаете объект, поэтому ошибка:

 MFile := TMidiFile.Create(nil);  //!!!
   try
      MFile.SetTrack(MidiTrack);
      MFile.FileName:='m.midi';
      MFile.WriteFile;
   finally
      MFile.Free;
   end;

Это устраняет ошибку, но midi-файл создается размером 14 байт. Ищите описание к этому компоненту.

[makshimik]

Сообщение от lacost

mutabor, про MMSystem я знаю всё равно спсибо за описание функций миди представленных там.

Но я имел в виду библиотеку для создания миди файлов.
На сколько я понимаю нужно просто обьявить file of byte и писать туда все неоюходимые данны...но так же не хочеться писать библиотеку самомму)))

Встретил вот такую, но наверно что то делаю не так потому чсто файл миди создаётся но не играет.

procedure TForm1.Button1Click(Sender: TObject);

var
   MidiHead: TMidiHead;
   MidiTrack: TMidiTrack;
   MidiEvent: PMidiEvent;
   MFile : TMidiFile;
begin
   {Объявляю  Хидер }
   MidiHead.FileType:=ftSingle;
   MidiHead.NumberTracks:=1;
   MidiHead.PulsesPerQuarter:=16;


   {Новое  Событие }
   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);
   { Добавляем трек }
   MFile.SetTrack(MidiTrack);
   { Пишем в указанный файл }
   MFile.FileName:='m.midi';
   MFile.WriteFile;  // процедура выполняется до конца нормально проверял пошагово

end; //странно но в дебагере именно єта строчка даёт ошибку как так? О_о

А что за белиберду ты там пишешь в поля MidiEvent? Чему играть-то там?

[mss]

end; //странно но в дебагере именно єта строчка даёт ошибку как так?

А ничего странного, все закономерно: ты по забывчивости или по незнанию нагадил в стеке, не создав объект MFile.