You are reading help file online using chmlib.com
|
Interface: ISpeechRecognizer
The GetAudioInputs method returns a selection of the available audio input devices.
Audio input devices (sound cards, for example) are stored in the speech configuration database as a series of tokens, with each token representing one audio input device. GetAudioInputs retrieves all available audio tokens. The returned list is an ISpeechObjectTokens object. Additional or more detailed information about the tokens is available in methods associated with ISpeechObjectTokens.
The token search may be further refined using the RequiredAttributes and OptionalAttributes search attributes. Only tokens matching the specified RequiredAttributes search attributes are returned. Of those tokens matching the RequiredAttributes key, OptionalAttributes lists devices in the order matching OptionalAttributes. If no search attributes are offered, all tokens are returned. If no audio devices match the criteria, GetAudioInputs returns an empty selection, that is, an ISpeechObjectTokens collection with an ISpeechObjectTokens::Count property of zero.
See Object Tokens and Registry Settings White Paper for a list of SAPI 5-defined attributes.
SpeechRecognizer.GetAudioInputs(
[RequiredAttributes As String = ""],
[OptionalAttributes As String = ""]
) As ISpeechObjectTokens
An ISpeechObjectTokens collection containing the selected audio input tokens.
The format of selection criteria may either be Value or "Attribute = Value". Values may be excluded by "Attribute != Value".
This code sample demonstrates the GetAudioInputs method. After creating an instance for a recognizer, GetAudioInputs polls the computer for available audio input tokens and displays the results.
To run this code, create a form with the following control:
Paste this code into the Declarations section of the form.
The Form_Load procedure creates the recognizer.
Private Sub Form_Load()
Dim SharedRecognizer As SpSharedRecognizer
Set SharedRecognizer = CreateObject("SAPI.SpSharedRecognizer")
Dim theRecognizers As ISpeechObjectTokens
Set theRecognizers = SharedRecognizer.GetAudioInputs
Dim i As Long
Dim tokenObject As SpObjectToken
Label1.Caption = ""
For i = 0 To theRecognizers.Count - 1
Set tokenObject = theRecognizers.Item(i)
Label1.Caption = Label1.Caption & tokenObject.GetDescription & vbCrLf
Next i
End Sub
You are reading help file online using chmlib.com
|