TMIDIPlayerComp

[EWeiss]

Zitat:

TNT Kompos

Sind verschiedene Componente.. die welche hier verwendung findet ist die Unicode.pas
Um MultiLanguage zu Unterstützen.

Melden kannst dich immer..

Sollte unter D7 funktionieren.

PS:
Hab leider im moment keine Zeit um das Sample für dich zu komplettieren was Lyrics angeht. Sorry

gruss

[EWeiss]

Ok habe aber extra für dich das projekt mal ohne Componente ausgelegt und direkt für D7
Ist jetzt allerdings nicht mehr Unicode fähig.

Viel Spass damit.

gruss

[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