为何我用这几行代码录下来的声音有毛病呢???
qyh 2001-07-08 02:01:13 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Sub Command1_Click()'录音
retval = mciSendString("open new type waveaudio alias wave", retstring, 256, 0)
retval = mciSendString("set wave bitpersample 8", "", 256, 0)
retval = mciSendString("set wave samplespersec 11025", "", 256, 0)
retval = mciSendString("set wave channels 2", "", 256, 0)
retval = mciSendString("record wave", "", 256, 0)
End Sub
Private Sub Command2_Click()'结束录音
Dim commandstring As String
retval = mciSendString("stop wave", "", 256, 0)
commandstring = "save wave" & " C:\wave.Wav"
retval = mciSendString(commandstring, "", 256, 0)
retval = mciSendString("close wave", "", 256, 0)
End Sub