音声合成-応用２

Windows Presentation Foundation Station

音声合成-応用２

応用１では、テキストボックスに入力された文字列を単純に読み上げるだけでしたが、この場合、不都合なども発生するので、これらの回避方法・拡張方法を説明します。

音声再生の不都合・拡張 bookmark

• .NETと記述されている場合に、どのように読みますか？開発関係の方なら、ドットネットと読むでしょうが、音声のLH Kenjiくんは、ネットとしか読んでくれません。
• 迷子のアナウンスのように、最初と最後にピンポンパンポーンのような音をつけたい。
• Vistaをビスタのスペルブイ・アイ・エス・ティー・エーを読ませたい。
• 文章の途中でLH KeinjiからLH Naokoにしたい。
• 読み上げ内容をファイルで保存したい。
• ファイル(SSML:Speech Synthesis Markup Language)より読み込んだ文章を読み上げたい。

などがあると思います。これらに対応することは可能なので、説明していきます。
SSML(Speech Synthesis Markup Language)については、別途、W3Cなどで公開されている情報を参考にして頂ければと思います。

PromptBuilder? bookmark

PromptBuilder?クラスを利用することに、対応するSSML形式のドキュメントを生成します。これにより、読み上げる内容を拡張することが可能になります。

AppendTextWithAlias? bookmark

通常の読み方とは別の読み方をしたい時に利用します。

Dim synth As New SpeechSynthesizer Dim pb As New PromptBuilder pb.AppendTextWithAlias(".NET", "dot net") synth.Speak(pb)

AppendAudio? bookmark

音声ファイルを追加することができます。

Dim synth As New SpeechSynthesizer Dim pb As New PromptBuilder With pb '迷子のお知らせ .AppendAudio("pinponpanpon1s.wav") .AppendText("迷子のお知らせです。") .AppendBreak(New TimeSpan(5000)) .AppendText("青色のセーターに、茶色のスカートをお召しになられた、") .AppendBreak(New TimeSpan(5000)) .AppendText("女の子を、お預かりしております。") .AppendBreak(New TimeSpan(5000)) .AppendText("お心あたりの方は、お近くのサービスカウンターへ") .AppendText("お越しください。") .AppendBreak(New TimeSpan(5000)) .AppendAudio("pinponpanpon1e.wav") End With synth.Speak(pb)

AppendBreak?メソッドは、一定時間待機させるメソッドです。

AppendTextWithHint? bookmark

読み上げるテキストを、特定の方法を指定して読み上げます。

Dim synth As New SpeechSynthesizer Dim pb As New PromptBuilder pb.AppendTextWithHint("Vista", SayAs.SpellOut) synth.Speak(pb)

StartVoice?、EndVoice? bookmark

音声を切り替えます。

Dim synth As New SpeechSynthesizer Dim pb As New PromptBuilder With pb ''Microsoft Anna .StartVoice("Microsoft Anna") .AppendText("My name is Microsoft Anna.") .EndVoice() .AppendBreak(New System.TimeSpan(0, 0, 1)) ''LH Kenji .StartVoice("LH Kenji") .AppendText("私の名前は、けんじ です。") .EndVoice() .AppendBreak(New System.TimeSpan(0, 0, 1)) ''LH Naoko .StartVoice("LH Naoko") .AppendText("私の名前は、なおこ です。") .EndVoice() .AppendBreak(New System.TimeSpan(0, 0, 1)) End With synth.Speak(pb)

SetOutputToWaveFile? bookmark

読み上げ内容をWaveファイルに保存します。
通常は、SetOutputToDefaultAudioDevice?の標準で指定された出力先(スピーカ)ですが、SetOutputToWaveFile?メソッドを利用することにより、ファイルに保存することができます。

Dim synth As New SpeechSynthesizer Dim pb As New PromptBuilder pb.AppendText("Hello World") synth.SetOutputToWaveFile("C:\sample.wav") synth.Speak(pb)

SpeakSsml?、SpeakSsmlAsync? bookmark

SSML(Speech Synthesis Markup Language)を読み込む事によって、読み上げることも可能です。

<speak version="1.0" xmlns="http://www.w3.org/2001/10/synthesis" xml:lang="ja-JP"> <voice name="LH Naoko"> <audio src="pinponpanpon1s.wav" /> 迷子のお知らせです。 <break time="0.5ms" /> 青色のセーターに、茶色のスカートをお召しになられた、 <break time="0.5ms" /> 女の子を、お預かりしております。 <break time="0.5ms" /> お心あたりの方は、お近くのサービスカウンターへお越しください。 <break time="0.5ms" /> <audio src="pinponpanpon1e.wav" /> </voice> </speak>

上記のようなSSML(sample.xml)を読み上げるには、

Dim synth As New SpeechSynthesizer Dim xd As New Xml.XmlDocument xd.Load("sample.xml") synth.SpeakSsml(xd.OuterXml)

のようにします。
PromptBuilder?クラスを利用して作成したドキュメントをSSMLで保存したい場合は、ToXml?メソッドで可能です。

または、FilePrompt?クラスを利用してテキスト、SSML、オーディオファイルを読み込む事も可能です。

Dim synth As New SpeechSynthesizer Synth.Speak(New FilePrompt("sample.xml", SynthesisMediaType.Ssml))

まとめ bookmark

音声合成(読み上げ)の技術は昔よりあり、真新しい技術ではありませんが、.Net Framework 3.0よりSystem.Speech名前空間が提供されているので、容易にプログラムに機能を追加することができます。
SDKのドキュメントなど日本語情報が不足しているので、細かなところまで解説できていませんが、「昔と比べたら簡単に読み上げができるようになった」と思って頂ければと思います。