Ergebnis der Suchanfrage

• Forum: Software-Projekte der Mitglieder

  AW: erweiterte Demo für BASSMIDI.DLL

   
    by Delphi.Narium, 25. Nov 2020
  Für mich ist das absolut kein Müll, Du hast halt 'nen anderen Ansatz als Emil (venice2). Ja und?
  
  Hab' halt aus dem Beispiel von un4seen meine eigene Variante eines Midiplayers gebaut. Ist auch was absolut anderes geworden, als die hier vorgestellten. Ja und?
  
  In Deinem Quelltext kann ích mich auf Anhieb problemlos zurechtfinden. Das findet man nicht so unbedingt bei allen Programmierern.
  ...
• Forum: Software-Projekte der Mitglieder

  AW: erweiterte Demo für BASSMIDI.DLL

   
    by Delphi.Narium, 23. Nov 2020
  Auf der oben verlinkten Seite http://www.karaokeden.com/karaoke gibt es ca. 16500 Stück in unterschiedlichen Sprachen davon ca. 90 deutschsprachig. Englischsprachig sind es ein paar tausend.
• Forum: Software-Projekte der Mitglieder

  AW: erweiterte Demo für BASSMIDI.DLL

   
    by Delphi.Narium, 23. Nov 2020
  Habe mir mal etliche Midis im Hexeditor angeschaut. Als Zeilenumbruch kommt auch noch #10 in Frage (was eigentlich naheliegend ist - für die Unixwelt). Daher hab' ich meine Routine mal ein bisserl angepasst:function ProcessMarkText(CaptionText, MarkText : string) : string;
  begin
  if Length(MarkText) > 0 then begin
  case MarkText of
  '@' : Result := CaptionText;
  '\' :...
• Forum: Software-Projekte der Mitglieder

  AW: erweiterte Demo für BASSMIDI.DLL

   
    by Delphi.Narium, 22. Nov 2020
  Ausgehend vom textlichen Inhalt bei Midi-Dateien herrscht da wohl eher ein absolutes Chaos vor.
  
  Hast Du eine Midi, bei der nix klapp und Du passt Deine Routine an, bis es klapp, dann klappt es für diese Midi. Nimmst Du nun eine andere und Du passt die Routine an ..., wird es bei der ersten Midi meist nicht mehr klappen.
  
  Du brauchst "nur" eine Lösung, die meist in Ordnung ist.
  
  Letzte...
• Forum: Software-Projekte der Mitglieder

  AW: erweiterte Demo für BASSMIDI.DLL

   
    by Delphi.Narium, 21. Nov 2020
  ProcessMarkText sieht bei mir so aus:
  function ProcessMarkText(CaptionText, MarkText : string) : string;
  begin
  if Length(MarkText) > 0 then begin
  case MarkText of
  '@' : Result := CaptionText;
  '\' : Result := #13#10 + Copy(MarkText, 2, pred(Length(MarkText)));
  '/','<' : Result := CaptionText + #13#10 + Copy(MarkText, 2, Length(MarkText));
  '*' :...
• Forum: Software-Projekte der Mitglieder

  AW: erweiterte Demo für BASSMIDI.DLL

   
    by Delphi.Narium, 10. Nov 2020
  Midi-Dateien gibt es u. a. hier:
  
  Doug McKenzie - Jazz Piano
  Free MIDI Backing Tracks Downloads
  Free Midis - http://www.midis101.com/
  FreeMidi.org
  Listen to your favorite MIDI files on BitMidi
  MIDIMI.ORG
  MIDIWORLD.COM
  MidiSpace.com - Free MIDI Music