TMIDIPlayerComp

[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