Einzelnen Beitrag anzeigen

EWeiss
(Gast)

n/a Beiträge
 
#18

AW: TMIDIPlayer2

  Alt 2. Dez 2011, 22:31
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

Geändert von EWeiss ( 2. Dez 2011 um 22:38 Uhr)
  Mit Zitat antworten Zitat