如何使用SAPI在VB6中启用自由措辞语音识别

Dim WithEvents recognizer As SpInprocRecognizer
Dim WithEvents microphone As SpMMAudioIn

Private Sub Form_Load()
    Set recognizer = New SpInprocRecognizer
    Set microphone = New SpMMAudioIn
    recognizer.AudioInputStream = microphone
    recognizer.Recognizer.AudioFormat = SAFT16kHz16BitMono
    recognizer.Recognizer.State = SRSEnabled
End Sub

Private Sub recognizer_Recognition(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, ByVal RecognitionType As SpeechLib.SpeechRecognitionType, ByVal Result As SpeechLib.ISpeechRecoResult)
    Dim phrase As String
    phrase = Result.PhraseInfo.GetText
    MsgBox "识别结果：" & phrase
End Sub

Private Sub StartRecognition()
    recognizer.Recognizer.State = SRSActive
End Sub

Private Sub StopRecognition()
    recognizer.Recognizer.State = SRSInactive
End Sub