在 程 序 中 加 入 英 文 朗 读 功 能

原创 2001年02月21日 17:05:00

在 程 序 中 加 入
英 文 朗 读 功 能

华 中 师 范 大 学 卢 小 海(flier@126.com)


---- 金 山 词 霸2000 的 英 文 全 文 朗 读 功 能 相 信 一 定 给 尝 试 过 的 用 户 留 下 了 很 深 刻 的 印 象, 而 作 为 一 个 程 序 设 计 者, 你 一 定 也 想 在 自 己 的 程 序 中 加 入 类 似 的 功 能 吧, 因 为 那 将 让 自 己 的 程 序 增 色 不 少。

----其 实 这 并 不 是 一 件 困 难 的 事, 因 为 金 山 词 霸 实 际 上 也 只 是 直 接 使 用 了MS 的TTS(Text -to -Speech) 技 术 而 已, 通 过 对MS Speech API 的 编 程, 我 们 完 全 可 以 实 现 比 其 更 强 大 的 功 能。 下 面, 让 我 们 在Delphi 环 境 下 实 际 尝 试 一 下。

----首 先 从 金 山 词 霸 的 光 盘 上/ciba 目 录 下 运 行 并 安 装mstts.exe(MS TTS engine) 和spchapi.exe(MS Speech API)。

----再 在Delphi 里 新 建 一 个Application。

----然 后 从Delphi 的 菜 单Project/Import Type Library... 中 选 击Add..., 浏 览 到Windows 目 录 下 的Speech 子 目 录 里, 打 开vtxtauto.tlb, 可 以 看 到 下 面Class names 中 会 出 现 我 们 需 要 的 接 口 的 包 装 类 的 名 字TVTxtAuto, 注 意 对 话 框 底 部 的Generate Component Wrapper 需 要 被 选 中, 点 击Create Unit 就 可 以 打 开 一 个 名 为VTxtAuto_TLB 的Unit。

----至 此, 我 们 就 可 以 开 始 实 际 编 程 了。

----首 先 在Form 的OnCreate 中 对 需 要 使 用 接 口 初 始 化 并 进 行 注 册:

    ...
    procedure TfrmMain.FormCreate(Sender: TObject);
    begin
    FISpeech := CoVTxtAuto_.Create;
    FISpeech.Register(‘Demo Site', ‘Demo App');
    end;
...

----由 于Delphi 对 接 口 进 行 了 良 好 的 包 装, 因 此 只 需 直 接 建 立 包 装 类, 其 他 后 台 的 操 作 如 接 口 的 查 询、 释 放 等 交 给Delphi 在 后 台 自 动 完 成。

----注 意 这 里 的Register 操 作 是 必 不 可 少 的, 因 为 可 能 有 多 个 程 序 不 同 设 置 使 用TTS 引 擎。

----然 后 在MainForm 上 放 一 个TMemo 和 若 干 个 TButton, 并 在 其OnClick 中 加 入 对 应 的 代 码。

Form 定 义 如 下:

    object frmMain: TfrmMain
      Left = 296
      Top = 187
      BorderStyle = bsDialog
      Caption = ‘ 英 文 全 文 朗 读 演 示'
      ClientHeight = 185
      ClientWidth = 456
      Color = clBtnFace
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = ‘ 宋 体'
      Font.Style = []
      OldCreateOrder = False
      Position = poDesktopCenter
      OnCreate = FormCreate
      PixelsPerInch = 96
      TextHeight = 12
      object memText: TMemo
        Left = 8
        Top = 8
        Width = 361
        Height = 169
        ScrollBars = ssVertical
        TabOrder = 0
      end
      object btnRead: TButton
        Left = 376
        Top = 8
        Width = 75
        Height = 25
        Caption = ‘ 朗 读( &R)'
        TabOrder = 1
        OnClick = btnReadClick
      end
      object btnPause: TButton
        Left = 376
        Top = 40
        Width = 75
        Height = 25
        Caption = ‘ 暂 停( &P)'
        Enabled = False
        TabOrder = 2
        OnClick = btnPauseClick
      end
      object btnStop: TButton
        Left = 376
        Top = 72
        Width = 75
        Height = 25
        Caption = ‘ 停 止( &S)'
        Enabled = False
        TabOrder = 3
        OnClick = btnStopClick
      end
      object btnForward: TButton
        Left = 376
        Top = 120
        Width = 75
        Height = 25
        Caption = ‘ 下 一 句( &N)'
        Enabled = False
        TabOrder = 4
        OnClick = btnForwardClick
      end
      object btnRewind: TButton
        Left = 376
        Top = 152
        Width = 75
        Height = 25
        Caption = ‘ 上 一 句( &W)'
        Enabled = False
        TabOrder = 5
        OnClick = btnRewindClick
      end
    end

----关 键 代 码 段 如 下:

---- 1. 朗 读 与 停 止

    ...
procedure TfrmMain.btnReadClick(Sender: TObject);
    begin
      FISpeech.Speak(memText.Lines.Text, vtxtst_ 
READING);
      btnPause.Enabled := True;
      btnStop.Enabled  := True;
    end;
    
procedure TfrmMain.btnStopClick(Sender: TObject);
    begin
      FISpeech.StopSpeaking;
      btnPause.Enabled := False;
      btnStop.Enabled  := False;
      btnPause.Caption := ‘ 暂 停( &P)';
    end;
      ...

----Speak 成 员 函 数 的 第 一 个 参 数 向TTS 引 擎 传 递 需 要 朗 读 的 文 字, 第 二 个 参 数 由 指 定 朗 读 时 使 用 的 语 气 和 优 先 级 的 两 个 符 号 合 并 而 成。

---- 2. 暂 停 与 恢 复

    ...
