Delphi Работа С Midi Файлами

Delphi предоставляет возможности для работы с midi-файлами, которые позволяют читать и записывать такие файлы, а также сгенерировать их программно. Это осуществляется с помощью использования API Midi.

Для чтения существующего midi-файла, необходимо открыть файл через MIDI-поток и использовать функцию MIDI-потока, чтобы прочитать данные из файла. Вот пример кода на Delphi для чтения midi-файла:

var  MIDIFile: TMemoryStream;  MIDIStream: TMemoryStream;  i: Integer;  MidiEvent: TMidievent;  DeltaTime: Integer;  ...begin  MIDIFile := TMemoryStream.Create;  try    MIDIFile.LoadFromFile('C:\MyMidiFile.mid');    MIDIStream := TMemoryStream.Create;    try      MIDIStream.SetSize(MIDIFile.Size);      MIDIStream.Position := 0;      MIDIStream.CopyFrom(MIDIFile, MIDIFile.Size);      MIDIStream.Position := 0;      MIDIReader := TMIDIReader.Create(MIDIStream);      MIDIReader.ReadHeader;      for i:= 0 to MIDIReader.TrackCount - 1 do      begin        MIDIReader.TrackNumber := i;        MIDIReader.ReadTrackHeader;        while not MIDIReader.EndOfTrack do        begin          DeltaTime := MIDIReader.ReadVariableLengthValue;          MidiEvent.EventType := TEventType(MIDIReader.ReadByte);          ...        end;      end;    finally      MIDIReader.Free;      MIDIStream.Free;    end;  finally    MIDIFile.Free;  end;

Для записи midi-файла, необходимо использовать класс TMidiFile. Вот пример:

var  MIDIStream: TMemoryStream;  MidiFile: TMidiFile;  ...begin  MIDIStream := TMemoryStream.Create;  try    MidiFile := TMidiFile.Create(MIDIStream);    try      MidiFile.AddTrack;      MidiFile.Track[0].AddNote(0, 0, ntC, 4, 96, 100);      MidiFile.Track[0].AddNote(96, 0, ntE, 4, 96, 100);      MidiFile.Track[0].AddNote(192, 0, ntG, 4, 96, 100);      MidiFile.SaveToFile('C:\MyMidiFile.mid');    finally      MidiFile.Free;    end;  finally    MIDIStream.Free;  end;

Этот код создает midi-файл с нотами C, E и G из четвертого октава.