读汉语及数字(50分)

[green]主： 誰能帮我解决读汉语及数字的问题本人将不胜感激！！！<br>DK_Fan@163.com [/green]

问题不明白

Ord(Char)&gt;128汉字<br>ord(Char)&gt;47 and Ord(Char)&lt;58 数字<br>

在EDIT中输入汉字，通过声卡发音或读MEMO中的文章

读汉语？！至今没听说过~~~~~~~~~~~~~~~

我知道有数字语音合成(国家863攻关课题)<br>和录音片断两种方法(这种方法对你来说应该可行)<br>把所有汉字的读章存起来然后检测入的汉字找到对就的语音，再播放出来，呵呵

先下我的软件试试读的如何，要的话再帮你！汉语与数字都可以读！<br><br>http://www.renyuansoft.com

导入 SAPI.dll (不用手工寻找，直接已经在 import type library 列表中)，<br>这个 DLL 在列表中的名字是 :Microsoft Speech Object Library [Version 5.1]。<br>点 inatall... Delphi 让你选择包的名字和存放位置，我选择 /bpl/Sapi_V51.dpk <br>然后 Delphi 自动建立 SpeechLib_TLB.pas 和编译这个包，默认将这个库中的 19 个<br>控件装到 ActiveX 页。19 个元件的注册情况如下：<br>procedure Register;<br>begin<br>RegisterComponents('ActiveX',[TSpObjectTokenCategory, TSpObjectToken, TSpMMAudioIn, TSpMMAudioOut, <br>TSpVoice, TSpSharedRecoContext, TSpInprocRecognizer, TSpSharedRecognizer, TSpLexicon, <br>TSpUnCompressedLexicon, TSpPhoneConverter, TSpTextSelectionInformation, TSpPhraseInfoBuilder, TSpAudioFormat, <br>TSpWaveFormatEx, TSpInProcRecoContext, TSpCustomStream, TSpFileStream, TSpMemoryStream]);<br>end;<br>建一个新项目，上面放一个TSpVoice 、Memo 和一个按钮，在 Memo 中写‘大哥’，在 Button 的 onClick 里写<br>procedure TForm1.Button1Click(Sender: TObject);<br>begin<br>SpVoice1.Speak(memo1.Lines.Text,0);<br>end;<br>就读出来了呀。别忘了给分，哈

试试！

谢谢各位大侠！！！