TMIDIPlayerComp

[beanbear6]

Hi Emil,
mensch ich bin Dir so dankbar, dasst Dir Zeit nimmst
für mein Problem. Also die DEMO.Exe kann ich ja starten,
aber ich seh darin keinen Text der im Midifile mit
Drin is. Nicht dass wir uns falsch verstehen, im Midifile
sind die Texte zum Musikstück mit drin, die bräuchte ich.
Gruß Reiner

[EWeiss]

Zitat:

Nicht dass wir uns falsch verstehen, im Midifile
sind die Texte zum Musikstück mit drin, die bräuchte ich.

Wir verstehen uns schon richtig.
Die Texte (RawFormat/Lyric) werden mit dem Comand $5 übergeben wenn sie im Midi vorhanden sind.
Sorry habe dir aber gesagt das ich keine Zeit habe das für dich bzw.. im moment zu implementieren (EXE)
Wie man an den Text kommt habe ich ja schon gesagt.

Über das Event TMidiTrack.RawLyric (from property RawLyrics of TMidiTrack)

Hab noch nen shot angehängt von Dancing Queen (ABBA)
Schau mal bei FRawLyric

gruss

[beanbear6]

Hi Emil,
oki ich versuch mal mein Bestes... Evtl. melde ich mich
in ein paar Tagen nochmal. Aber nun werd ich einfach
mal alles versuchen was ich zusammen bringe.
Vielen Dank einstweilen mal.
Gruß Reiner

[beanbear6]

Hallo Emil,

hm... bin verzweifelt ich weiß nicht wie Du das mit

Die Texte (RawFormat/Lyric) werden mit dem Comand $5 übergeben wenn sie im Midi vorhanden sind.

meinst. Ich weiß nicht wo ich was machen soll... Vielleicht hast doch
bissl Zeit mir da irgendwie zu helfen. Bin auch gerne bereit,
dir dafür bissl was rüberwachsen zu lassen... Umsonst solls nicht sein...
Gruß Reiner
PS: ich krieg das einfach so nicht hin. Weis nicht wo ich ansetzen soll
hab da einfach viel zuwenig Erfahrung...

[EWeiss]

Wenn es nur rein um den Text geht ist das mit einer Zeile erledigt. Oder?

Addiere ne RichEdit auf dein Formular deaktiviere "HIDESCROLLBAR"
und aktiviere Scrollbars [ssBoth]
RichEdit deshalb weil sie TStrings enthält und der Text auf grund dessen nicht extra formatiert werden muss.

In der procedure
procedure TForm1.btnOpenClick(Sender: TObject);
addierst du diese Zeile zu dem projekt
vor ..

Delphi-Quellcode:

 // PositionBar.Max := MidiFile.PlayTicks;
  PositionBar.Max := round(MidiFile.Duration / 100.0);

.......

Delphi-Quellcode:

// Get Lyrics
  RichEdit1.Text := MidiFile.Lyrics;

sieht dann so aus !!

Delphi-Quellcode:

// Get Lyrics
  RichEdit1.Text := MidiFile.Lyrics;
 // PositionBar.Max := MidiFile.PlayTicks;
  PositionBar.Max := round(MidiFile.Duration / 100.0);

das ergebnis siehe Pic..

PS:
Hab noch ein kleines problem gefunden.. In der Unit MidiFile2

Delphi-Quellcode:

function TMidiFile2.ReadFromFile(const FileName: WideString): Boolean;
var
  FileInfo: TMidiFileInfo;
  I, N: integer;
  LyricsTrack: Integer;
begin
  try
    FileInfo.TrackList := nil;
    FileInfo.TempoList := nil;
    FLyrics := ''; // Diese Zeile addieren um den zuvor geladenen Lyric string zu löschen.
    FIsValid := GetInfo(FileName, FileInfo);
  except

gruss

[EWeiss]

Neue Version oben..
Added "Sync Lyics" & "Plain Lyrics" Display.

gruss

[beanbear6]

Hallo Emil,
nun weis ich nicht... die Zip oben, mit den
Kompos gehen die auch für D5 oder nur für D7??
Kann es sein, dass ich nun wieder diese TNT-Kompos
brauche??? Krieg sowohl bei D5 als auch bei D7
beim Installieren der dpk Fehlermeldungen...

Äh... das Bild oben zeigt die Lyrics mit Zeilenumbruch,
in der Zip weiter oben geht das nicht... Gibts da
irgendwie nen Trick? Wie gesagt, wenn ich das Projekt
hinkrieg will ich mich wirklich erkenntlich zeigen...
Ich hoffe Ihr habt genug geduld mit mir...
Gruß Reiner