此為轉貼資料 http://www.yesky.com/20011222/211156.shtml 開發自己的英文語音朗讀軟體 2001-12-22· · ·· 1 2 下一頁 很多人都使用過帶文本朗讀功能的軟體。其實，自己動手製作一個英文語音朗讀軟體是一件很容易的事情，下面就給出一個編程的實例。 一、 前言： 筆者通過研究現有的一些語音朗讀軟體發現，有很多的産品都使用了MicroSoFt的Speech Api，再通過進一步的實踐發現。MicroSoFt Speech Api的功能十分強大，不光可以準確讀出單詞，而且還能夠實現流利地朗讀句子乃至段落、文章。對於不常見的單詞（如中文人名的拼音），也能夠根據英文的發音原則，讀出較準確的發音。而且讓人興奮的是：MicroSoFt Speech Api可以以coM元件的形式提供給程式師，方便程式師的開發與使用。 二、 開發英文語音朗讀程式的軟、硬體環境： 本文所採用的作業系統是WindoWS ９８。它對MicroSoFt Speech Api支援得非常好。而所採用的編程環境是 BorlAnd的delphi 5．0。dephi不光支援vcl元件，對coM元件的支援也是非常好的，而且在WindoWS下面delphi確實是一種強大而且易於使用的開發工具。接下來最重要的是安裝MicroSoFt Speech Api，MicroSoFt Speech Api在共用軟體光碟上都會帶有，也可以在金山詞霸的光碟上找到，檔案名是SpchApi．exe，是個自解壓文件，直接運行即可。 硬體環境沒有什麽特殊的要求，只要能夠順利運行WindoWS ９x作業系統就可以了。 三、進行英文語音朗讀程式開發的基本步驟： 1．在delphi中新建一應用程式，將ForM1改名爲FrMSpeech，將unit1保存爲Speechunit，將工程保存爲Speech。 ２．選中project功能表項中的iMport type liBrAry，彈出如圖所示的對話方塊： 再點擊Add按鈕，此時會彈出一個文件選擇框，將此框定位到WindoWS目錄下的Speech目錄，選中vtxtAuto．tlB文件，選擇打開。再點擊inStAll按鈕即可。 ３．經過上面的步驟，已經將此元件引入到我們的程式中來，並生成了vtxtAuto＿tlB單元臂nit癒A我們只需要在自己的應用程式中使用此單元就可以了。現在我們在Speechunit的uSeS聲明的末尾加上vtxtAuto＿tlB。並在vAr下面聲明一個名爲vtxt的總體變數，類型爲vtxtAuto＿。 ４．現在我們需要在FrMSpeech上放上一個edit控制項和兩個Button控制項。將兩個按鈕控制項的nAMe屬性分別改爲：BtnSpeAK和BtnStop，再將兩個按鈕的cAption屬性分別改爲：SpeAK和Stop。 5．在FrMSpeech的oncreAte事件中加入以下代碼： vtxt 均 covtxtAuto＿．creAte沔r vtxt．regiSter＇＇＇Speech＇ 沔r ６．雙擊SpeAK按鈕，加入以下代碼： vtxt．Speed 均 100沔r vtxt．SpeAK膺riM縹dit1．text10 沔r ７．雙擊Stop按鈕，加入以下代碼： vtxt．StopSpeAKing 自此，一個最簡單的英文朗讀軟體就已製作完成了。使用時在edit對話方塊中輸入欲朗讀的單詞、句子或段落，按SpeAK按鈕就可以開始進行朗讀，按Stop按鈕就可以停止朗讀。 *************************************************************************************** http://www.yesky.com/20011222/211156_1.shtml 開發自己的英文語音朗讀軟體 2001-12-22· · ·· 上一頁 1 2 四、 進一步的深入探討： 其實MicroSoFt Speech Api的功能非常的強大，它還提供了許多方法和屬性可以用來改進並強化我們的語音朗讀程式。其提供的主要方法與屬性如下： 1．procedure SpeAK繁onSt pSｚBuFFer WideString dWFlAgS integer沔r 朗讀pSｚBuFFer指向的字串，並可以通過調整dWFlAg參數來得到不同的語氣、語調。 ２．procedure StopSpeAKing沔r 停止當前的朗讀。 ３．procedure AudiopAuSe沔r 暫停當前的朗讀。 ４．procedure AudioreSuMe沔r 從當前暫停的地方恢復朗讀。 5．procedure AudioreWind沔r 重新開始朗讀。 ６．procedure AudioFAStForWArd沔r 快速朗讀。 ７．property Speed吭r 設置朗讀速度。 ８．property iSSpeAKing WordBool沔r 判斷當前朗讀是否在進行。 ９．procedure Set＿Speed聯dWSpeed integer擺r 設置朗讀速度。 10．Function get＿Speed integer沔r 獲得當前的朗讀速度。 合理地使用這些方法與屬性，相信大家一定能夠開發出好的語音朗讀軟體。 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind