[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2007/05/04(Fri) 16:17
投稿者名:どら
Eメール:
URL :
タイトル:
DirectSRコントロールについて
こんにちは。DirectSRコントロール Direct Speech Recognition について質問があります。

(1)
↓は私のコードです。
'hello'と発音して、'hello'と認識されたら'hello'とForm上にPrintされます。

*******

Private Sub Form_Load()
    
DirectSR1.GrammarFromString "[Grammar]" + vbNewLine + _
                                         "type=cfg" + vbNewLine + _
                                         "[<start>]" + vbNewLine + _
                                         "<start>=hello" + vbNewLine
      
DirectSR1.Activate

End Sub

Private Sub DirectSR1_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)
  
If Phrase = "hello" Then
   Print "hello"
Else

   Print "else"
End If
  
End Sub

*******

うまく動きません。'hello'と認識されていないなら、'else'と表示されるはずなのに
何も応答しません。(通常のサウンドレコーダーによる録音はできますので、録音機能の問題
ではないです。また、"C:WINDOWS\speech' には'Xlisten.dll'というdllが入っています。)
何かまずい点がありましたら、ご指摘ください。

(2)DirectSRコントロールによる「録音」についてですが、上記コードの場合、
DirectSR1.Activateの時点で、録音は始まっているのでしょうか?


よろしくお願いいたします。