科大讯飞 语音识别 VB WIN10 X64 VS2017

若使用C# ，请用CS转VBConverter 工具转换

Imports System.Runtime.InteropServices
Imports System.IO

#Const _Debug = 1
#Const _WriteWaveFile = 0


Public Class SpeechRecogWav


    Dim _appid As String
    Public Sub New(appid As String)
        _appid = appid
    End Sub
    Const xfAppId = "appid = 599dXXXX" '***************科大讯飞的appid


    Dim login_params As String = xfAppId & ",engine_start = ivw,ivw_res_path =fo|res/ivw/wakeupresource.jet, work_dir = ." '//使用唤醒需要在此设置engine_start = ivw,ivw_res_path =fo|xxx/xx 启动唤醒引擎
    Dim session_begin_params As String = "sub = iat, domain = iat, language = zh_cn, accent = mandarin, sample_rate = 16000, result_type = plain, result_encoding = gb2312"


    ' Dim grammar_id As String = vbNullString
    Dim Sessionid As String


    Public Sub Logoin()  '第一步 登录
        Dim ret As Integer = 0
        ret = MSPLogin(vbNullString, vbNullString, login_params) '第一个参数是用户名，第二个参数是密码，均传NULL即可，第三个参数是登录参数
        If (MSP_SUCCESS <> ret) Then   'vbNullString 与vbNull 不同，见
            ' debug.print(ret)
            Debug.Print("speechrecog login error" & ret)
        End If
    End Sub




