上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
xmzyq
註冊時間: 2005-11-22 文章: 2
第 1 樓
|
發表於: 星期四 十二月 22, 2005 7:22 pm 文章主題: 让VFP发音 |
|
|
我想做一个让VFP,根据表中的某一字段如(A012),动态地对表中同一字段不同记录符合条件的记录发音,例如:记录1,记录3的字段,A012,B345,读音报号,请大家帮我想办法 |
|
回頂端 |
|
|
thornbird313
註冊時間: 2004-12-14 文章: 23
第 2 樓
|
發表於: 星期五 十二月 23, 2005 12:41 am 文章主題: |
|
|
假设表Table字段A102中的记录如下:
A102
C00001
C00002
C00003
C00004
C00005
......
C00125
SELECT A012 FROM Table1 WHERE VAL(RIGHT(ALLTRIM(A012), 2)) > 50 INTO ARRAY laArray
IF _TALLY > 0
loVoice = CREATEOBJECT("Sapi.Spvoice")
FOR i = 1 TO _TALLY
loVoice.Speak(laArray[i])
ENDIF
ENDIF
需要安装MS OFFICE。 |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 3 樓
|
發表於: 星期五 十二月 23, 2005 10:35 am 文章主題: |
|
|
參考 sapi 白皮書 : http://www.aksel.com/whitepapers/sapi.htm
參考: http://www.foxite.com/archives/sapi_with_vfp_0000043914.htm
代碼: |
loVoice = CREATEOBJECT("Sapi.Spvoice")
*loVoice.speak("Hello World")
lnIndex = 0
For Each lV In loVoice.GetVoices
lcDescription = lV.GetDescription
? lcDescription, lnIndex
loVoice.voice = loVoice.GetVoices.Item(lnIndex)
if lnIndex=5
loVoice.speak("哈罗世界")
else
loVoice.speak("Hello World")
endif
lnIndex = lnIndex + 1
Endfor
* play wav file
* loVoiceEngine.speak("c:\test\mywav.wav", 1+4)
|
_________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 4 樓
|
發表於: 星期三 十二月 28, 2005 11:33 am 文章主題: |
|
|
garfield
你的壓寶箱還真是多多阿 _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 5 樓
|
|
回頂端 |
|
|
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 6 樓
|
發表於: 星期三 十二月 28, 2005 2:53 pm 文章主題: |
|
|
微軟真是偏心
僅提供簡體中文的語音類別 _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2157
第 7 樓
|
發表於: 星期三 十二月 28, 2005 3:02 pm 文章主題: |
|
|
我有試過傳簡體中文來發音, 但却不行,
傳繁體中文來發有音, 大部份可以, 但有時音不準, 有些字它無法辨識
我想可能是vfp 傳給它的參數不是unicode的關係吧. _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
Ruey
註冊時間: 2003-03-12 文章: 1698 來自: tunglo
第 8 樓
|
發表於: 星期三 十二月 28, 2005 10:07 pm 文章主題: |
|
|
你是在繁體環境傳入簡體的吧∼
那樣可不行∼∼∼ _________________ #############################
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
學會VFP使用者社區的搜尋,Code才會更有趣~
############################# |
|
回頂端 |
|
|
aqiang
註冊時間: 2004-02-28 文章: 26
第 9 樓
|
發表於: 星期四 一月 19, 2006 11:09 am 文章主題: 下載後安裝 |
|
|
下載最新版的 Microsoft Text-to-Speech Package:
到 http://www.microsoft.com/reader/downloads/pc.asp
的 MSReaderSetupUSA.exe (約 4 MB)
http://www.microsoft.com/reader/.../downloads/tts.asp
的 ReaderTTSInstallENG.exe (約 6 MB)
本來只有一個人發音 現在變成三個人發音 如何選擇讓某個人發音 去掉兩次發音 _________________ ★★★隨緣緣隨來 知福福常在 來自阿強的祝福★★★ |
|
回頂端 |
|
|
|