AW: TMIDIPlayer2
Zitat:
Your coding method is very nice :-) And the KMIDIPlayer seems an advanced midi player... I understand about permission of Silhwan. I hope, he publish the source codes on Delphi-PRAXIS forum... Best regards, midijor |
AW: TMIDIPlayer2
Zitat:
to many work for compare instruments from MidiFile to. sorry regards |
AW: TMIDIPlayer2
Nach eingehender vorheriger beratung seitens (Instrument.pas) haben wir uns
entschlossen den Quelltext offenzulegen. Instrumente können nun einzeln abhängig vom selektierten Fader verändert werden. gruss |
AW: TMIDIPlayer2
Hallo Emil,
wow wow das sind ja herrliche Neuigkeiten!! Gibt es dann in naher Zukunft eine neue Version von den MidiComps? Gruß Reiner (beanbear6) |
AW: TMIDIPlayer2
Zitat:
Die sind erst überarbeitet worden. Um was geht es dir denn genau das du meinst bzw. glaubst eine neue Version zu benötigen. gruss |
AW: TMIDIPlayer2
Kleines update vom 12.2
Delphi-Quellcode:
Archiv aktualisiert.
procedure TMainForm.FormShow(Sender: TObject);
.... ViewChannelForm.ResetFields(true{Reset Device}); // ** Added at 2013-02-12 Zudem noch einige nicht verwendete Variablen und Proceduren entfernt. gruss |
AW: TMIDIPlayer2
Neue Version oben!
TMidiplayer verwendet nun MidiSheetMusic-2.5 als Slave. Angepasster Quelltext von MidiSheetMusic im Archiv enthalten. gruss |
AW: TMIDIPlayer2
Danke für den Source Code!
kMIDIPlayer läuft störungsfrei. Die Grafik von MidiSheetMusic ist sehr resourcenfressend. Bei meinem ACER-NB Extensa 5220 mit CPU T9300 und UMA-Grafik wird alles blockiert. Sogar der Maus-Cursor lässt sich nicht mehr bewegen. |
AW: TMIDIPlayer2
Zitat:
Bei mir habe ich in der hinsicht keine probleme. Ein Programm als Slave zu kontrollieren ist immer etwas aufwendiger und unterumständen kann das auch auf kosten der resourcen gehen. Ich müßte mal testen wie sich das verhält wenn ich eine Version von MidiSheet mit VS2012 kompiliere, könnte man aber auch selbst machen wenn man über VS2012 verfügt. Diese im Archiv ist mit SharpDevelop kompiliert worden. gruss |
AW: TMIDIPlayer2
Für die Leute die das projekt verwenden eine kleine korrektur.
Zitat:
Delphi-Quellcode:
gruss
in procedure TMainForm.WndProc of MIDITest.pas
. . else if (Msg.Msg = WM_Mouse_Clicked) then // mouse click on music sheet of MidiSheetMusic begin if (FhServer <> 0) and (Paused or (not MidiPlayer.Playing)) then begin if (not Paused) then begin Paused := true; for I := 0 to MidiPlayer.MidiFile.TrackCount - 1 do // "I" should be declared as a local variable MidiPlayer.MidiFile.GetTrack(I).EndOfTrack := false; end; PostMessage(FhServer, WM_MIDI_PosUpdate, WPARAM(Msg.WParam), 0{=Move to new position}); PrevPosMs := Midifile.Tick2TimePos(Msg.WParam); MidiPlayer.CurrentTime := PrevPosMs; PrevPosTicks := Msg.WParam; MidiPlayerPosUpdate(PrevPosMs, Msg.WParam); end; end |
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:29 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