音声合成-応用１

実際に音声合成を利用する場合には、さまざまな制御(音声・ボリューム・速度・読み方など)が必要になります。
ここでは、これら制御を行う方法を説明していきたいと思います。

利用できる音声 bookmark

利用できる音声(Microsoft Anna、LH Kenji、LH Naokoなど)を列挙するには、SpeechSynthesizer?.GetInstalledVoices?で行えます。

これにより、現在利用できる音声が分かるので、読み上げ時に設定して利用できます。

音量・音声の速度 bookmark

音量、音の速度も設定することが可能です。音量はあまり変更しないと思いますが、音の速度は案外変更するかもしれませんね。
各値は、Volume,Rateプロパティを利用します。(コードは割愛)

読み上げ(同期・非同期)・一時停止・再開 bookmark

読み上げするには、Speak(同期)、SpeakAsync?(非同期)メソッドを利用します。また、Pauseメソッドで読み上げの一時停止、Resumeメソッドで読み上げの再開を制御することができます。

イベント bookmark

読み上げ時には様々なイベントが発生しますが、まずは、SpeakStarted?、SpeakCompleted?イベントだけを説明します。
SpeakStarted?は読み上げが開始された時に発生し、SpeakCompleted?は読み上げが完了した場合に発生します。
(SpeakProgress?イベントなども発生しますが、日本語の場合のイベントを正常に処理できるのを、私が確認できていません。(フィードバック中))

サンプル bookmark

では実際にテキストボックスに入力された文字列を読み上げるアプリケーションを作成してみましょう。

画面レイアウト bookmark

上記画面レイアウトのXAMLは、以下のようになっています。

<Window x:Class="Window1"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    Title="DemoSpeechSynthesis1" Height="300" Width="449"
    >
  
  
  <Window.Resources>
    <Style TargetType="TextBlock" x:Key="def">
      <Setter Property="VerticalAlignment" Value="Center" />
      <Setter Property="HorizontalAlignment" Value="Right"/>
    </Style>
    <Style TargetType="TextBox">
      <Setter Property="VerticalAlignment" Value="Center" />
      <Setter Property="Margin" Value="2" />
    </Style>
    <Style TargetType="Slider">
      <Setter Property="VerticalAlignment" Value="Center" />
      <Setter Property="Margin" Value="2" />
    </Style>
    <Style TargetType="Button" x:Key="but">
      <Setter Property="VerticalAlignment" Value="Center" />
      <Setter Property="Margin" Value="10" />
    </Style>
  </Window.Resources>
  
  
  <Grid Margin="5">
    <Grid.ColumnDefinitions>
      <ColumnDefinition Width="130" />
      <ColumnDefinition Width="*" />
    </Grid.ColumnDefinitions>
    <Grid.RowDefinitions>
      <RowDefinition Height="30" />
      <RowDefinition Height="30" />
      <RowDefinition Height="30" />
      <RowDefinition Height="30" />
      <RowDefinition Height="*" />
    </Grid.RowDefinitions>
    
    
    <TextBlock Grid.Row="0" Grid.Column="0" Style="{StaticResource def}">
      音声の選択：</TextBlock>
    <ComboBox Grid.Row="0" Grid.Column="1" Name="cmbVoices" Margin="2"/>

<TextBlock Grid.Row="1" Grid.Column="0" Style="{StaticResource def}">
      再生するテキスト：</TextBlock>
    <TextBox Grid.Row="1" Grid.Column="1" Name="txtSpeekText" >
      読み上げるサンプルテキスト</TextBox>

<TextBlock Grid.Row="2" Grid.Column="0" Style="{StaticResource def}">
      ボリューム：</TextBlock>
    <Slider Grid.Row="2" Grid.Column="1" Name="sliderVolume" 
            Minimum="0" Maximum="100" TickFrequency="5"/>

<TextBlock Grid.Row="3" Grid.Column="0" Style="{StaticResource def}">
      音声の速度：</TextBlock>
    <Slider Grid.Row="3" Grid.Column="1" Name="sliderRate" 
            Minimum="-10" Maximum="10" TickFrequency="1"/>

<Grid Grid.Row="4" Grid.Column="1" Margin="5">
      <Grid.ColumnDefinitions>
        <ColumnDefinition Width="0.3*" />
        <ColumnDefinition Width="0.3*" />
        <ColumnDefinition Width="0.3*" />
      </Grid.ColumnDefinitions>
      <Button Grid.Column="0"  Name="btnSpeekStart" 
              Style="{StaticResource but}">再生</Button>
      <Button Grid.Column="1" Name="btnSpeekPause" 
              Style="{StaticResource but}">一時停止</Button>
      <Button Grid.Column="2" Name="btnSpeekCancel" 
              Style="{StaticResource but}">中止</Button>
    </Grid>

