TMIDIPlayerComp

[beanbear6]

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;

[EWeiss]

Zitat:

wär das eventuell mit RichText leichter zu lösen??

Denke nicht.
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

[musicman56]

Hallo Emil,

ich habe mir den Quelltext des Players mangels Zeit noch nicht angesehen. Aber, ich kenne einige Bibliotheken von anderen Anbietern und weiß darum, wie diese die Anzeige realisiert haben.

Meistens liest man ja alle Midi-Events in eine Liste (abgeleitete TList) ein, und schickt die Events dann der Reihe nach an den Midi-Port. Diese Liste muss einen Integer mit der aktuellen Text-Position enthalten. Wie ich vorher schon mal angedeutet habe, ist das die Anzahl der Chars von Beginn an (kannst also jederzeit auch den Copyright-String oder andere Events ausblenden). Den Integer erzeugt man ganz einfach bei der ersten Erstellung des "gesamten" Textes im Memo. Um unnötiges Aktualisieren zu verhindern, und die Lesbarkeit beim Abspielen zu verbessern, macht man das meistens "Wort für Wort" oder auch zeilenweise.

Der User kann somit den Trackbar an jede gewünschte Position ziehen, und der Text stimmt immer. Der Vorteil ist: Es geht auch mit einem einfachen Memo, weil "Sel.." und Co verwendet werden kann. Sel.Begin ist der Integer und Sel.End ist die nächste Zeile (Zeilenumbruch)

Aber...only my 2 cents, will mich nicht in deine Planung einmischen.

OT - eigentlich eine Frage an den Forums-Admin: In der Vorschau wird die Signatur angezeigt bzw. angehängt, aber nicht im Beitrag. Was muss man denn da einstellen/ändern? Hab schon in den Einstellungen gesucht, aber nichts gefunden. Komisch ist: Nachdem ich einen Beitrag nachträglich bearbeitet habe, ist die Signatur seltsamerweise da... also doppelt. Evtl. Browser-Problem?

Mit musikalischem Gruss
------------------------
- musicman56 (Otto) -

[EWeiss]

Die aktuelle Textposition ermittle ich (OpenGL) über das Elapsed Event also zu welcher zeit der Text geschrieben wird.
Die Procedure

procedure TForm1.MidiPlayerGotLyrics(Track: Integer; Event: PMidiEvent);

liefert mir den korrekten String zurück ein zusätzliches addieren in einer TList innerhalb der Mainform
wäre also in dem Fall doppelt gemoppelt da der Komplette text vorher schon in einer TList addiert wird.

Bei OpenGL habe ich kein problem den Text auszugeben (finden) da er wie schon gesagt über Elapsed ermittelt wird.
Hingegen im Memo/Richedit finde ich einfach nicht den Ansatz wie ich das hier realisieren soll.

gruss

[beanbear6]

Hallo Emil,
hm seltsam, ich hab ein RichEdit dazugesetzt wo ich die
Zeilenumbrüche einwandfrei kriege, aber im SyncLyrics
macht er mir das einfach nicht. Hast Du ne Idee, woran
das liegen kann??
Gruß und frohes Fest
Reiner

[EWeiss]

Neue version online..

gruss

[EWeiss]

hat sich erst mal erledigt