Play midi files using mci
Posted: Sat Mar 15, 2003 8:22 pm
Code updated For 5.20+
Restored from previous forum. Originally posted by BalrogSoft.
Hi to all
I found a little tip on inet to play midi files using mci, im was searching how to play midi files or other formats without using any third library, and without any lincense for my 3d engine, and i found it:
Bye...
Balrog Soft
Amiga and PC Coder
http://www.balrogsoftware.com
[url]mailto:balrog@balrogsoftware.com[/url]
Restored from previous forum. Originally posted by BalrogSoft.
Hi to all
I found a little tip on inet to play midi files using mci, im was searching how to play midi files or other formats without using any third library, and without any lincense for my 3d engine, and i found it:
Code: Select all
Procedure LoadMidi(Nb,file.s)
i=mciSendString_("open "+file.s+" type sequencer alias mid"+Str(Nb),0,0,0)
ProcedureReturn i
EndProcedure
Procedure PlayMidi(Nb)
i=mciSendString_("play mid"+Str(Nb),0,0,0)
ProcedureReturn i
EndProcedure
Procedure PlayMidiFrom(Nb,Start,Endz)
i=mciSendString_("play mid"+Str(Nb)+" from "+Str(Start)+" to "+Str(Endz),0,0,0)
ProcedureReturn i
EndProcedure
Procedure PauseMidi(Nb)
i=mciSendString_("pause mid"+Str(Nb),0,0,0)
ProcedureReturn i
EndProcedure
Procedure ResumeMidi(Nb)
i=mciSendString_("resume mid"+Str(Nb),0,0,0)
ProcedureReturn i
EndProcedure
Procedure StopMidi(Nb)
i=mciSendString_("stop mid"+Str(Nb),0,0,0)
ProcedureReturn i
EndProcedure
Procedure FreeMidi(Nb)
i=mciSendString_("close mid"+Str(Nb),0,0,0)
ProcedureReturn i
EndProcedure
Procedure SetMidiTempo(Nb,Tempo)
i=mciSendString_("set mid"+Str(Nb)+" tempo "+Str(Tempo),0,0,0)
ProcedureReturn i
EndProcedureBalrog Soft
Amiga and PC Coder
http://www.balrogsoftware.com
[url]mailto:balrog@balrogsoftware.com[/url]
