调用TTS5.0!

Question

有范例的，例如：
Dim WithEvents Voice As SpVoiceVoice.Speak "Hello", m_SVSFDefaultSpeak第一个参数设定朗读的文本，第二个参数是朗读选项，具体参考SAPI SDK 5.1的帮助

Answer 1

引用Microsoft Speech Object Library，如果你安装了TTS 5.0 SDK 应该有范例的。

Answer 2

没装什么SDK呀。没装SDK我还不照样调用TTS4？我要想知道引用哪个文件？

Answer 3

为啥不下载 Microsoft Speech SDK 5.1 (内有文档及 VB6 例程)
最重要的是由于有了简体中文包,就可以说中文了:http://msdn.microsoft.com/code/sample.asp?url=/msdn-files/027/000/781/msdncompositedoc.xmlSpeech SDK 5.1 (68 MB) 
http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51.exe5.1 Language Pack (81.5 MB) 
http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51LangPack.exeRedistributables (128 MB) 
http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/speechsdk51MSM.exeDocumentation (2.28 MB) 
http://download.microsoft.com/download/speechSDK/SDK/5.1/WXP/EN-US/sapi.chmOption Explicit
Dim WithEvents x As SpeechLib.SpVoice
Private Sub Combo1_Click()
Set x.Voice = x.GetVoices.Item(Combo1.ListIndex)
End Sub
Private Sub Command1_Click()
If VBA.Len(VBA.Trim(Text1.Text & "")) > 0 Then
   Command1.Enabled = False
   x.Speak Text1.Text & ""
End If
End Sub
Private Sub Form_Load()
Text1.Text = "Hello World!"
Set x = New SpeechLib.SpVoice
Dim i As Long
For i = 0 To x.GetVoices.Count - 1
    Combo1.AddItem x.GetVoices.Item(i).GetDescription
Next i
Combo1.ListIndex = 0
End Sub
Private Sub x_EndStream(ByVal StreamNumber As Long, ByVal StreamPosition As Variant)
Command1.Enabled = True
End Sub

Answer 4

TO：playyuer(女㊣爱)　Speech SDK 5.1 (68 MB) 
5.1 Language Pack (81.5 MB) 
Documentation (2.28 MB) 
我昨天下载了
Redistributables (128 MB) 不能下载但是有个问题好象只能识别英文，没有办法读简体中文

Answer 5

Set x.Voice = x.GetVoices.Item(0)就是说中文

Answer 6

先安装
Speech SDK 5.1 (68 MB) 
5.1 Language Pack (81.5 MB) 

Answer 7

可以了，谢谢你了
playyuer(女㊣爱)　你是版主吗？

Answer 8

我发布出去不会也有这么大吧?一共上百M,做好调用的发出去后要命啊?
我看TTS5的普通安装包才十M左右.