procedure TfrmMain.btnPauseClick(Sender: TObject);
    begin
      with FISpeech do
      if IsSpeaking then
      begin
        AudioPause;
        btnPause.Caption := ‘ 恢 复( &R)';
      end
      else
      begin
        AudioResume;
        btnPause.Caption := ‘ 暂 停( &P)';
      end;
end;
...

----这 里 通 过IsSpeaking 属 性 可 以 取 得 当 前 状 态, 然 后 通 过AudioPause 和AudioResume 暂 停 和 恢 复 朗 读。

----另 外 用 成 员 函 数AudioFastForward 和AudioRewind 可 以 向 前 和 后 跳 过 一 句 朗 读, 通 过 读 写Speed 属 性 还 可 以 取 得 或 设 置 朗 读 的 语 速, 单 位 是 字/ 分, 缺 省 值 为170。

----注 意Speed 和Enabled 属 性 缺 省 设 置 是 只 写 的, 但 实 际 上IVTxtAuto 提 供 了Get_Speed 和Get_Enabled 函 数, 所 以 我 们 只 要 把VTxtAuto_TLB 单 元 中 的 声 明 修 改 一 下, 如:

      ...
IVTxtAuto = interface(IDispatch)
          ...
  property Speed: Integer read Get_Speed write Set_Speed;
  property Enabled: Integer read Get_Enabled write Set_Enabled;
          ...
end;
      ...

----即 可 正 常 使 用Speed 和Enabled 属 性 了。

----至 此, 一 个 简 单 的 英 文 全 文 朗 读 器 就 完 成 了, 有 兴 趣 的 朋 友 可 以 为 其 加 入 监 视 剪 贴 板, 热 键 激 活 等 功 能。

----本 文 程 序 在Win NT/98 + Delphi 4/5 环 境 下 调 试 通 过。


英朗面试题2015-05-22

IOS考题 标准答案:http://blog.csdn.net/xunyn/article/details/8302787 机试题(先做机试)   by文汉(下面答案是我做的,并不是标准答...
  • ETmanwenhan
  • ETmanwenhan
  • 2015年05月22日 20:41
  • 975

LinkedIn领英开发客户加人脉好友软件领跑安装

下载领跑插件(LinkRun)  通过官方网址:http://www.topeasysoft.com/Promotion?InvitationCode=8AF1939F-4FCA-45AE-...
  • linkrun_2018
  • linkrun_2018
  • 2018年01月05日 16:21
  • 85

高效使用【Linkedin领英】拓展人脉开发客户的技巧

攻略一:如何快速扩充你的人脉 攻略二:如何批量给好友群发消息 攻略三:怎么批量加群 攻略四:怎么批量关注企业 攻略五:怎么批量点赞 攻略六:如何深度嗅探企业,采购商,买家,详细信息 攻略七...
  • qq_27366653
  • qq_27366653
  • 2018年01月05日 16:22
  • 64

java 倒序读取文件(最后一行开始读取)

Java代码 package cn.com.songjy.test.io; import java.io.FileNotFoundException; import java.i...
  • shenzhenhair
  • shenzhenhair
  • 2013年02月10日 19:07
  • 1700

关于我如何拿到携程offer的过程记录

携程自打来了梁建章之后,明显觉得市场竞争力变强了很多,越发看好这家公司了,所以校招的时候很慎重的投了携程。也很幸运拿到了携程的offer。因为参加携程的面试之前看了很多面经受益颇多,这里也记录一下我参...
  • triple52
  • triple52
  • 2017年05月02日 15:16
  • 1719

元素出栈、入栈顺序的合法性。如:入栈的序列(1,2,3,4,5),出栈序列为(4,5,3,2,1),则合法。

这道题目考察的就是栈的先进后出(FILO),当第一个值压入栈后,它就会比它后压入的值晚出栈,好比1.2.3.4.5是入栈序列,4.5.3.2.1是出栈序列,为什么说他是正确的呢?因为当4出栈时,栈内已...
  • sinat_36101354
  • sinat_36101354
  • 2017年07月20日 12:00
  • 391

给初入职场的你

看了很多关于职场的文章,下面这些总结我觉得对于初入职场的我很有指导意义,所以我把它们总结记录下来,送给现在还有将来的自己。相信自己,慢慢来。...
  • XiaoningZhu
  • XiaoningZhu
  • 2017年12月23日 14:03
  • 200

在线英英词典

注意: 创建sqlite3数据库: 输入命令: 1、 sqlite3  my.db 2、 sqlite3 3、 create table usr(name char,data char); 4、 cr...
  • myshinelove
  • myshinelove
  • 2017年12月18日 19:16
  • 105

【每日一题】元素出栈、入栈顺序的合法性。如:入栈的序列(1,2,3,4,5),出栈序列为(4,5,3,2,1),则合法。

题目:元素出栈、入栈顺序的合法性。如:入栈的序列(1,2,3,4,5),出栈序列为(4,5,3,2,1),则合法。入栈的序列(1,2,3,4,5),出栈序列为(4,5,2,3,1),则不合法。 这道题...
  • ArchyLi
  • ArchyLi
  • 2017年07月22日 18:29
  • 466

Facebook北京大学2015年宣讲会小记【Facebook Technical Talk】

概要 【带你走进Facebook之北大校园宣讲会】 由北京大学信息科学技术学院研究生会主办 【活动时间】 5月13日(周三)晚上7点 【活动地点】 理教108 演讲嘉宾 Facebook员工 章浩,...
  • hsluoyc
  • hsluoyc
  • 2015年05月13日 22:23
  • 2423
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在 程 序 中 加 入 英 文 朗 读 功 能
举报原因:
原因补充:

(最多只允许输入30个字)