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

韩冰

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

# n; e/ @8 O' ?* i r/ ~

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

1 i* q# R/ D! g( I7 k

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

2 ^* R+ |1 q8 a8 v

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

0 N, I+ z$ U: Z0 T) `

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

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

! y. s' L; ?* m' j

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

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

`7 `" N( \/ A* s* r, I

... 0 b: i& Z3 D4 v; E. Y6 Q% } procedure TfrmMain.FormCreate(Sender: TObject); begin * H( t# {5 f1 v2 v0 _8 I& M FISpeech := CoVTxtAuto_.Create; FISpeech.Register(‘Demo Site', ‘Demo App'); . k" r* _! b/ M: o. l5 I7 d end; ...

- C; o. Q% x9 W M3 O! ^

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

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

9 x5 B) N/ ^4 H7 ]' `' N4 @3 {- S

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

' o$ o# t! ~/ P8 m- _9 m

Form 定 义 如 下：

' Y, n5 G9 n. U4 S7 l

object frmMain: TfrmMain Left = 296 / w$ ^# j6 u9 L1 `0 a$ C Top = 187 : e* O" `6 o4 }1 D5 c/ k, E0 C BorderStyle = bsDialog Caption = ‘ 英 文 全 文 朗 读 演 示' 0 B8 \, {+ N4 G! N* H# @% s! a ClientHeight = 185 [( F, K2 m) a2 M ClientWidth = 456 9 _0 q) k0 e3 G+ P- n2 J. ` Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = －12 6 D F! a- B7 t6 W1 ]2 l$ P Font.Name = ‘ 宋 体' Font.Style = [] OldCreateOrder = False . Y5 o, Q4 j* E Position = poDesktopCenter OnCreate = FormCreate PixelsPerInch = 96 \9 \# ?5 B$ j+ d# v2 l TextHeight = 12 object memText: TMemo Left = 8 Top = 8 2 W, h$ Q; \9 b+ M' a1 t3 p( ^ Width = 361 Height = 169 1 D+ j- F4 `, f* o7 b) M ScrollBars = ssVertical " l3 s& f. Z' x# ] TabOrder = 0 end object btnRead: TButton Left = 376 Top = 8 $ Z# p: L8 t- S) E( | Width = 75 Height = 25 Caption = ‘ 朗 读( ＆R)' TabOrder = 1 OnClick = btnReadClick end u( Z F# R* Y( ~1 q/ }. G. k object btnPause: TButton Left = 376 Top = 40 / C8 n( J. T7 f$ R Width = 75 Height = 25 2 J% ~( J: o+ Y% _5 \- n, ` Caption = ‘ 暂 停( ＆P)' , t7 g2 e/ k# M( C Enabled = False TabOrder = 2 OnClick = btnPauseClick end " L/ U/ B, s* ]( L" {- b object btnStop: TButton 4 O) r+ R/ a" a$ N Left = 376 $ w1 @1 H: x7 o0 i. G Top = 72 Width = 75 Height = 25 1 u* ~1 E1 T$ Y+ H4 _- g; o: \0 r Caption = ‘ 停 止( ＆S)' 2 K# C6 Y, Q1 r& O {7 @ Enabled = False TabOrder = 3 OnClick = btnStopClick 1 p, J& d) v; q$ G end object btnForward: TButton 9 {: C: g9 [# p, v9 { Left = 376 Top = 120 Width = 75 " n+ Y8 A- @# V3 `- n( A Height = 25 Caption = ‘ 下 一 句( ＆N)' ' O8 ?% H5 B" t2 t8 H9 A/ V Enabled = False TabOrder = 4 0 w" p5 S4 l6 b OnClick = btnForwardClick 3 t0 C) h4 I1 ~) V end object btnRewind: TButton 5 t0 A, Y. I1 l3 n. e) n. w* ^ Left = 376 Top = 152 Width = 75 0 \2 [5 ?6 J5 ~" r7 x# |* Z Height = 25 2 }% j- F& C- H Caption = ‘ 上 一 句( ＆W)' Enabled = False TabOrder = 5 ; l+ G+ z+ D% G0 q) S OnClick = btnRewindClick 6 N# [2 F+ r8 F end end

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

2 } Q! H+ |9 M( `/ Q

---- 1. 朗 读 与 停 止

B) Y- M4 e* H+ o# Y

... ! l2 ^: J6 g: bprocedure TfrmMain.btnReadClick(Sender: TObject); ; n5 Y; K/ w* t7 k- T; h begin 7 X3 F. X6 y3 ?% v: } FISpeech.Speak(memText.Lines.Text, vtxtst_ & h0 n/ N' A$ w7 [, O. T9 K2 _5 k) dREADING); btnPause.Enabled := True; btnStop.Enabled := True; ) n& u8 C& S( t0 o P7 n5 @ end; procedure TfrmMain.btnStopClick(Sender: TObject); % j2 Q, ~; C) t: `9 d/ g begin $ f4 a$ _4 {- S7 x2 E FISpeech.StopSpeaking; , r7 w) X0 D' I& q; X btnPause.Enabled := False; 9 @3 c" ?4 }# u+ F5 M: h) \ btnStop.Enabled := False; 7 [! f; r9 [! j7 z5 R% p9 z9 _ btnPause.Caption := ‘ 暂 停( ＆P)'; end; ...

: b+ C9 Y9 `6 i3 J- p7 O% _

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

- x. k$ X4 I: K+ y8 p: Q$ s% O

---- 2. 暂 停 与 恢 复

7 J- A% P3 b' _4 X9 n5 F8 H' C

... 4 F& [6 T% A* m8 @( nprocedure TfrmMain.btnPauseClick(Sender: TObject); begin with FISpeech do if IsSpeaking then begin 4 R# y/ G5 m0 M2 q' R1 } {1 H4 X& n8 e# ? AudioPause; ) s5 a% l6 @- e I5 @ btnPause.Caption := ‘ 恢 复( ＆R)'; end else begin AudioResume; btnPause.Caption := ‘ 暂 停( ＆P)'; end; # w8 h4 t! Q! ~: R& Z, ?: Zend; 6 P' J; \% \* W...

- B' B% E& L g/ W8 ?- N

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

$ e8 x |% ^/ s

----另 外 用 成 员 函 数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; 0 l$ ^- [7 T# X3 w/ F' ]2 @ property Enabled: Integer read Get_Enabled write Set_Enabled; ... " W1 q/ b" x' b7 J( L0 Iend; - g0 k2 y$ P; _) i: G' G9 A ...

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

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

----本 文 程 序 在Win NT/98 ＋ Delphi 4/5 环 境 下 调 试 通 过。 - p6 e0 O4 w( J3 A! U. }