delphi中演奏声音?(100分)

  • 主题发起人 主题发起人 zhmj
  • 开始时间 开始时间
Z

zhmj

Unregistered / Unconfirmed
GUEST, unregistred user!
在delphi中如何演奏声音.如何获取是否有声卡和音箱?<br>要求根据频率和时间演奏,请帮忙,详述过程和方法.<br>(不是播放wav等文件)<br><br>
 
是否有音箱也能监测?<br>
 
&gt;&gt;是否有音箱也能监测?<br>&nbsp; 用眼睛监控啊!<br>if you see speaker then speaker.sound:=true;<br>
 
是否有声卡: <br>&nbsp; if auxGetNumDevs &lt;=0 then No Sound Card;
 
我也想知道,能否用较简单的方法实现<br>pc喇叭beep某一音高一段时间
 
原来pascal下有procedure sound(参数忘了),可以用pc speaker放一定<br>频率的声音,不知道delphi下还有没有
 
我的意思是<br>根据给定的频率和时间采用声卡和音箱演奏出来,<br>哪位知道,请赐教!!!<br>(不是播放wav等文件)
 
我的汇编作业有这一道题,根据给定的频率和时间采用声卡<br>和PC喇叭演奏出来,考完试后(一周)我发给你,可能对你<br>有帮助!
 
to wjiachun<br>&nbsp; 非常感谢,我等待你的回信. zhminjian@21cn.com<br>
 
难道没有哪位高手回答该问题吗??????
 
1.检测声卡:if waveOutGetNumDevs=0 then 无声卡<br>&nbsp; <br>2。检测音箱:if GetSoundBox=0 then ... (玩笑) :-)<br><br>3。演奏声音:<br><br>Beep(DWORD dwFreq, &nbsp; &nbsp; &nbsp; &nbsp; // sound frequency, in hertz <br>&nbsp; &nbsp; DWORD dwDuration // sound duration, in milliseconds <br>&nbsp; &nbsp; &nbsp;); <br>&nbsp;
 
做成MIDI再用Delphi播放,不就行了。
 
晚上我发给你,不过我用masm通过的,你嵌进delphi看行不行。
 
收到否?
 
&gt;&gt;做成MIDI再用Delphi播放,不就行了。<br>&gt;&gt;(不是播放wav等文件)<br>??<br><br>
 
收到否?<br>
 
在delphi中嵌入汇编,<br>对8255的60,61端口操作,<br>大部分的微机原理书上都有这个例子,<br>作一个小"钢琴"的东西,原程序不大,<br>可以自己去图书馆瞧瞧.<br>
 
收到否?
 
waveOutGetNumDevs实在那里声明的?
 
后退
顶部