VB 版 (精华区)

发信人: happyok (好高兴,好高兴), 信区: VB
标  题: 可以自己做一个录音机耶,呵呵
发信站: 哈工大紫丁香 (2000年07月16日11:23:08 星期天), 转信

下面程序是使用MciSendString进行录音：
Dim retValue As Long
Dim ReturnStr As String * 255
retValue = mciSendString("Open New Type WaveAudio Alias Wave", ReturnStr, 25
6, 0)
retValue = mciSendString("Set Wave BitperSample 8", ReturnStr, 256, 0)
retValue = mciSendString("Set Wave Samplespersec 11025", ReturnStr, 256, 0)
retValue = mciSendString("Set Wave Channels 2", ReturnStr, 256, 0)
retValue = mciSendString("Record Wave", ReturnStr, 256, 0)
'然后你可以加一些停止等属性：
retValue = mciSendString("Stop Wave", ReturnStr, 256, 0)

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.97.206.203]