如何PB调用SAPI使文本转换成wav文件？？

fmmugy 2012-03-21 01:48:22

...全文

318 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

fmmugy 2012-03-27

打赏
举报

objFileStream.Format.Type = "6" //"SAFT8kHz16BitMono"

// Standard PCM wave formats
SAFT8kHz8BitMono = 4
SAFT8kHz8BitStereo = 5
SAFT8kHz16BitMono = 6
SAFT8kHz16BitStereo = 7
SAFT11kHz8BitMono = 8
SAFT11kHz8BitStereo = 9
SAFT11kHz16BitMono = 10
SAFT11kHz16BitStereo = 11
SAFT12kHz8BitMono = 12
SAFT12kHz8BitStereo = 13
SAFT12kHz16BitMono = 14
SAFT12kHz16BitStereo = 15
SAFT16kHz8BitMono = 16
SAFT16kHz8BitStereo = 17
SAFT16kHz16BitMono = 18
SAFT16kHz16BitStereo = 19
SAFT22kHz8BitMono = 20
SAFT22kHz8BitStereo = 21
SAFT22kHz16BitMono = 22
SAFT22kHz16BitStereo = 23
SAFT24kHz8BitMono = 24
SAFT24kHz8BitStereo = 25
SAFT24kHz16BitMono = 26
SAFT24kHz16BitStereo = 27
SAFT32kHz8BitMono = 28
SAFT32kHz8BitStereo = 29
SAFT32kHz16BitMono = 30
SAFT32kHz16BitStereo = 31
SAFT44kHz8BitMono = 32
SAFT44kHz8BitStereo = 33
SAFT44kHz16BitMono = 34
SAFT44kHz16BitStereo = 35
SAFT48kHz8BitMono = 36
SAFT48kHz8BitStereo = 37
SAFT48kHz16BitMono = 38
SAFT48kHz16BitStereo = 39

fmmugy 2012-03-27

打赏
举报

oleobject objFileStream
objFileStream = CREATE OLEObject
objFileStream.ConnectToNewObject("SAPI.SpFileStream")
objFileStream.Format.Type = "6" //"SAFT8kHz16BitMono"
objFileStream.Open('d:\test.wav', 3, False)
mytts.allowAudioOutputFormatChangesOnNextSet = False
mytts.AudioOutputStream = objFileStream
mytts.speak(mle_read.text,1)
mytts.WaitUntilDone(-1)
objFileStream.Close()

VB调用的方法 API相关问题

Delphi调用MS SAPI自由朗读英文的示例程序源代码