WinBatch Tech Support Home

Database Search

If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.

TechHome

SAPI

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Speech to Text

 Keywords: SAPI Text Speech Voice  

; Translation of the following SAPI VB example:
; http://msdn.microsoft.com/en-us/library/ee125184(VS.85).aspx

; Tested on Windows 7 system with good USB mic.

; Event handler - displays spoken text.
#DefineFunction Recognition(StreamNumber, StreamPosition, RecognitionType, Result)
   Display( 2, "Speach to Text Result",  Result.PhraseInfo.GetText )
#EndFunction

objRC = ObjectCreate("SAPI.SpInProcRecoContext")
objRecognizer = objRC.Recognizer
ObjectEventAdd( objRC, "Recognition", "Recognition" )
objmyGrammar = objRC.CreateGrammar
SGDSActive   = 1
objmyGrammar.DictationSetState(SGDSActive)

objCategory = ObjectCreate("SAPI.SpObjectTokenCategory")
strSpeechCategoryAudioIn = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\AudioInput"
objCategory.SetId(strSpeechCategoryAudioIn)

objToken = ObjectCreate("SAPI.SpObjectToken")
objToken.SetId(objCategory.Default())
objRecognizer.AudioInput = objToken

; Five seconds to say something.
Display( 5, "Speach to Text", "Say somthing in the next 5 seconds" )

Article ID:   W18181
Filename:   Speech to Text.txt
File Created: 2010:09:21:10:38:40
Last Updated: 2010:09:21:10:38:40