任何人都知道如何编码语音识别,微软语音识别将检测设置字....任何参考我已经把所有的代码,可以使识别,但知道如何编码微软语音识别将检测设置字....语音识别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