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

韩冰

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

各位朋友，请加入本站邮件列表，你将得到本站最新更新及动态。

3 m5 a S. q1 N& f! ]

---- 金 山 词 霸2000 的 英 文 全 文 朗 读 功 能 相 信 一 定 给 尝 试 过 的 用 户 留 下 了 很 深 刻 的 印 象， 而 作 为 一 个 程 序 设 计 者， 你 一 定 也 想 在 自 己 的 程 序 中 加 入 类 似 的 功 能 吧， 因 为 那 将 让 自 己 的 程 序 增 色 不 少。 9 A! ~' E; N! I* a+ N; P/ A9 ?2 L----其 实 这 并 不 是 一 件 困 难 的 事， 因 为 金 山 词 霸 实 际 上 也 只 是 直 接 使 用 了MS 的TTS（Text －to －Speech） 技 术 而 已， 通 过 对MS Speech API 的 编 程， 我 们 完 全 可 以 实 现 比 其 更 强 大 的 功 能。 下 面， 让 我 们 在Delphi 环 境 下 实 际 尝 试 一 下。

/ H3 e+ S0 \3 h1 r' x& G, P

----首 先 从 金 山 词 霸 的 光 盘 上\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。

- t# d1 J( }! k

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

3 b r& A1 g9 @1 `" \

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

... + E- [/ y3 s3 m% I procedure TfrmMain.FormCreate(Sender: TObject); ; k6 U! b% C) k$ h( K begin * n6 t4 C7 X/ g; o FISpeech := CoVTxtAuto_.Create; FISpeech.Register(‘Demo Site', ‘Demo App'); end; m: O# v2 v+ i/ j# @+ q...

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

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

' ?8 o6 |7 E: C4 e0 D& @

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

9 j7 P9 A4 u ^* q4 |5 i4 \' U

Form 定 义 如 下：

9 n# A9 f! I2 ^1 q2 N

object frmMain: TfrmMain 9 ?' x. G3 c3 T+ f! i Left = 296 Top = 187 BorderStyle = bsDialog Caption = ‘ 英 文 全 文 朗 读 演 示' ClientHeight = 185 6 }% a. W4 Y* c% {- l5 h, H ClientWidth = 456 3 {: Q Q1 I/ x8 z( M, J Color = clBtnFace Font.Charset = GB2312_CHARSET 3 v/ B! [. Z2 i" w Font.Color = clWindowText 0 h# o4 F- j0 ? Font.Height = －12 Font.Name = ‘ 宋 体' 4 n9 \ L, O: n' b' Z" i1 R Font.Style = [] % |" x8 e9 E# d; x7 @$ Q1 p8 N OldCreateOrder = False Position = poDesktopCenter % k( b, u6 m" {/ F9 g! I8 R OnCreate = FormCreate PixelsPerInch = 96 B( {, g! v+ P& p. \" s8 y TextHeight = 12 object memText: TMemo . Q# c9 _' ]9 S$ q Left = 8 / D, S& }8 x' S5 k Top = 8 ' n- `9 e9 u9 U9 a* h4 M Width = 361 Height = 169 ScrollBars = ssVertical TabOrder = 0 end object btnRead: TButton Left = 376 Top = 8 " B5 h, _# p$ q' r. N: w( V Width = 75 Height = 25 Caption = ‘ 朗 读( ＆R)' TabOrder = 1 9 y, ^4 k! m1 k! Q( W* o3 X0 A OnClick = btnReadClick end object btnPause: TButton * B9 ]9 M; @% `% c7 E Left = 376 Top = 40 5 X7 d; o: Y; H F6 f) G/ b: I+ n& r9 r Width = 75 , b9 ^9 q/ ]; R7 B2 ? Height = 25 Caption = ‘ 暂 停( ＆P)' ; B2 G! e/ x# i Enabled = False TabOrder = 2 OnClick = btnPauseClick end ! D( I) ?5 ~+ N7 B object btnStop: TButton : K/ b( n- _/ g8 E Left = 376 Top = 72 " c) K/ ~5 A9 w- G4 M) x# O8 m Width = 75 Height = 25 8 m. T' U! ?7 ~! d" l. P Caption = ‘ 停 止( ＆S)' Enabled = False TabOrder = 3 OnClick = btnStopClick end object btnForward: TButton Left = 376 . M# w0 x% E E) r- ?4 G6 m Top = 120 Width = 75 & N+ z! m% A6 G# [- C, E$ n6 L Height = 25 Caption = ‘ 下 一 句( ＆N)' Enabled = False TabOrder = 4 OnClick = btnForwardClick 4 d3 o- k, o) k8 f end object btnRewind: TButton / H2 ` l5 _: y+ Q6 \ Left = 376 Top = 152 Width = 75 6 Q! n9 u1 q2 g" ]! i/ ^3 p Height = 25 7 N5 w* W! o: h Caption = ‘ 上 一 句( ＆W)' . V E6 X$ i3 L* U Enabled = False 8 z9 q# {9 e4 B/ l TabOrder = 5 ' \# S& x5 |5 Y9 N" b( ~2 g! U OnClick = btnRewindClick * l' R6 g) Y2 P end end

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

---- 1. 朗 读 与 停 止

... ' c$ K, k* p4 f( a9 {6 [/ v3 eprocedure TfrmMain.btnReadClick(Sender: TObject); " e2 O) {$ U1 m0 I) n, g6 i. C begin ! {( v2 S- i$ r, ?4 c FISpeech.Speak(memText.Lines.Text, vtxtst_ 3 ]' R% T* [% JREADING); 6 E5 N3 c: k' D6 C1 q1 e ~ btnPause.Enabled := True; ' {7 R/ s3 w, T3 U: j2 m btnStop.Enabled := True; 9 V; |9 h5 \! X. [ end; procedure TfrmMain.btnStopClick(Sender: TObject); begin 2 M ?$ X% o0 V( j _1 ? FISpeech.StopSpeaking; ( W( J, [7 H# {7 ] btnPause.Enabled := False; btnStop.Enabled := False; btnPause.Caption := ‘ 暂 停( ＆P)'; $ p! @' u4 {# A. Z6 | end; ...

0 O& K' N2 \7 k |3 Y. [9 a& f, ^

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

---- 2. 暂 停 与 恢 复

" C9 T# d' t" ~

... procedure TfrmMain.btnPauseClick(Sender: TObject); : D: l7 l: f$ a+ c) F3 i4 q begin ' N# H# N/ B. a6 ? ]8 }: I! ~ with FISpeech do " ^2 M: I2 g8 E/ `8 z, X- w if IsSpeaking then begin ; W( q0 R) b8 `; V4 }( E7 e AudioPause; btnPause.Caption := ‘ 恢 复( ＆R)'; end else / v& t3 h3 G% i5 ^( q begin AudioResume; $ f: Z6 \. G- m# d btnPause.Caption := ‘ 暂 停( ＆P)'; end; end; 2 s0 Z1 H3 _- x$ s# o4 E/ n...

7 ?' S, I# ]( x1 Y/ \7 U

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

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

! Y2 _4 \9 s2 q8 w# J' G, Z

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

... IVTxtAuto = interface(IDispatch) 1 h& u$ R$ j2 f2 M$ t" { ... property Speed: Integer read Get_Speed write Set_Speed; " [( K: ]6 Z6 z- z5 F2 y property Enabled: Integer read Get_Enabled write Set_Enabled; ... end; ...

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

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

; o. B% n: F2 B

----本 文 程 序 在Win NT/98 ＋ Delphi 4/5 环 境 下 调 试 通 过。 " e* g' H' E: ?5 H- I8 Z