任何人都知道如何編碼語音識別,微軟語音識別將檢測設置字....任何參考我已經把所有的代碼,可以使識別,但知道如何編碼微軟語音識別將檢測設置字....語音識別vb6
我的編碼:
Option Explicit
Dim rs As New ADODB.Recordset
Dim recognizer As SpInprocRecognizer
Dim MyGrammer As ISpeechRecoGrammar
Dim grammar As ISpeechRecoGrammar
Dim InputFile As SpeechLib.SpFileStream
Private Sub Form_Load()
Set RC = New SpInProcRecoContext
Set recognizer = RC.recognizer
Set myGrammar = RC.CreateGrammar
myGrammar.DictationSetState SGDSActive
Dim Category As SpObjectTokenCategory
Set Category = New SpObjectTokenCategory
Category.SetId SpeechCategoryAudioIn
Dim Token As SpObjectToken
Set Token = New SpObjectToken
Token.SetId Category.Default()
Set recognizer.AudioInput = Token
Out 888, 0
End Sub