欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

    最近在做天氣預報自動(dòng)更新系統，要求進(jìn)行語(yǔ)音播報，因此研究了一下TTS技術(shù)，到現在為止也只是一知半解，現總結如下：

    在XP或更高版本系統中，默認安裝了英語(yǔ)語(yǔ)音引擎，朗讀者是SAM，可以在控制面板-》語(yǔ)音-》文字-語(yǔ)音轉換-》里查看，因此如果只需要男聲讀英文的話(huà)就不需要安裝任何東西了。不過(guò)，如果需要女聲讀英文或讀其它語(yǔ)言的話(huà)，就需要安裝相應的語(yǔ)音庫。微軟官網(wǎng)中提供了男聲簡(jiǎn)體中文語(yǔ)音庫和男女聲英文語(yǔ)音庫，不過(guò)效果不是太好，如果想獲得更好效果的話(huà)還是要用其它語(yǔ)音庫。

    現在比較優(yōu)秀的語(yǔ)音庫有很多：

NeoSpeech Lily
漢語(yǔ)普通話(huà)女聲，可朗讀簡(jiǎn)體、繁體中文，可中英文混讀，音質(zhì)極好。 
Microsoft Lili
Windows Vista 自帶的漢語(yǔ)普通話(huà)女聲，可中英文混讀，音質(zhì)還可以。只支持Windows Vista。

英語(yǔ)朗讀語(yǔ)音庫 (NeoSpeech Paul 男聲)

英語(yǔ)朗讀語(yǔ)音庫 (NeoSpeech Kate 女聲)

中文朗讀語(yǔ)音庫 (NeoSpeech Wang 男聲)

日語(yǔ)朗讀語(yǔ)音庫 (NeoSpeech Misaki 女聲)

英、中、韓、日朗讀語(yǔ)音庫合集 (NeoSpeech)

日語(yǔ)朗讀語(yǔ)音庫 NextUp ScanSoft RealSpeak TTS - Kyoko 22kHz, Japanese（女聲）

其它語(yǔ)音庫的設置：用戶(hù)名必須正確，不然系統使用自帶用戶(hù) MSSam，可以在控制面板-》語(yǔ)音 中查看用戶(hù)

langCN = "VW Kate" 英文女

langCN = "VW Paul" 英文男

langCN=  "VW Wang" 中文男

langCN = "VW Lily" 中文女

langCN = "MSSimplifiedChineseVoice" 微軟自帶中文庫

License:effacee1e9a0c118ca2dd64bdf6a66c3cc3d82fbee5a11f7002cb600ec1900e8de006e8f00152800adc100f14a0115d5:*:VoiceText:0:1:Nextup:WindowsNT2KXP::;

--- Label Print ---

CODE: VoiceText-02FF-278E-8AE6

Site Name: Nextup

Host ID: *

Expiration Date: unlimited

Maximum Channel: 1

Operating System: WindowsNT2KXP

現在已經(jīng)有了數款利用TTS技術(shù)開(kāi)發(fā)的產(chǎn)品，如文語(yǔ)通、朗讀精靈等，可以用它們來(lái)閱讀TXT小說(shuō)、網(wǎng)頁(yè)內容等，還可以將文本內容轉換成wav音頻，放到MP3，MP4里，脫離了電腦。

獲取所有語(yǔ)音引擎集合：

Function readch(strsource)
   Set objVoice = CreateObject("SAPI.SpVoice")
   Set colVoice = objVoice.GetVoices()
   objVoice.Volume = 100 '設置音量，0到100，數字越大音量越大
   langCN = "VW Lily"
   For i = 0 To colVoice.Count - 1
        If Right(colVoice(i).Id, Len(langCN)) = langCN Then cnVoice = i
        If Right(colVoice(i).Id, Len(langEN)) = langEN Then enVoice = i
   Next
   'strsource = textch '"今日天氣：晴轉多云 二十五到二十六攝氏度 北風(fēng)四到五級"
    '以下語(yǔ)句是逐組朗讀
   Set objVoice.Voice = colVoice.Item(cnVoice) '設置語(yǔ)音引擎為簡(jiǎn)體中文
   objVoice.Speak (strsource)
End Function

Private Sub Form_Load()
   Set objVoice = CreateObject("SAPI.SpVoice")
   Set colVoice = objVoice.GetVoices()
   For Each Token In colVoice
        VoiceCB.AddItem Token.GetDescription()
   Next
   VoiceCB.ListIndex = 0
   MsgBox "ok"
  Dim textch As String
 textch = "今日天氣：晴轉多云, 二十五到二十六攝氏度, 北風(fēng)四到五級,25-26"
 readch (textch)
End Sub

更多TTS語(yǔ)音引擎使用技術(shù)及實(shí)例源碼：寫(xiě)意互聯(lián)網(wǎng)，http://ucooper.com/tag/tts