求VFP文字转MP3源代码

[此贴子已经被作者于2015-10-16 18:14编辑过]

文字可以直接朗读（语音），不用转MP3。

我想要一个文本文件的文字，直接转成MP3

用SAPI的SpVoice、SpFileStream先生成wav，再用调用外部命令（lame.exe）编码生成mp3

*!*    文字到 Wav 文件并朗读的 TTS 示例

loStream = Createobject("SAPI.SPFileStream")
loVoice = Createobject("Sapi.Spvoice")

** 创建 Wav 文件
Delete File SampleVoice.wav
loStream.Open("SampleVoice.wav", 3)

** Specify that the Audio from the voice is sent to the stream
loVoice.AudioOutputStream = loStream
loVoice.Voice = loVoice.GetVoices().Item(0)  && 我的(0)是英文男声 Microsoft Sam

loVoice.Speak("This is me Reading this Information.")
loStream.Close

** 重置输出流
loVoice.AudioOutputStream = .Null.

** 打开要朗读的 WAV 文件
loStream.Open("SampleVoice.wav")

** 更改其他人的发声
*!*    loVoice.Voice = loVoice.GetVoices("GENDER=male").Item(0)
loVoice.Voice = loVoice.GetVoices().Item(3)  && 我的(3)是中文女声，(0)可能是 Microsoft Sam
lovoice.speak("你好，我是团小组长，你好吗？Hello, the World.")
loVoice.SpeakStream(loStream)
loVoice.Speak("好的，Did that Really Sound Like Me?")

嘴张鱼来。

语音朗读有时挺有用的，能否将你的语音TTS传给我，谢谢！我的邮箱：w7802672@

SAPI，现在用的windows正常安装都有。

文字转语音的我学会了，我想要一个语音转文字的，代码怎么写？