TMIDIPlayerComp

[EWeiss]

Zitat von musicman56:

Hallo Emil,

jetzt sieht es gut aus! ich bin Hobbymusiker und wollte mal alle meine ca. 400 Midifiles testen. Damit es schneller geht, wollte ich das Demo-Programm modifizieren: Ein komplettes Verzeichnis einlesen, und automatisch jeden Titel ca. 10 Sekunden anspielen. Andernfalls klick ich mir ja die Finger wund

Das wäre für den Autor sicherlich auch ein guter Ansatzpunkt, inwieweit der Player mit den unterschiedlichsten Files funktioniert. Und, wenn alles funktioniert, würde ich den Player auch für mich einsetzen. Natürlich auch dafür bezahlen.

Aber, ich kann das Demo-Programm mit Delphi 2007 nicht compilieren. Die Unit "TntClasses" fehlt. Hast du einen Tipp, woher ich die bekommen könnte? Oder, was evtl. sonst noch alles fehlen könnte?

Es gibt Meineserachtens nur zwei möglichkeiten entweder mit D7 oder ab D2009 wegen Unicode.
Ansonsten würde es ja auch keinen Sinn machen es in verschiedene Sprachen übersetzen zu wollen
Siehe dazu gnugettext.pas

http://www.axolot.com/TNT/
Das sollten die sein!

PS:
Na ja kannst ja deine eigene Package erstellen.

Zitat:

Natürlich auch dafür bezahlen.

Warum das? Ist doch FreeWare

gruss

[musicman56]

Zitat:

Warum das? Ist doch FreeWare

Schon klar,

aber, wenn der Player funktioniert, bin ich gern bereit eine "Spende" zu entrichten. Da freut sich doch jeder Autor darüber

Jetzt muss ich aber erst mal alles mit D7 zum Laufen bekommen. Momentan bekomm ich noch einen Fehler beim Programmstart: "Es ist kein Treiber auf ihrem System installiert", was aber definitiv nicht der Fall ist. Mal schau'n, vielleicht hat's was mit Win7-64 zu tun

[beanbear6]

Hallo zusammen,
kann mir bitte jemand einen Tip geben?? Ich brauch ne Möglichkeit,
aus dem Midifile den Text zu extrahieren und anzuzeigen.
Kennt jemand eine Lösung???
Vielen Dank gleich mal für Eure Mühe.
Gruß beanbear6

[EWeiss]

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

[beanbear6]

Hi Emil,
hm... diese ^ da sind Zeiger gell... Damit hab ich
noch nie was gemacht, kann das auch nicht umsetzen...
Und wenn Du mit dem FRawLyrics googlen meinst, da
krieg ich nur schrott angeboten...
Vielleicht könntst mir da helfen, ich brauch das
so dringend. Hab schon den ganzen Abend gegoogled,
aber nix gefunden.
Gruß Reiner

[EWeiss]

Zitat von beanbear6:

Hab schon den ganzen Abend gegoogled,
aber nix gefunden.
Gruß Reiner

Verstehe dein problem nicht.
Lade das Projekt hier im Thread und suche in der Unit MidiFile2 nach (FRawLyrics , Lyrics)
Da steht doch alles drin mußt halt nur deinen Bedürfnissen entsprechend anpassen in deinem Projekt.

Zitat:

You also can get the lyrics with time information from property RawLyrics of TMidiTrack.

gruss

[beanbear6]

Hi Emil,
bitte nicht böse sein, hab versucht die Kompo
in D5 zu installieren, da hängt sich D5komplett auf.
Dann mit D7 versucht die andre Kompo zu installieren,
da krieg ich den Fehler: TntClasses.dcu nicht gefunden.

Bin da leider noch nicht so fit

Gibts da nen Trick dazu?
Vielen Dank Dir
Gruß Reiner