AW: TMIDIPlayer2
Zitat:
Solange der Author im Quelltext nicht entfernt wird.. gruss |
AW: TMIDIPlayer2
Zitat:
Danke. gruss |
AW: TMIDIPlayer2
Zitat:
Und deine angehängte Datei funktioniert nun auch. gruss |
AW: TMIDIPlayer2
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 :roll: 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? |
AW: TMIDIPlayer2
Zitat:
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:
gruss |
AW: TMIDIPlayer2
Zitat:
aber, wenn der Player funktioniert, bin ich gern bereit eine "Spende" zu entrichten. Da freut sich doch jeder Autor darüber 8-) 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 :wink: |
AW: TMIDIPlayer2
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 |
AW: TMIDIPlayer2
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 |
AW: TMIDIPlayer2
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 |
AW: TMIDIPlayer2
Zitat:
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:
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 13:22 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz