erweiterte Demo für BASSMIDI.DLL

[Delfiano]

Ich habe keine Lust mehr. Hiermit präsentiere ich die letzte noch immer unfertige Version meines Mülls.

Falls jemand was mit dem einen oder anderen durch mich integrierten Feature anfangen kann, das ich abweichend oder ergänzend zu den Beispielen von un4seen.com (auf denen ich aufgebaut habe) anfangen kann, dann nutzt es, denn allein zu dem einen Zweck habe ich dieses Projekt hier vorgestellt: Damit andere sehen, was man mit Delphi und Soundfonts bzgl. Midi machen kann.

Ich habe diesmal mit Delphi 5 compiliert. Enthalten sind alle benötigten Dateien inkl. fertiger EXE.

Was fehlt sind Midi-Dateien und Soundfonts.

Wenn jemand was mit dem Kram anfangen kann, würde es mich freuen.

08b2: (nicht veröffentlicht)

Ab Version 08b2 habe ich geschafft, fürs Tuning von Bass und Gitarre jetzt endlich den Timer einzusetzen. Dafür gibt es Buttons und es ist möglich, beides gleichzeitig zu aktivieren. Bei aktivierter Option ist die Schrift der Buttons fett, ansonsten normal.

Neu ist ausserdem die Option, MIDI-Autoplay (über die INI-Datei) zu setzen bzw. zu verhindern. Voreinstellung ist ansonsten nach wie vor das automatische Abspielen bei Programmstart.

Zur besseren Erkennbarkeit habe ich die Hintergründe nicht direkt erkennbarer Felder auf eine andere Farbe gesetzt, die aber nur im im Delphi-Editor zu sehen ist, nicht mehr im laufenden Programm.

Ausserdem habe ich die Zuweisungen für die Lycrics von TLabel auf TMemo geändert, obwohl das bedeutungslos war, weil beides TEXT ist.

08c: (hier im Anhang)

Ab Version 0.8c habe ich die Zuweisungen von bisher "MidiStream" auf "MidiStreams[1]" geändert, nachdem ich "MidiStream" auf ein Array "MidiStreams : ARRAY[1..4] OF HSTREAM;" geändert habe. Davon erhoffe ich mir, später auf mehrere unterschiedliche Soundfonts gleichzeitig zugreifen zu können, um so ggf. z.B. den Midiplayer, den Testbereich zum Aufruf einzelner Töne und die Option zum Stimmen von Instrumenten mit unterschiedlichen Soundfonts ansprechen zu können. Ob das was wird und wie es sich umsetzen lässt, ist dabei noch ohne Bedeutung.

Die Option "play 3 tones" wurde geändert zu "play chords" und um einen vierten Ton erweitert und gilt nun nicht mehr nur für "randomtest", sondern auch für das Einzelklicken eines Tons mit der Maus in "ListBox_Drums" und für playone / playall sowie für das Drücken einer Tastaturtaste, aber nicht für das Drücken mit Maus oder Tastatur im Bereich "Keyboard input" ...

Beim Drücken einer Tastaturtaste habe ich die "sleep"-Zeit verkürzt, damit es flüssiger läuft. Für den Bereich "Keyboard input" hätte es allenfalls für das Anklicken mit der Maus Bedeutung, weil sich per Tastatur mehrere Tasten gleichzeitig drücken lassen.

Sinnvoll wäre vielleicht noch die Wahlmöglichkeit zwischen Dur-, Moll- und Septim- Akkorden. Ich habe es erstmal bei Dur belassen.

[venice2]

Zitat:

Es ist nicht gerade freundlich, auf meine rein sachliche Kritik mit gegen mich persönlich gerichteten Frust-Angriffen zu reagieren.

Video gesehen?
Mehr gibt es nicht zu sagen was nicht schon gesagt wurde.

Aber danke. Habe noch 2 kleine Fehler gefunden die ich dadurch beheben konnte.
Ein paar Bedienelemente Re-positionieren, List-Box korrekt in den Hintergrund zu setzen.

[Delphi.Narium]

Zitat:

Zitat von Delfiano (Beitrag 1477891)

Ich habe keine Lust mehr. Hiermit präsentiere ich die letzte noch immer unfertige Version meines Mülls.

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.

Von Müll kann ich da nix erkennen.

[TiGü]

Auch wenn ich Eulen nach Athen trage, aber hast du/habt ihr bei spezifischen Detailproblemen auch das Forum von un4seen konsultiert bzw. eure Fragen da gestellt?

http://www.un4seen.com/forum/

[juerg5524]

Hallo Delphiano

Ist es möglich, dass das Programm "SF2Comp.exe" nicht mehr benötigt wird? Wenn ich es Umbenenne, "Button_SF2_WORK.visible:=FALSE;" in der "BaseUnit.pas" auskommentiere und
bei "IF NOT (FileExists(DLL)) OR NOT (FileExists(EXE))" in "U_SF2.pas" vor "OR" auskommentiere, dann startet dein Programm ganz normal. Ich kann keinen Unterschied erkennen. Kannst du mir helfen, übersehe ich da was?

Danke und Gruss
Jürg

[Delfiano]

SF2Comp.exe etc.
Hallo juerg5524.

Sorry, wenn darauf ich nur kurz antworte, weil es mir gesundheitlich sehr schlecht geht.

SF2Comp.exe, SFEDT32.DLL und U_SF2a dienen dazu, SoundFonts zu extrahieren etc.

U_SF2a ist lediglich ein Wrapper (also eine Benutzeroberfläche) für SF2Comp.exe und SFEDT32.DLL.

Wer das nicht braucht, kann natürlich alle entsprechenden Teile entfernen. Ich bin selbst nicht mehr davon überzeugt, dass es sinnvoll war, mein Beispielprog damit zu überfrachten. In einem anderen Thema hatte ich den Wrapper als separates Projekt vorgestellt, bevor ich auf den Gedanken kam, man könne ihn auch integrieren.

Forum von un4seen.com
Hallo TiGü.

Natürlich habe ich mir das Forum angesehen. Aber die Leute dort sind "C" orientiert und der Midibereich ist bei denen anscheinened eher ein Randthema. Die paar diesbzgl. Sachen für Delphi funktionieren nicht, sonst hätte ich längst einen Equalizer integriert. Auch wüsste ich jetzt nicht, was ich da fragen sollte. Zum "mitsingen" reicht doch deren Integration der Lyrics. Auch ist mein englisch nicht gut genug für Spezialbegriffe.

Warum Müll ?
Hallo Delphi.Narium.
Ich bin Perfektionist und darum völlig unzufrieden. Falls ich mich nochmal damit beschäftigen sollte, fremde Sachen irgendwo zu integrieren, werde ich vorher ü erlegen, was man draus machen könnte und erst ein Konzept dafür entwickeln, statt auf Bestehendem aufzubauen und das so stümperhaft zu erweitern, wie ich es gemacht habe.

Stell doch bitte auch mal Dein Programm vor.

Video gesehen?
Hallo, venice2.

Warum sollte ich mir irgendein Video ansehen, das mit Deinem Projekt zu tun hat, obwohl Du völlig andere Vorstellungen und Ziele hast? Stelle doch bitte Dein Projekt an anderer Stelle vor, statt dadurch Verwirrung zu stiften, irgendeinen Zusammenhang zum Thema Soundfonts herstellen zu wollen, den es nicht gibt.

[venice2]

Zitat:

Video gesehen?
Hallo, venice2.

Warum sollte ich mir irgendein Video ansehen, das mit Deinem Projekt zu tun hat, obwohl Du völlig andere Vorstellungen und Ziele hast? Stelle doch bitte Dein Projekt an anderer Stelle vor, statt dadurch Verwirrung zu stiften, irgendeinen Zusammenhang zum Thema Soundfonts herstellen zu wollen, den es nicht gibt.

Tut mir leid das es dir so schlecht geht desto trotz lese doch einfach mal warum ich mein Projekt hochgeladen habe und um was es in diesen Beitrag ging die Verwirrung kommt also von deiner Seite.
Um Lyrics! Genau und nicht um Soundfonts. Mein Video widerspricht einfach all deinen Behauptungen.
Du hattest aufgegeben und ich wollte dich mit den Lyrics Kram unterstützen.

Egal bin eh aus dem Thema hier raus. Viel Spaß noch damit.

[Delfiano]

Am 24. Nov 2020, 20:26 hatte ich Version 0.8c hochgeladen.

Mittlerweile habe ich mich noch an einigen weiteren Sub-Versionen versucht und dabei einen wohl ziemlich gravierenden Fehler entdeckt, den ich nicht verschweigen will, weil es dadurch immer mal wieder passieren kann, dass das Programm schon kurz nach dem Start hängen bleibt.

Anscheinend wird die Variable "BufLen" nicht oder nicht richtig initialisiert. Falls beim Start des Programms nicht zufällig ein brauchbarer Wert erzeugt wird, kommt es zu genanntem Problem.

Die Positionierung in "BufferTrack" ist insofern auch fehlerhaft.

Das Problem ist allerdings bereits im durch mich integrierten Beispielprogramm "Synth" des Anbieters von BASS.DLL und BASSMIDI.DLL enthalten.

Ich bitte um Verständnis, hier lediglich auf den Fehler hingewiesen zu haben, weil die aktuellen Weiterentwicklungen teils erheblich umstrukturiert wurden. Wann ich mal dazu komme diese (nur bei allgemeinem Interesse) zu veröffentlichen, steht noch in den Sternen.