TMIDIPlayerComp

[EWeiss]

Neue Version oben!

TMidiplayer verwendet nun MidiSheetMusic-2.5 als Slave.
Angepasster Quelltext von MidiSheetMusic im Archiv enthalten.

gruss

[hathor]

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.

[EWeiss]

Zitat von hathor:

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.

Ist möglich
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

[EWeiss]

Für die Leute die das projekt verwenden eine kleine korrektur.

Zitat:

There should be a modification to allow position change by mouse click on music sheet
at stopped state.

Delphi-Quellcode:

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

gruss

[EWeiss]

Neue Version oben.
Was geändert bzw. addiert wurde kann man im Text Revision_Notification nachlesen.

Wer das Menü gerne in Deutsch haben will kann folgendermaßen vorgehen.

1. MusicSheet Projekt öffen
2. TextLib.resx ins Deutsche übersetzen
3. Nach der übersetzung als TextLib.de-DE.resx speichern und zum Projekt addieren
4. Öffne LyricsEdit.cs und ändere die Sprache nach German (nicht vergessen die Buttonbeschriftung hier zu ändern)
5. Neu kompilieren

gruss

[mm1256]

Hallo,

weil ich aktuell auf der Suche nach einem guten MidiPlayer mit Quellcode für Delphi bin, habe ich die aktuelle Version mal getestet. Das Ergebnis war dann doch gelinde gesagt etwas ernüchternd. Etwa knapp die Hälfte meiner Midifiles läuft mit dem Player nicht. Habe mit der kMIDIPlayer.exe auf mehreren Rechnern unterschiedlichster Performance getestet. Die augenfälligsten Probleme sind:

- SysEx werden verschluckt. Kann man mit MidiOx nachvollziehen.
- Notenhänger bei langen Noten, d.h. NoteOff's werden nicht gesendet oder gehen verloren.
- Das Tempo stimmt manchmal nicht.

Bevor ich mich weiter damit beschäftige, zwei Fragen:

1) Ist es angedacht, den Player Musikertauglich zu machen?

2) Wenn ja, in welcher Zeit, und was kostet es? Bis etwa 300 Euronen wären akzeptabel.

Ansonsten, wenn jemand einen guten Player kennt, bin für jeden Tipp dankbar.

[EWeiss]

Kann auf meinem Rechner die von dir angegebenen Fehler Probleme nicht nachvollziehen.
Zudem gibt es schon eine überholte Version von der Komponente die aber bisher noch nicht veröffentlicht wurde.

Außer in meinem VPiano allerdings nicht als Komponente.

MidiFile2

Zitat:

Author : Silhwan Hyun (e-mail addr : [e-mail])

Contibutors
Emil Weiss : Test & Advice for update/debug

Revision History
--------------------------
Ver 0.9.7.1 03 May 2015
- Support Refrain Control (added recorded type TVerseData)

Ver 0.9.7 20 Mar 2015
- Support Verse control :
property VerseCount
function GetVerse(Index: integer): PVerseData;

Ver 0.9.6.3 05 May 2014
- Support data file(*.DAT)

Ver 0.9.6.2 5 Apr 2014
- Fix package conflict with Tnt Unicode Controls VCL
( The referenced unit TntClasses is substituted with TntCollection )

Ver 0.9.6.1 2 Jun 2013
- Bug fix at getting FLyricsTrack

Ver 0.9.6 2 May 2013
- Added property TimeSinature

Ver 0.9.5.1 11 Feb 2013
- Some addtions to accept non-standard Karaoke files and RIFF MIDI Files(*.RMI)
- Bug fix : The value of FIsValid is not set to false if exception occurs at executing
function "GetInfo".

MidiPlayer

Zitat:

Revision History
------------------------------
v0.9.6 (20 Mar 2015)
- Support Repeat playing of defined interval :
function SetRepeatSection, procedure ResetRepeatSection

- Support Repeat playing of Verse :
property RepeatVerse;

- Support instrument assignment per channel :
procedure AssignInstrument, property ForceInst

DatReader und Read_anyEncoded für Unicode

Zitat:

Ist es angedacht, den Player Musikertauglich zu machen?

Kannst ja selber machen Quelltext ist ja vorhanden.
Wenn der Player dir nicht reicht.

gruss