dll for speech recognition
Hi,
can anyone tell me If there is a way I can make a dll of the speech recognition functions. When written in form on form load when a word is spoken all these functions get triggered automatically from Start Sound and result phrase is got either in RC_FalseRecognition or RC_Recognition and ends at RC_SoundEnd.
How can I have the same written in a class module so that can make it a dll and have it triggerd when somehting is spoken??
Private Sub RC_FalseRecognition(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, ByVal Result As SpeechLib.ISpeechRecoResult)
Private Sub RC_Recognition(ByVal StreamNumber As Long, _
ByVal StreamPosition As Variant, _
ByVal RecognitionType As SpeechLib.SpeechRecognitionType, _
ByVal Result As SpeechLib.ISpeechRecoResult)
Private Sub RC_StartStream(ByVal StreamNumber As Long, ByVal StreamPosition As Variant)
myreco = Val(StreamNumber)
Private Sub RC_RecognizerStateChange(ByVal StreamNumber As Long, _
ByVal StreamPosition As Variant, _
ByVal NewState As SpeechLib.SpeechRecognizerState)
' Sound End event handler
Private Sub RC_SoundEnd(ByVal StreamNumber As Long, _
ByVal StreamPosition As Variant)
' Sound Start event handler
Private Sub RC_SoundStart(ByVal StreamNumber As Long, _
ByVal StreamPosition As Variant)
' Recognition For Other Context event handler
Private Sub RC_RecognitionForOtherContext(ByVal StreamNumber As Long, _
ByVal StreamPosition As Variant)
' Phrase Start event handler
Private Sub RC_PhraseStart(ByVal StreamNumber As Long, _
ByVal StreamPosition As Variant)
' Adaption event handler
Private Sub RC_Adaption(ByVal StreamNumber As Long, ByVal StreamPosition As Variant)
' Audio Level event handler
Private Sub RC_AudioLevel(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, ByVal AudioLevel As Long)
' Bookmark event handler
Private Sub RC_Bookmark(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, ByVal EventData As Variant, ByVal Options As SpeechLib.SpeechBookmarkOptions)
' End Stream event handler
Private Sub RC_EndStream(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, ByVal StreamReleased As Boolean)
' Engine Private event handler
Private Sub RC_EnginePrivate(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, ByVal lParam As Variant)
' Hypothesis event handler
Private Sub RC_Hypothesis(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, ByVal Result As SpeechLib.ISpeechRecoResult)
' Interference event handler
Private Sub RC_Interference(ByVal StreamNumber As Long, ByVal StreamPosition As Variant, ByVal Interference As SpeechLib.SpeechInterference)