AW: TMIDIPlayer2
Hi Emil, hi an die andren..
ja also wie schon gepostet, ist es bei vielen Midis so, dass der zu singende Text einfach zu spät angezeigt wird. Demnach ist es besser, den Text als Ganzes anzuzeigen und mit z.B. roter Farbe die Textposition anzuzeigen. Ich will eben kein fertiges Programm, will das (leider ohne Hilfe gehts nicht) selber hinkriegen. Ich kann viel im Datenbankbereich, aber mit Midis usw. bin ich halt überfordert. Es muss aber nicht sein ja? Nur wenns relativ einfach zu lösen ist wärs einfach klasse... Gruß und vielen Dank an alle! beanbear6 |
AW: TMIDIPlayer2
Zitat:
Lediglich das Parsen der Memo so das kein doppelter Eintrag angezeigt(selektiert) wird .. also Zeile für zeile müßte ich noch machen .Habe da aber noch keine Lösung gefunden(bzw. damit noch nicht viel gemacht). Vielleicht hat ja jemand ein beispiel dann addiere ich es noch zum Projekt. gruss |
AW: TMIDIPlayer2
Hi Emil,
ja das Ganze klappt megagut!!! Kann Midis abspielen und hab den kompletten Text dazu... Ich guck mal ich hatte sowas ähnliches mal... vielleicht findi noch das Testprogramm, das hat auf Tastendruck den Text einfach markiert. Weist, wenn ich das selber kompilieren und bearbeiten kann, kann ich noch eigene Datenbanksachen drüberbauen, das krieg ich locker hin... Nochmals vielen Dank für die Hilfe die ich hier kriege!!! Gruß aus Passau |
AW: TMIDIPlayer2
Zitat:
Mal abwarten vielleicht hat noch jemand anderes ein paar Tips. gruss |
AW: TMIDIPlayer2
Hallo,
ich bin Delphi-mäßig auch mehr im Datenbankbereich tätig. Mit Midi's kenn ich mich einigermaßen aus, das problem ist bei mir momentan die Zeit. Nach Weihnachten wird es besser. Dann kann ich vielleicht auch was konstruktives dazu beitragen. Auf Anhieb würde ich das mal so versuchen: 1. Dem ganzen Text in ein Memo, mit Zeilenumbruch. Einen Counter auf null setzen. 2. Mit den Lyrics-Events den Counter jeweils um die Länge des Strings erhöhen ==> Sel-End. Der Counter ist quasi nix anderes als die Summe der von Midi-beginn an ausgegebenen Zeichen. 3. Sel-Begin berechnen: Vom Sel-End zurück gehen bis zum letzten Zeilen-Umbruch Der Haken an der Vorgehensweise ist, dass beim Bewegen des TrackBars die Logik nicht mehr stimmt. Aber zumindest beim Abspielen ohne Unterbrechnung müsste es so gehen. @Emil: Unter www.midiland.de gibt es den Midifile-Optimizer. Das ist ein schönes Beispiel, wie die Textanzeige dargestellt werden sollte. @All: Unter www.live-player.de gibt es meinen Player kostenlos. Ich arbeite nicht mit Lauftext, sondern mit statischem RTF-Text. Geht aber auch nicht anders, weil zu einem einzigen Titel bis zu 4 Files hinterlegt werden können: mid, wma, mp3 und wav. Ausser der WAV werden die Files natürlich in einer (SQL-)Datenbank gespeichert. Wie gesagt, ich bin auch eher der Datenbank- als der Midi-Spezialist. |
AW: TMIDIPlayer2
Zitat:
gruss |
AW: TMIDIPlayer2
Hi musicman56 und Emil,
ja das mit der Trackbar dachte ich auch schon dran, aber das denke ich kann man unberücksichtigt lassen. Wenn ein File gestoppt wird, denke ich solls von vorn neu beginnen - also das macht mir keine Sorgen... :) Ich such immer noch das Beispiel von damals wo der Text markiert wurde... Gruß und Dank an alle. beanbear6 |
AW: TMIDIPlayer2
Neue Version oben.. nur TMidiPlayer2_without_Com
Copyright Text Fehler beseitig hat im Lyric Text nichts zu suchen. Beispiel: Zitat:
ist meines erachtens das einfachste.. mit Memo's geht es einfach nicht. Wird aber dieses Jahr nichts mehr mit Hochladen.. wenn fertig dann ist es fertig. Ein Frohes Weihnachtsfest wünsche ich euch allen. gruss |
AW: TMIDIPlayer2
Hi Emil,
wär das eventuell mit RichText leichter zu lösen?? Ich hab von einem guten Bekannten folgenden Quellcode erhalten. Im Ansatz ist das fast das was benötigt wird... (Auch an alle hier ein ruhiges besinnliches Weihnachtsfest und nen guten Rutsch) :)
Delphi-Quellcode:
var
such: string; suchmodus: boolean; start: integer; procedure TForm1.FormCreate(Sender: TObject); begin KeyPreview := true; Button2Click(Sender); end; procedure TForm1.Button1Click(Sender: TObject); begin suchmodus := true; label1.caption := 'Suchmodus ist ein'; end; procedure TForm1.Button2Click(Sender: TObject); begin suchmodus := false; label1.caption := 'Suchmodus ist aus'; Label2.caption := ''; Memo1.sellength := 0; such := ''; start := 1; end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); var x, lg: integer; begin if suchmodus then begin if (key = #8) and (such <> '') then begin delete(such, length(such), 1); start := 1; end else if key >= #32 then such := such + Key; if such = '' then begin label2.caption := ''; Memo1.sellength := 0; start := 1; key := #0; exit; end; lg := length(such); label2.caption := such; if (key = #13) and (Memo1.sellength > 0) then inc(start, lg); Memo1.sellength := 0; for x := start to length(memo1.text) - lg + 1 do if lstrcmpi(pchar(such), Pchar(copy(Memo1.text, x, lg))) = 0 then begin Memo1.selstart := x - 1; Memo1.sellength := lg; Memo1.setfocus; Memo1.perform(EM_SCROLLCARET, 0, 0); start := x; break; end; if Memo1.sellength = 0 then start := 1; key := #0; end; end; |
AW: TMIDIPlayer2
Zitat:
Memo/Richedit ist ja fast identisch was die suche im Text betrifft. Das problem ist ganz einfach dies das ein string im Memo/Richedit Text öfter vorkommen kann. Da immer der gesamte Text durchsucht wird "of" in der 5 aber auch in der ersten Zeile stehen kann springt der Cursor dann wenn du in zeile 5 bist logischerweise in die zeile 1. Also zu den zuerst gefundenen "of" Eintrag. gruss |
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:00 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