ret = waveInOpen(hWaveIn, WAVE_MAPPER, WavInFmt, AddressOf MywaveInProc, 0, CALLBACK_FUNCTION) Public Function MywaveInProc(ByVal hwi As Long, ByVal uMsg As Long, ByVal dwInstance As Long, ByRef hdr As WAVEHDR, ByVal dwParam2 As Long) As Long Select Case (uMsg)Case MM_WIM_DATAStopOut'停止音频输出 CopyMemory inHdr.lpData, outHdr.lpData, outHdr.dwBufferLength'outHdr.lpData音频播放缓冲区指针 inHdr.lpData音频录制缓冲区指针StartIN'开始录制 StartOut'开始播放End SelectEnd Function 完整代码祥见www.cnzz.com 底层音频采集
Public Function MywaveInProc(ByVal hwi As Long, ByVal uMsg As Long, ByVal dwInstance As Long, ByRef hdr As WAVEHDR, ByVal dwParam2 As Long) As Long
Select Case (uMsg)Case MM_WIM_DATAStopOut'停止音频输出
CopyMemory inHdr.lpData, outHdr.lpData, outHdr.dwBufferLength'outHdr.lpData音频播放缓冲区指针 inHdr.lpData音频录制缓冲区指针StartIN'开始录制
StartOut'开始播放End SelectEnd Function
完整代码祥见www.cnzz.com
底层音频采集