+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : مصادر دلفي مفتوحة تعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=14)
+--- الموضوع : اجراء لعزف طبول الميدي المضمنة في ويندوز (/showthread.php?tid=6748)
اجراء لعزف طبول الميدي المضمنة في ويندوز - rabihpascal - 30-01-2015
اجراء لعزف طبول الميدي المضمنة في ويندوز
كود :
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);