ソフトウエア

ボイス君のテキストスピーチ２の音声合成OCX使用方法

Visual Basic6.0を例にボイス君のテキストスピーチ２音声合成OCXの使用方法を簡単にご説明致します。

１．アプリケーションに音声合成OCXを追加する

(1)メニューから“コンポーネント”を選択します。

(2)“EleganTalk ActiveX コントロールモジュール”を選択します。

(3)ツールボックスに音声合成OCXが追加されます。

(4)音声合成OCXをフォームに配置します。

２．テキストを読み上げる

テキストを読み上げるにはTextToDeviceメソッドを使用します

Private Sub Command1_Click()
        Dim ret As Long

        ret = EleganTalk1.TextToDevice(Text1.Text)
        If Not ret = 0 Then
              MsgBox "TextToDevice Error"
        End If
End Sub

上のプログラムではテキスト読み上げ中に再度読み上げボタンを押すとTextToDeviceメソッドが“音声合成エンジンがビジー状態”のエラーを返すため、エラーメッセージが表示されます。

TextToDeviceメソッド実行前にAudioStatusGetメソッドで音声合成ステータスを確認すれば音声合成エンジンがビジー状態であれば実行しないようにすることが可能です。

また、読み上げ終了時にはEVAUDIOENDイベントが発生しますので、これを使って読み上げ終了まで読み上げボタンが押せないようにGUIを作成することも可能です。

Private Sub Command1_Click()
       Dim sts As Integer
       Dim ret As Long

       sts = EleganTalk1.AudioStatusGet()
       If sts = 1 Then
            Exit Sub
       End If
       ret = EleganTalk1.TextToDevice(Text1.Text)
       If Not ret = 0 Then
             MsgBox "TextToDevice Error"
       End If
End Sub

３．設定を変更する

ピッチを変更するにはPitchプロパティを使用します。
プログラム例ではフォームロード時に話者、音量、ピッチ、話速、抑揚を一括で設定しています。

Private Sub Form_Load()
       EleganTalk1.SpeakerName = "女性A22kHz高音質"
       EleganTalk1.Volume = 65535
       EleganTalk1.Pitch = 180
       EleganTalk1.Speed = 200
       EleganTalk1.Intonation = 2
End Sub

トップページ　戻る　