Ist eh keiner Online...
also hier die records..
Wenn da nichts ist weiss ich auch nicht mehr.
Delphi-Quellcode:
type
TMIDINote = record
StartTime: DWORD; // Start time of note in ticks
Length: Word; // Length of note in ticks (Length / Ticks : 1 => 1/4 note, 2 => 1/2 note...)
NoteNo: byte; // Note #
Instrument: byte;
Velocity: byte;
end;
TMIDIFileInfo = record
FileSize: Int64; { File size (bytes) }
Format: Word; {0: single-track, 1: multiple tracks, synchronous, 2: multiple tracks, asynchronous}
Tracks: Word;
TrackNames: array[1..MaxTracks] of AnsiString;
TickUnit: Word; {0: Ticks per quarter note, 1: Ticks per second}
Ticks: Word; {Ticks per quarter note or Ticks per second}
Marker: AnsiString;
Copyright: AnsiString;
Channels: byte;
PlayTime: single;
NoteCounter: array[1..MaxChannels] of Word; // The number of note per channel
DrumChannel: array[1..MaxChannels] of Boolean; // True if it's a drum channel
MIDINotes: array[1..MaxChannels] of array of TMIDINote; // The data of MIDI notes per channel
end;
Bei IntA = 3 gibt er mir ne note von 60 anstelle von 65..
Und so geht es weiter.
Das kann es doch nicht sein.
gruss