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:
Jens Arnold 2008-02-20 22:09:53 +00:00
parent 66827f3a18
commit 6af732d17a

View file

@ -108,7 +108,7 @@ If bSAPI4 Then
oTTS.Select nMode
' Speed selection
If sSpeed <> "" Then oSpVoice.Speed = sSpeed
If sSpeed <> "" Then oTTS.Speed = sSpeed
Else ' SAPI5
' Create SAPI5 object
Set oSpVoice = CreateObject("SAPI.SpVoice")
@ -123,7 +123,7 @@ Else ' SAPI5
For Each nLangID in LangIDs(sLanguage)
sSelectString = "Language=" & Hex(nLangID)
For Each oVoice in oSpVoice.GetVoices(sSelectString)
WScript.StdErr.Write oVoice.GetDescription & ","
WScript.StdErr.Write oVoice.GetAttribute("Name") & ","
Next
Next
WScript.StdErr.WriteLine