Vb net SAPI spvoiceを使用したオーディオファイルへのテキスト

Question

私はMicrosoft .Net Technologiesの新機能です。テキストを音声とテキストに変換するプロジェクトに取り組んでいます。

Dim SAPI = CreateObject("SAPI.spvoice") 
Private Sub Speak_Click(sender As Object, e As EventArgs) Handles Speak.Click 

    SAPI.Speak(TextBox1.Text) 

End Sub 

上記は私のコードです。このテキストをオーディオファイルに保存する方法を教えてください。 最新の2k17 .netテクノロジを使用しています。 おかげ

Answer 1

次のようにあなたは.WAVファイルにSAPIの出力を保存することができます

1. 作成し、SpFileStream.Open 方法を使用してストリームとして.WAVファイルを開きます。
2. このファイルストリームをSpVoice.AudioStreamプロパティに割り当てます。

ここでは例です：

Const SAFT48kHz16BitStereo = 39 
Const SSFMCreateForWrite = 3 ' Creates file even if file exists and so destroys or overwrites the existing file 

Dim oFileStream, oVoice 

Set oFileStream = CreateObject("SAPI.SpFileStream") 
oFileStream.Format.Type = SAFT48kHz16BitStereo 
oFileStream.Open "C:\Work\Sample.wav", SSFMCreateForWrite 

Set oVoice = CreateObject("SAPI.SpVoice") 
Set oVoice.AudioOutputStream = oFileStream 
oVoice.Speak "Hello world", 3 

oVoice.WaitUntilDone(10000) 

oFileStream.Close 

https://stackoverflow.com/a/20537139/1744176