Sub Service_Create
sr.Initialize("SpeechRecognition")
isreginitialized=True
i.Initialize("android.speech.action.VOICE_SEARCH_HANDS_FREE", "")
i.PutExtra("android.speech.extra.LANGUAGE_MODEL", "free_form")
i.PutExtra("calling_package", "test.package")
i.PutExtra("android.speech.extra.MAX_RESULTS", 5)
i.PutExtra("android.speech.extra.LANGUAGE", "de")
obj= sr.CreateRecognizeIntent2(i)
End Sub
Sub Service_Start (StartingIntent As Intent)
StartingIntent.Action="android.speech.action.VOICE_SEARCH_HANDS_FREE"
StartListening
End Sub
Sub Service_Destroy
End Sub
Sub StartListening
sr.StartListening(obj)
Log("----- Started -----")
End Sub
Sub StopListening
sr.StopListening
isreginitialized=False
End Sub