| 上一篇主題 :: 下一篇主題   | 
	
	
	
		| 發表人 | 
		內容 | 
	
	
		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 文章: 2160
 
  第 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 文章: 2160
 
  第 5 樓
  | 
		 | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		Ruey
 
 
  註冊時間: 2003-03-12 文章: 1698 來自: tunglo
  第 6 樓
  | 
		
			
				 發表於: 星期三 十二月 28, 2005 2:53 pm    文章主題:  | 
				     | 
			 
			
				
  | 
			 
			
				微軟真是偏心
 
 
僅提供簡體中文的語音類別 _________________ #############################
 
快樂媽咪系列幸福宅配,喝十全雞湯~原來幸福那麼簡單!!
 
 
學會VFP使用者社區的搜尋,Code才會更有趣~
 
############################# | 
			 
		  | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		garfield Site Admin
  
  註冊時間: 2003-01-30 文章: 2160
 
  第 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)
 
 
本來只有一個人發音    現在變成三個人發音    如何選擇讓某個人發音  去掉兩次發音 _________________ ★★★隨緣緣隨來   知福福常在   來自阿強的祝福★★★ | 
			 
		  | 
	
	
		| 回頂端 | 
		 | 
	
	
		  | 
	
	
		 |