发信人: lofe ()感激生活(), 信区: BorlandDev
标  题: 全文朗读功能的使用方法！
发信站: 哈工大紫丁香 (Mon Sep  4 16:15:38 2000), 转信

  金山糍粑2000的全文朗读功能效果非常不错，其实他也不过是使用了MS的Speech库而
已我们完全可以在自己的程序里实现与之相同的功能。
  打开DELPHI菜单中Project\Import Type Library...\Add...然后在windows目录下的
Speech子目录里选择Vtxtauto.tlb文件，然后Create Unit，注意把下面的Generate
Component Wrapper选中。于是得到了VTxtAuto_TLB.pas文件，里面有使用MS SPEECH接
口的详细Delphi说明和包装类。
  下面我们来测试一下，新建一个application，在mainform上放一个TMemo和一个TButton
在form里加入一个
...
  private
    Speech: IVTxtAuto;
...
在TButton的OnClick事件里写入如下代码
...
  Speech := CoVTxtAuto_.Create;
  with Speech do
  begin
    Register('TestSite', 'TestApp');
    Speak(Memo1.Text, vtxtst_READING);
  end;
  Speech := nil; // 手动本行释放接口，也可以不写而让系统自动释放...OK!
hehe...很简单吧，运行程序，在Memo里写入或贴上想读出的英文，然后点击Button朗读
...

--
 .  生命的意义在于   /\   ____\ /\_ \   /\_\                                 . 
 .      希望、       \ \  \___/_\/\ \   \/_/__     __    _ _★               . 
 .      工作、        \ \   ____\\ \ \    /\  \  /'__ \ /\`'_\               . 
 .    爱你的人、       \ \  \___/ \ \ \___\ \  \/\  __//\ \ \/               . 
 .   和你爱的人         \ \___\    \ \_____\ \__\ \____\ \ \_\               . 
 .      ……             \/___/     \/_____/\/__/\/____/  \/_/ @126.com      . 
※ 修改:．haojs 于 Sep  4 16:13:11 修改本文．[FROM: bbs.hit.edu.cn]
--
※ 转寄:．武汉白云黄鹤站 bbs.whnet.edu.cn．[FROM: bbs.hit.edu.cn]

--
☆ 来源:．哈工大紫丁香 bbs.hit.edu.cn．[FROM: haojs.bbs@bbs.whnet.]