Air724ugLora/demo/record/testRecordSpeexStream.lua

--- 模块功能：录音功能测试.
-- @author openLuat
-- @module record.testRecord
-- @license MIT
-- @copyright openLuat
-- @release 2018.03.27

module(...,package.seeall)

require"record"
require"audio"

--local uartID = 1
--uart.setup(uartID,115200,8,uart.PAR_NONE,uart.STOP_1)

local recordBuf = ""
--[[
函数名：rcdcb
功能  ：录音结束后的回调函数
参数  ：
        result：录音结果，true表示成功，false或者nil表示失败
        size：number类型，本次上报的录音数据流的大小，单位是字节，在result为true时才有意义
        tag：string类型，"STREAM"表示录音流数据通知，"END"表示录音结束
返回值：无
]]
function rcdcb(result,size,tag)
    log.info("testRecord.rcdcb",result,size,tag)
    if tag=="STREAM" then
        local s = audiocore.streamrecordread(size)
        recordBuf = recordBuf..s
        --uart.write(uartID,s)
    else
        record.delete() --释放record资源        
        
        log.info("record.spx streamplay totalLen",recordBuf:len())
        --audiocore.streamplay返回接收的buffer长度
        --此处并没有将录音数据全部播放完整
        log.info("record.spx streamplay acceptLen",audiocore.streamplay(audiocore.SPX,recordBuf))
        
        sys.timerStart(audiocore.stop,6000)
        
        recordBuf = ""
        sys.timerStart(record.start,8000,10,rcdcb,"STREAM",1,1,4)        
    end  
end

--sys.timerLoopStart(function() log.info("rcdReadSize",rcdReadSize) end,1000)

--5秒后，开始录音
sys.timerStart(record.start,5000,10,rcdcb,"STREAM",1,1,4)