Ответ 1

Вы можете создавать настраиваемое обучение с использованием механизма SAPI (а не управляемого api)

Здесь ссылка о том, как это сделать (хотя и немного расплывчато)

Ответ 2

Конечно, можно обучить SAPI с помощью С#. вы можете использовать обломоки talklib вокруг SAPI для доступа к API-интерфейсам режима обучения из С#.here @Эрик Браун ответил на процедуру

• Создайте распознаватель inproc и привяжите соответствующий аудиовход.
• Убедитесь, что вы сохраняете аудио для своих распознаваний; вам это понадобится позже.
• Создайте грамматику, содержащую текст для обучения.

• Установите состояние грамматики для приостановки распознавателя при возникновении распознавания. (Это также помогает в обучении из аудиофайла.)

  Когда происходит распознавание:

• Получить распознанный текст и сохраненный звук.

• Создайте объект потока с использованием CoCreateInstance (CLSID_SpStream).
• Создайте обучающий аудиофайл с использованием ISpRecognizer:: GetObjectToken и ISpObjectToken:: GetStorageFileName и привяжите его к потоку (используя ISpStream:: BindToFile).
• Скопируйте сохраненный звук в объект потока.
• QI - объект потока для интерфейса ISpTranscript и используйте ISpTranscript:: AppendTranscript для добавления распознанного текста в поток.
• Обновите грамматику для следующего высказывания, возобновите распознаватель и повторите пока вы не закончите текст обучения.

Другим вариантом может быть обучение sapi один раз с желаемым выходом, затем получение профилей с кодом и перенос их в другие системы, следующий код Возвращает объект ISpeechObjectTokens.:

Метод GetProfiles возвращает выбор доступного пользователя речевые профили. Профили хранятся в конфигурации речи база данных как серия токенов, каждый маркер, представляющий один профиль. GetProfiles извлекает все доступные токены профиля. Возвращенный список - это объект ISpeechObjectTokens. Дополнительные или более подробная информация о токенах доступна в методах связанных с ISpeechObjectTokens. Поиск токена может быть дополнительно с помощью поиска RequiredAttributes и OptionalAttributes атрибутов. Только токены, соответствующие указанным RequiredAttributes возвращаются атрибуты поиска. Из тех токенов, которые соответствуют Ключ RequiredAttributes, OptionalAttributes перечисляет устройства в порядке соответствие необязательным атрибутам. Если нет атрибутов поиска, все возвращаются токены. Если аудиоустройства не соответствуют критериям, GetAudioInputs возвращает пустой выбор, то есть Коллекция ISpeechObjectTokens с ISpeechObjectTokens:: Count свойство нуля. См. "Значки объектов" и "Настройки реестра" . для списка атрибутов, определяемых SAPI 5.

Public SharedRecognizer As SpSharedRecognizer
Public theRecognizers As ISpeechObjectTokens

Private Sub Command1_Click()
    On Error GoTo EH

    Dim currentProfile As SpObjectToken
    Dim i As Integer
    Dim T As String
    Dim TokenObject As ISpeechObjectToken
    Set currentProfile = SharedRecognizer.Profile

    For i = 0 To theRecognizers.Count - 1
        Set TokenObject = theRecognizers.Item(i)

        If tokenObject.Id <> currentProfile.Id Then
            Set SharedRecognizer.Profile = TokenObject
            T = "New Profile installed: "
            T = T & SharedRecognizer.Profile.GetDescription
            Exit For
        Else
            T = "No new profile has been installed."
        End If
    Next i

    MsgBox T, vbInformation

EH:
    If Err.Number Then ShowErrMsg
End Sub

Private Sub Form_Load()
    On Error GoTo EH

    Const NL = vbNewLine
    Dim i, idPosition As Long
    Dim T As String
    Dim TokenObject As SpObjectToken

    Set SharedRecognizer = CreateObject("SAPI.SpSharedRecognizer")
    Set theRecognizers = SharedRecognizer.GetProfiles

    For i = 0 To theRecognizers.Count - 1
        Set TokenObject = theRecognizers.Item(i)
        T = T & TokenObject.GetDescription & "--" & NL & NL
        idPosition = InStrRev(TokenObject.Id, "\")
        T = T & Mid(TokenObject.Id, idPosition + 1) & NL
    Next i

    MsgBox T, vbInformation

EH:
    If Err.Number Then ShowErrMsg
End Sub

Private Sub ShowErrMsg()

    ' Declare identifiers:
    Dim T As String

    T = "Desc: " & Err.Description & vbNewLine
    T = T & "Err #: " & Err.Number
    MsgBox T, vbExclamation, "Run-Time Error"
    End

End Sub