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