当前位置：首页 -> 技术开发 -> 程序开发 -> DELPHI操纵声卡

DELPHI操纵声卡

时间： 2021-07-31 作者：daque

查看声卡能否安置uses mmsystem;...function soundkarte:boolean;beginresult := waveoutgetnumdevs >0;end;检验和测定声卡生存即使你是做少许多媒介播放器之类的步调时，为了完备体例的容错性，就必需用到少许检验和测定体例的功效，个中检验和测定声卡能否生存即是一个题目，下列步调帮你忙，开始须要在uses局部介入mmsystem ，接着在窗体创造时检验和测定声卡：procedure tform1.formcreate(sender: tobject);var i:integer;begini := auxgetnumdevs();if i<= thenlabel1.caption :='体例没有创造声卡';end;遏制声响响度当你做一个多媒介播放器时，不免少不了遏制响度的巨细和安排声道的播放，底下就引见一种遏制wave波形输入摆设响度的本领，该本领不是树立主响度。先在窗体上放两个ttrackbar，辨别定名为trackbar1，trackbar2，属性max都树立为65535，即使感触刻度太密了，不妨把frequency属性值树立大少许，而后在uses段介入mmsystem，并在trackbar1和trackbar2的onchange事变都写左右列语句：procedure tform1.trackbar1change(sender: tobject);var wave:string;beginwave:='$'+inttohex(trackbar1.position4)+inttohex(trackbar2.position4);waveoutsetvolume(0strtoint(wave));end;赢得和遏制响度unit umain;interfaceuseswindowsmessagessysutilsclassescontrolsformsdialogsextctrlsstdctrlsmmsystem; //you must add this in the uses linetypetform1 = class(tform)procedure formcreate(sender: tobject);procedure formclose(sender: tobject; var action: tcloseaction);private{ private declarations }publicmyvolume: array[0..10] of longint;{ public declarations }end;varform1: tform1;implementation{$r *.dfm}procedure tform1.formcreate(sender: tobject);varcounti: integer;begincount := auxgetnumdevs;for i := 0 to count dobegin//the i is the device: i.e. 0=wav volumeauxgetvolume(iaddr(myvolume[i])); //gets the values that the user has setauxsetvolume(ilongint(9000)*65536+longint(9000)); //sets the volume very very lowend; //the reason for the 9000*65536 + 9000 is if you wanted to do left and right channelsend;procedure tform1.formclose(sender: tobject; var action: tcloseaction);varcounti: integer;begincount := auxgetnumdevs;for i := 0 to count dobeginauxsetvolume(imyvolume[i]); //sets the volume back to the users old settingsend;end;

DELPHI操纵声卡

相关推荐

推荐下载

热门阅览

最新排行