TMIDIPlayerComp

[EWeiss]

Projekt entfernt..

[midijorss]

Zitat von EWeiss:

Thanks for the Information
i have added all this by me and silhwan self

see here.

Delphi-Quellcode:

    case Event^.Data1 of
      // ** MIDI Karaoke file type 1 (Soft Karaoke) uses data type code $1 for recording lyrics
      // ** instead of data type code $5.
      // ** The identifier of this file type is text "@KMIDI KARAOKE FILE" as the first text at position 0.
      // ** (Applied at ver 0.9.5)
      $1: begin
        if FTrackKeyword = '' then
          if (Event^.Positon = 0) and (Event^.Msg = '@KMIDI KARAOKE FILE') then
            FFoundKaraokeId := true
          else
          // The name of Track 1 = "Soft Karaoke", Track 2 = "Words"
          if FFoundKaraokeId2 and (FTrackName = 'Words') then
            FFoundKaraokeId := true;
            // For very suspicious karaoke file
            if not FFoundKaraokeId then
              if FTrackName = 'Words' then
                if High(FRawLyrics) = -1 then
                  if pos('@L', string(FTrackKeyword)) <> 0 then
                    if pos('@T', string(FTrackKeyword)) <> 0 then
                      FFoundKaraokeId := true;

best regards Emil

ps.. the last File show as see image
i can not upload the source on this time without permission of Silhwan. (es geht nichts über Denglish)

Hi,

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

[EWeiss]

Zitat:

I hope, he publish the source codes on Delphi-PRAXIS forum...

Yes. But not without the consent of Silhwan
to many work for compare instruments from MidiFile to.

sorry

regards

[EWeiss]

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

[beanbear6]

Hallo Emil,
wow wow das sind ja herrliche Neuigkeiten!!
Gibt es dann in naher Zukunft eine neue Version
von den MidiComps?
Gruß Reiner
(beanbear6)

[EWeiss]

Zitat von beanbear6:

Hallo Emil,
wow wow das sind ja herrliche Neuigkeiten!!
Gibt es dann in naher Zukunft eine neue Version
von den MidiComps?
Gruß Reiner
(beanbear6)

Was für neue?
Die sind erst überarbeitet worden.

Um was geht es dir denn genau das du meinst bzw. glaubst eine neue Version zu benötigen.

gruss

[EWeiss]

Kleines update vom 12.2

Delphi-Quellcode:

procedure TMainForm.FormShow(Sender: TObject);
....
ViewChannelForm.ResetFields(true{Reset Device});  // ** Added at 2013-02-12

Archiv aktualisiert.
Zudem noch einige nicht verwendete Variablen und Proceduren entfernt.

gruss

[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