TMIDIPlayerComp

[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

[EWeiss]

Zitat von 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

TNT Componente musst du verwenden wenn du die Version mit den Componenten verwendest.
Warum willst du die Version mit den Componenten verwenden?
Hab doch extra für dich eine ohne erstellt.

Ob das mit D5 geht kann ich nicht sagen hab kein Delphi unter D7

Denke bei dem Zeilenumbruch verwechselst du die beiden Archive.
Exe im Zip-Archiv sollte mit Umbruch gehen.
Exe im Rar-Archiv geht der Umbruch nicht weil hier die Srollbars ssBoth aktiviert wurden.

gruss

[beanbear6]

Hallo Emil,
nun hab ich ne RichEdit auf die Form gelegt, da krieg ich die
Zeilenumbrüche und das mit den TNT bzw. ohne TNT geht nun auch..

Könnte man die beiden Fenster (SyncLyrics) mit dem Rich noch so verbinden,
dass im Rich der Text dann rot wird zu gegebener Zeit? (So wie Karaoke?)
Dann wär das oooptimal und perfekt Weist, ich bräuchte sowas unbedingt
für unsere kleine Musikgruppe... Wär sooo Klasse...

Gruß und vielen vielen Dank für Deine bisherige Hilfe!!!
Reiner