</Grid>  
</Window>

コード bookmark

Imports System.Speech.Synthesis

Partial Public Class Window1
    Inherits System.Windows.Window

Private WithEvents _synth As SpeechSynthesizer

Public Sub New()
        InitializeComponent()
        Me._synth = New SpeechSynthesizer
    End Sub

Protected Overrides Sub Finalize()
        Me._synth.Dispose()
        MyBase.Finalize()
    End Sub

Private Sub Window1_Loaded(ByVal sender As Object, _
            ByVal e As System.Windows.RoutedEventArgs) Handles Me.Loaded

''インストールされている音声の列挙
        For Each iv As InstalledVoice In Me._synth.GetInstalledVoices
            Me.cmbVoices.Items.Add(iv.VoiceInfo.Name)
        Next
        Me.cmbVoices.SelectedIndex = 0

''音量
        Me.sliderVolume.Value = Me._synth.Volume

''音声の速度
        Me.sliderRate.Value = Me._synth.Rate

''コントロール初期設定
        Me.btnSpeekStart.IsEnabled = True
        Me.btnSpeekPause.IsEnabled = False
        Me.btnSpeekCancel.IsEnabled = False

End Sub

Private Sub btnSpeekStart_Click(ByVal sender As Object, _
            ByVal e As System.Windows.RoutedEventArgs) Handles btnSpeekStart.Click
        ''再生(非同期)
        With Me._synth
            .SelectVoice(Me.cmbVoices.Text)
            .SetOutputToDefaultAudioDevice()
            .SpeakAsync(Me.txtSpeekText.Text)
        End With
    End Sub

Private Sub btnSpeekCancel_Click(ByVal sender As Object, _
            ByVal e As System.Windows.RoutedEventArgs) Handles btnSpeekCancel.Click
        ''中止
        If Not Me._synth.State = SynthesizerState.Ready Then
            Me._synth.SpeakAsyncCancelAll()
        End If
    End Sub

Private Sub btnSpeekPause_Click(ByVal sender As Object, _
            ByVal e As System.Windows.RoutedEventArgs) Handles btnSpeekPause.Click
        ''一時停止
        Select Case Me._synth.State
            Case SynthesizerState.Speaking
                Me.btnSpeekPause.Content = "再開"
                Me._synth.Pause()
            Case SynthesizerState.Paused
                Me.btnSpeekPause.Content = "一時停止"
                Me._synth.Resume()
        End Select
    End Sub

Private Sub cmbVoices_SelectionChanged(ByVal sender As Object, _
            ByVal e As System.Windows.Controls.SelectionChangedEventArgs) _
                    Handles cmbVoices.SelectionChanged
        ''利用する音声の設定
        If String.IsNullOrEmpty(Me.cmbVoices.Text) Then Exit Sub
        Me._synth.SelectVoice(Me.cmbVoices.Text)
    End Sub

Private Sub sliderRate_ValueChanged(ByVal sender As Object, _
            ByVal e As System.Windows.RoutedPropertyChangedEventArgs(Of Double)) _
                    Handles sliderRate.ValueChanged
        ''音声速度の設定
        Me._synth.Rate = CInt(Me.sliderRate.Value)
    End Sub

Private Sub sliderVolume_ValueChanged(ByVal sender As Object, _
            ByVal e As System.Windows.RoutedPropertyChangedEventArgs(Of Double)) _
                    Handles sliderVolume.ValueChanged
        ''ボリューム
        Me._synth.Volume = CInt(Me.sliderVolume.Value)
    End Sub

Private Sub _synth_SpeakCompleted(ByVal sender As Object, _
        ByVal e As System.Speech.Synthesis.SpeakCompletedEventArgs) _
        Handles _synth.SpeakCompleted
        Me.btnSpeekStart.IsEnabled = True
        Me.btnSpeekPause.IsEnabled = False
        Me.btnSpeekCancel.IsEnabled = False
    End Sub

Private Sub _synth_SpeakStarted(ByVal sender As Object, _
        ByVal e As System.Speech.Synthesis.SpeakStartedEventArgs) _
        Handles _synth.SpeakStarted
        Me.btnSpeekStart.IsEnabled = False
        Me.btnSpeekPause.IsEnabled = True
        Me.btnSpeekCancel.IsEnabled = True
    End Sub
End Class

こんな感じで、Windowsが提供している音声合成画面とほぼ同等の機能を実装することができます。

音声合成-応用１