[..] Speech Recognition - Grammar

[mdanielm]

Bonjour,

Je cherche à démarrer dans SAPI 5.4
Très modestement je voudrais créer une grammaire qui reconnait un seul mot ('rouge')
dans un contexte de reconnaissance Inproc.
Problème: sous Windows 8.1, le code ci-dessous reste sourd!
Si, par hasard, quelqu'un de compétent passe par là, merci d'avance.

► Afficher le texte

Code : Tout sélectionner

; ReconnaîtreUnMot.au3
; Si l'ordi a un micro (!) dites le mot "rouge".

HotKeySet("^q","quitter")
HotKeySet("{ESC}", "quitter")

; Contexte de reconnaissance vocale, événements, moteur:
    Global $RC = ObjCreate("SAPI.SpInProcRecoContext") ; objet contexte inProc
        if @error then Erreur(@error, "-reco 1")
    Global $events = ObjEvent($RC, "RC_")        ; "RC_" = préfixe des événements
        if @error then Erreur(@error, "-reco 2")
    Global $moteur = $RC.Recognizer
        if @error then Erreur(@error, "-reco 3")

; Entrée audio
    Global $Category = ObjCreate("SAPI.SpObjectTokenCategory")
        if @error then Erreur(@error, "-audio 1")
    Global $key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Speech\AudioInput\TokenEnums\MMAudioIn\"
        if @error then Erreur(@error, "-audio 2")
    $Category.SetId($key)
        if @error then Erreur(@error, "-audio 3")

    Global $Token = ObjCreate("SAPI.SpObjectToken")
        if @error then Erreur(@error, "-audio 4")
    $Token.SetId($key)
        if @error then Erreur(@error, "-audio 5")
    $moteur.AudioInput = $Token
        if @error then Erreur(@error, "-audio 6")

; Grammaire
    Global $grammar = $RC.CreateGrammar(0)
        if @error then Erreur(@error, "-gram 1")
    Global $gRules = $grammar.Rules  ;collection des règles: pour le moment aucune
        if @error then Erreur(@error, "-gram 2")
    Global $gRule = $gRules.Add("regle1", 1) ; nom de la règle / attribut TopLevel / id (opt)
        if @error then Erreur(@error, "-gram 3")
    Global $state = $gRule.InitialState()
        if @error then Erreur(@error, "-gram 4")
    $state.AddWordTransition( null, "rouge"," ")   ; DestinationState / words / séparateur " "
        if @error then Erreur(@error, "-gram 5")


While true
    Sleep(1000)
    ;Allow the Audio In to finalize processing on the last 5 second capture
    $RC.Pause

    ;Resume audio in processing: sinon il ne le fait qu'une fois
    $RC.Resume

    ;Reset event function allocation (what is this? I think its garbage collection or something, needs
    ;UTILE ?
    $events = ObjEvent($RC, "RC_")
WEnd

exit


Func Erreur($err, $txt)
    ConsoleWrite("Erreur n°" & $err & " dans " & $txt & @crlf)
    exit
EndFunc

Func RC_FalseRecognition($StreamNumber, $StreamPosition, $Result)
    ; Vient ici seulement quand la phrase "rouge" est faussement reconnu
    ConsoleWrite(" pas reconnu: " &  $Result.PhraseInfo.GetText  & @crlf)
EndFunc

Func RC_Recognition($StreamNumber, $StreamPosition, $RecognitionType, $Result)
    ; Vient ici seulement quand la phrase "rouge" est reconnu
    ConsoleWrite($Result.PhraseInfo.GetText  & @crlf)
EndFunc

func quitter()
    Exit
EndFunc
 

[timmalos]

Qu'entends tu par "reste sourd"? Premièrement on est d'accord que ton micro fonctionne correctement, que tu as deja testé un script d'exemple simple avec SAPI 5.4 fonctionnel avant de te lancer dans ta sauce?
(Pour valider matériel Et logiciel avant de démarrer le scripting)

[mdanielm]

Salut,
Pour tester le micro, je remplace ou rajoute après la section Grammaire, les deux lignes:
$grammar.Dictationload
$grammar.DictationSetState(1)
et j'obtiens une grammaire qui reconnaît n'importe quel mot .... avec très peu de réussite.
Avec ces deux mon micro fonctionne, mais sans ces deux lignes le programme reste sourd, c'est-à-dire qu'il ne répond rien au mot que je prononce.
Si je dis 'rouge' il devrait activer le gestionnaire de l'événement Recognition et si je dis 'vert' il devrait activer le gestionnaire FalseRecognition. Or, il n'exécute ni l'un ni l'autre, comme si il manquait une activation de la grammaire. J'ai bien lu toute la doc SAPI 5.4 de Microsoft et l'exemple est issu de la doc mais à l'origine il est conçu pour VB, sans doute VB6.
J'ai déjà utilisé le concept de grammaire en C#, c'est très puissant et passionnant. Je n'arrive pas à démarrer en AutoIt.
Merci quand même.

[timmalos]

Qu-en est il de mon script de test disponible ici :
http://www.autoitscript.fr/forum/viewto ... sance+sapi