forked from len0rd/rockbox
2 small fixes: * List SAPI5 voices with their actual names, noth with their descriptio. * Actually use the passed speed for SAPI4.
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@16359 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
parent
66827f3a18
commit
6af732d17a
1 changed files with 2 additions and 2 deletions
|
|
@ -108,7 +108,7 @@ If bSAPI4 Then
|
||||||
oTTS.Select nMode
|
oTTS.Select nMode
|
||||||
|
|
||||||
' Speed selection
|
' Speed selection
|
||||||
If sSpeed <> "" Then oSpVoice.Speed = sSpeed
|
If sSpeed <> "" Then oTTS.Speed = sSpeed
|
||||||
Else ' SAPI5
|
Else ' SAPI5
|
||||||
' Create SAPI5 object
|
' Create SAPI5 object
|
||||||
Set oSpVoice = CreateObject("SAPI.SpVoice")
|
Set oSpVoice = CreateObject("SAPI.SpVoice")
|
||||||
|
|
@ -123,7 +123,7 @@ Else ' SAPI5
|
||||||
For Each nLangID in LangIDs(sLanguage)
|
For Each nLangID in LangIDs(sLanguage)
|
||||||
sSelectString = "Language=" & Hex(nLangID)
|
sSelectString = "Language=" & Hex(nLangID)
|
||||||
For Each oVoice in oSpVoice.GetVoices(sSelectString)
|
For Each oVoice in oSpVoice.GetVoices(sSelectString)
|
||||||
WScript.StdErr.Write oVoice.GetDescription & ","
|
WScript.StdErr.Write oVoice.GetAttribute("Name") & ","
|
||||||
Next
|
Next
|
||||||
Next
|
Next
|
||||||
WScript.StdErr.WriteLine
|
WScript.StdErr.WriteLine
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue