Scan mal nach FRawLyrics
sollte wohl passend sein. (MidiFile2)
Delphi-Quellcode:
procedure TForm1.MidiPlayerMidiEvent(Track: integer; Event: PMidiEvent);
if (Event^.Event = $FF) then
begin
case Event^.Data1 of
$5: begin // **
N := High(FRawLyrics) + 1; // N : the number of recored lyrics
SetLength(FRawLyrics, N + 1);
FRawLyrics[N].Position := Event^.Positon;
FRawLyrics[N].Lyric := Event^.Msg;
end;
Könnte ein Ansatz sein!
gruss