vb中SpSharedRecoContext提示自动化错误实时错误‘-2147467259(80004005)’
蓝·皮皮机 2020-03-16 11:12:03 Public WithEvents RC As SpSharedRecoContext
Public myGrammar As ISpeechRecoGrammar
Private Sub Form_Load()
On Error GoTo err_Handler
Set RC = New SpSharedRecoContext
Set myGrammar = RC.CreateGrammar
myGrammar.DictationSetState SGDSActive
err_Handler:
MsgBox Err.Description
Stop
Resume
End Sub
Private Sub RC_Recognition(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal Result As SpeechLib.ISpeechRecoResult)
Text1.Text = Result.PhraseInfo.GetText
End Sub