VFP 愛用者社區 首頁 VFP 愛用者社區
本討論區為 Visual Foxpro 愛用者經驗交流的地方, 請多多利用"搜尋"的功能, 先查看看有無前例可循, 如果還有不懂的再發問. 部份主題有附加檔案, 須先註冊成為社區居民才可以下載.
 
 常見問題常見問題   搜尋搜尋   會員列表會員列表   會員群組會員群組   會員註冊會員註冊 
 個人資料個人資料   登入檢查您的私人訊息登入檢查您的私人訊息   登入登入

让VFP发音

 
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區
上一篇主題 :: 下一篇主題  
發表人 內容
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 樓

發表發表於: 星期三 十二月 28, 2005 1:00 pm    文章主題: 引言回覆

是 google 比較厲害

阿特拉斯的軟體倉庫 有做成現成的text to speech軟體:
多文本的「中英文」真人語音朗讀軟體: http://alumni.nctu.edu.tw/~sinner/software/detail/ExtraSpeaker.htm

微軟網站
  下載最新版的 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)

_________________
利用>>搜尋<<的功能會比問的還要快得到答案.
回頂端
檢視會員個人資料 發送私人訊息 發送電子郵件
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)

本來只有一個人發音 現在變成三個人發音 如何選擇讓某個人發音 去掉兩次發音

_________________
★★★隨緣緣隨來 知福福常在 來自阿強的祝福★★★
回頂端
檢視會員個人資料 發送私人訊息
從之前的文章開始顯示:   
發表新主題   回覆主題    VFP 愛用者社區 首頁 -> VFP 討論區 所有的時間均為 台北時間 (GMT + 8 小時)
1頁(共1頁)

 
前往:  
無法 在這個版面發表文章
無法 在這個版面回覆文章
無法 在這個版面編輯文章
無法 在這個版面刪除文章
無法 在這個版面進行投票
無法 在這個版面附加檔案
無法 在這個版面下載檔案


Powered by phpBB © 2001, 2005 phpBB Group
正體中文語系由 phpbb-tw 維護製作