30-01-2015, 07:15 PM
اجراء لعزف طبول الميدي المضمنة في ويندوز
كود :
var mo:hmidiout;implemetation
Function encodemsg(play,channel,para1,para2:integer):integer; begin
Result:=play+CHANNEL+(para1 shl 8)+(para2 shl 16);end;
Procedure play(channel,note,volume:byte);
Begin
Midioutshortmsg(mo,encodemsg($90,channel,ord(note),volume));
//edit1.text must be >27
//on form create
Midioutopen(@mo,0,0,0,Callback_null);
//on edit1 change
Play(9,strtoint(edit1.text),127);
//on form close
Midinoutclose(mo);