#Region "iat 可上传 也可不上传语法 ASR需上传语法进行判断"
    '''是否上传语法文件，用户词表
    Public Function UpdataGrammar(abnfFile As String) As String '第二步上传语法文件
        '//     获取语法ID
        Dim fs As New IO.FileStream(abnfFile, IO.FileMode.Open)
        Dim ret As Integer = 0


        Dim flen As Integer = fs.Length
        Dim grammar_len As Integer = fs.Length
        Dim buff As Byte()
        ReDim buff(flen)


        fs.Read(buff, 0, flen)
        fs.Close()
        ret = -1


        Dim ret_id As IntPtr = MSPUploadData("usergram", buff, grammar_len, "dtt = abnf, sub = asr", ret)
        Dim grammar_id As String = Marshal.PtrToStringAnsi(ret_id)
        Return grammar_id
    End Function


    '上传用户词表
    Public Function UpdataUserWordFile(useWordFile As String) As Integer
        Dim fs As New IO.FileStream(useWordFile, IO.FileMode.Open)
        Dim ret As Integer = 0


        Dim flen As Integer = fs.Length
        Dim buff As Byte()
        ReDim buff(flen)


        fs.Read(buff, 0, flen)
        fs.Close()
        ret = -1


        '   用户词表上传不需要获取GRAMMAR_ID
        MSPUploadData("userwords", buff, flen, "sub = uup, dtt = userword", ret) ' //上传用户词表


        Return ret


    End Function


    '上传用户词表
    Public Function UpdataUserWord(useWord As String) As Integer


        Dim ret As Integer = -1


        '   用户词表上传不需要获取GRAMMAR_ID
        Dim Bt() As Byte = System.Text.Encoding.ASCII.GetBytes(useWord)
        ' Bt(useWord.Length - 1) = 0
        MSPUploadData("userwords", Bt, Bt.Length, "sub = uup, dtt = userword", ret) ' //上传用户词表
#If _Debug Then
        Debug.Print("update userword:" & ret.ToString)
#End If
        Return ret
    End Function




#End Region




    Dim status As AudioStatus
    Dim ep_status As EpStatus
    Dim rec_status As RecogStatus
    Dim rslt_status As RecogStatus


    Dim waveCount As Integer = 0
    Dim isOnSession As Boolean = False


    '开始录音
    Public Sub SessionBegin()   '第二步 开始对话


        If (isOnSession = True) Then
            SessionEnd() '结束上次会话
        End If


        isOnSession = True


        status = AudioStatus.ISR_AUDIO_SAMPLE_FIRST  '第一次时使用此 
        ep_status = EpStatus.ISR_EP_LOOKING_FOR_SPEECH
        rec_status = RecogStatus.ISR_REC_STATUS_SUCCESS
        rslt_status = RecogStatus.ISR_REC_STATUS_SUCCESS


        Dim ret As Integer = 0
        '开始对话
        Dim errorcode2 As Integer = 0
        Sessionid = Marshal.PtrToStringAnsi(QISRSessionBegin(vbNullString, session_begin_params, errorcode2)) 'SESSION_BEGIN_PARAMS 而不是 LOGIN
        If (errorcode2 <> 0) Then
            Debug.Print("**session begin fail: " & errorcode2)




            '   Sessionid = Marshal.PtrToStringAnsi(QISRSessionBegin(vbNullString, session_begin_params, errorcode2)) 'SESSION_BEGIN_PARAMS 而不是 LOGIN
        End If




    End Sub




    '上传录音数据
    Public Function UpdateWave(lpdata As Byte(), datalen As Integer) As Boolean


#If _WriteWaveFile Then
        Wave.WaveWriteFile(lpdata, datalen)
#End If




        Dim ret As Integer = 0
        status = AudioStatus.ISR_AUDIO_SAMPLE_CONTINUE
        If (datalen <= 0) Then
            Return True
        End If




        '写入【待识别】语音
        ret = QISRAudioWrite(Sessionid, lpdata, datalen, status, ep_status, rec_status)
        If (MSP_SUCCESS <> ret) Then
            Debug.Print("//audio write error")
            isOnSession = False
            QISRSessionEnd(Sessionid, String.Empty)
            Return False
        End If


        '检测到结束端点 返回FALSE
        If (ep_status = EpStatus.ISR_EP_AFTER_SPEECH) Then
            Debug.Print("UPDATAWAVE ISE EP AFTER SPEECH")
            Return False
        End If


        Dim waittime As Integer = 1000
        Dim errcode As Integer


        '【获取】识别内容
        If (rec_status = RecogStatus.ISR_REC_STATUS_SUCCESS) Then
            Dim p As IntPtr = QISRGetResult(Sessionid, rslt_status, waittime, errcode)
            If (p <> IntPtr.Zero) Then


                Dim tmp As String = Marshal.PtrToStringAnsi(p)  '识别的内容


                'If (Not waveEventCallBack Is Nothing) Then
                '    waveEventCallBack(1, tmp)
                'End If


                System.Console.WriteLine("updateWave返回部分结果！:" + tmp)
            End If
        End If




        Threading.Thread.Sleep(200) '模拟人说话时间间隙，10帧的音频长度为200ms


        If (ret <> 0) Then
            Debug.Print("qisrupdateaudio fail")
            Return False
        End If
        Return True
    End Function






    'Public Delegate Sub DelgWaveEventCallBackFun(type As Integer, txt As String)
    'Public waveEventCallBack As DelgWaveEventCallBackFun


    'Public Sub AddWaveEventCallBack(WCB As DelgWaveEventCallBackFun)
    '    waveEventCallBack = WCB
    'End Sub










    '第-2步，结束对话
    Public Sub SessionEnd()


        isOnSession = False
#If _WriteWaveFile Then
        Wave.CloseWaveFile()
#End If


        '  wav.StopRecord()


        '写入上传结束标志
        status = AudioStatus.ISR_AUDIO_SAMPLE_LAST
        Dim errcode As Integer
        errcode = QISRAudioWrite(Sessionid, Nothing, 0, status, ep_status, rec_status)
        If (errcode <> 0) Then
            Debug.Print("**write end fail")
            QISRSessionEnd(Sessionid, String.Empty)
            Return
        End If
        Dim waittime As Integer = 1000


        '获取识别内容
        If (rec_status = RecogStatus.ISR_REC_STATUS_SUCCESS) Then


            Dim p As IntPtr = QISRGetResult(Sessionid, rslt_status, waittime, errcode)
            If (p <> IntPtr.Zero) Then


                Dim tmp As String = Marshal.PtrToStringAnsi(p)


                'If (Not waveEventCallBack Is Nothing) Then
                '    waveEventCallBack(1, tmp)
                'End If


                '  RaiseEvent WaveTxtEvent(tmp)   '******事件 
                System.Console.WriteLine("结束会话返回部分结果！:" + tmp)
            End If
        End If






        Dim loop_count = 0
        While (rslt_status <> RecogStatus.ISR_REC_STATUS_SPEECH_COMPLETE And loop_count < 300)


            Dim p As IntPtr = QISRGetResult(Sessionid, rslt_status, waittime, errcode)
            If (p <> IntPtr.Zero) Then


                Dim tmp As String = Marshal.PtrToStringAnsi(p)


                'If (Not waveEventCallBack Is Nothing) Then
                '    If (tmp <> "。") Then
                '        waveEventCallBack(1, tmp)
                '    End If
                'End If


                '  RaiseEvent WaveTxtEvent(tmp)   '******事件 
                System.Console.WriteLine("传完音频后返回结果！:" + tmp)
            End If
            If (errcode <> 0) Then
                Debug.Print("end session qisrgetresult " & errcode.ToString)
                Exit While
            End If


            Threading.Thread.Sleep(150)
            loop_count = loop_count + 1
        End While
        '结束对话




        QISRSessionEnd(Sessionid, String.Empty)
    End Sub




    '最后一步 登出
    Public Sub Logout()


        '登出
        MSPLogout()
    End Sub



End Class

若要使用语音识别，请将APPID ，跟DLL 文件换成你自己的

资源地址：https://download.csdn.net/download/qq_39239990/10384854   开源