如何使用API函数录音？

Question

谢谢

Answer 1

去http://www.yesky.com/20011222/211169.shtml看看

Answer 2

我指的是低层的API函数录音（不包括MCI）。

Answer 3

打开一个wav文件,用mcisendstring函数的record 命令串,具体看看msdn,我做过，可以

Answer 4

http://vip.6to23.com/NowCan1/code/record.zip

Answer 5

楼上朋友，您给的例子中，声音信号进入缓冲后又如何存为WAV文件呢？谢谢。

Answer 6

Public Sub RecordWave(TrackNum As Integer, Filename As String)
' Tracknum: track to record
' Filename: file to save wave asOn Local Error Resume Next
Dim i As Long, RS As String, cb As Long, t#
RS = Space$(128)i = mciSendString("stop cdaudio", RS, 128, cb)
i = mciSendString("close cdaudio", RS, 128, cb)Kill filenameRS = Space$(128)
i = mciSendString("status cdaudio position track " & TrackNum, RS, 128, cb)
i = mciSendString("open cdaudio", RS, 128, cb)
i = mciSendString("set cdaudio time format milliseconds", RS, 128, cb)
i = mciSendString("play cdaudio", RS, 128, cb)
i = mciSendString("open new type waveaudio alias capture", RS, 128, cb)
i = mciSendString("record capture", RS, 128, cb)t# = Timer + 1: Do Until Timer > t#: DoEvents: Loopi = mciSendString("save capture " & filename, RS, 128, cb)
i = mciSendString("stop cdaudio", RS, 128, cb)
i = mciSendString("close cdaudio", RS, 128, cb)End Sub