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

韩冰

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

$ ^1 t, [) h/ ^! }6 n5 c6 m

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

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

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

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

2 @/ G D8 y3 l% T* p; D7 n8 B

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

0 ]% y! }0 u T* N. V

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

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

... procedure TfrmMain.FormCreate(Sender: TObject); begin * a% |6 V" m; X* ]9 X FISpeech := CoVTxtAuto_.Create; 3 h2 L+ o, \" u; [ FISpeech.Register(‘Demo Site', ‘Demo App'); . ~8 }( I3 v2 ~4 u9 E end; 4 N ]6 r/ }: Y' V3 o! p6 p( p: n5 |) y...

) Y5 A& z$ v+ H# G" [# ~

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

) I; _2 e3 H& j0 Z4 f! c8 C1 P

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

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

- F' I/ T% V1 O9 h

Form 定 义 如 下：

object frmMain: TfrmMain ! E/ q* e( L8 b$ j& l- \, C Left = 296 % O+ M" ^7 O# u/ [ Top = 187 BorderStyle = bsDialog f' E" _+ V. X1 x- Y4 @ Caption = ‘ 英 文 全 文 朗 读 演 示' ClientHeight = 185 ClientWidth = 456 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText 0 F& Q) o5 C3 s3 W9 w Font.Height = －12 Font.Name = ‘ 宋 体' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter ( y6 V, G6 m- K OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 12 object memText: TMemo Left = 8 , _( Z, f! S4 _2 z Top = 8 Width = 361 8 B! P3 B+ j3 z Height = 169 & B, e7 O8 m2 e! w+ Q ScrollBars = ssVertical ' H+ [$ X/ Y( {6 @2 S- j+ Z1 ^ TabOrder = 0 end : F5 v* v( N$ D3 n G. |1 V5 C object btnRead: TButton Left = 376 Top = 8 ! Z1 K! @: e! u3 ~: ^, f Width = 75 # \5 r3 ~. N9 z# \1 J1 } Height = 25 Caption = ‘ 朗 读( ＆R)' TabOrder = 1 OnClick = btnReadClick end object btnPause: TButton / n( Y: v- C& A) _6 P% M- C Left = 376 j2 `6 t, ?# b* |8 s Top = 40 - _0 m7 s' |( F Width = 75 Height = 25 0 t0 S8 L+ S' N q) Q8 R Caption = ‘ 暂 停( ＆P)' Enabled = False 3 R2 c3 i5 \+ H3 p3 I2 K. s w TabOrder = 2 OnClick = btnPauseClick ( c; d: _' ?( ^ I( X end object btnStop: TButton , _2 i9 [+ p$ p, O! [9 } Left = 376 " R( z6 o8 N& K" B8 l- n1 z8 [- L Top = 72 8 v/ I2 c+ ^3 b: J9 z+ g* D Width = 75 6 R% A- C1 u8 Q, V9 ? Height = 25 4 T" v1 m" i" k Caption = ‘ 停 止( ＆S)' Enabled = False 3 e) M- Z2 j. F( E6 Z& b TabOrder = 3 2 e# z7 D% g4 c) q: i! [. a& W OnClick = btnStopClick end l* R; Q7 d& P1 D# Q d object btnForward: TButton Left = 376 Top = 120 Width = 75 Height = 25 Caption = ‘ 下 一 句( ＆N)' Enabled = False % m! l) [: S# V8 Q$ S3 A, z TabOrder = 4 % |- \, r d- k& w: `6 q5 } OnClick = btnForwardClick p) O& Y1 I9 [- { end object btnRewind: TButton ' e0 v5 p2 U1 E: Z$ w4 l0 k Left = 376 ( ^8 @; }+ [& V2 P Top = 152 9 C- n( T0 Z4 l0 M3 T Width = 75 ; @- P) f4 D+ @) T* f5 A Height = 25 ' }- I/ u* p- w" ] Caption = ‘ 上 一 句( ＆W)' 7 \, [8 |0 P1 w t/ _: w' x" d5 d Enabled = False # Q" F3 { B! q6 g' |" f TabOrder = 5 9 w4 p/ ~6 z; C) t9 F- y, \$ c: T OnClick = btnRewindClick end end

6 e' s- F( D. D7 Y n) g) R- K

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

7 \! f. L9 M9 l6 ]) \8 H

---- 1. 朗 读 与 停 止

... 1 W3 d7 ~2 K0 \& o7 p3 Rprocedure TfrmMain.btnReadClick(Sender: TObject); begin % P" L( q( ~6 f( E& h0 ^3 u FISpeech.Speak(memText.Lines.Text, vtxtst_ " Y: H0 w7 s1 ` h) [# e3 T6 O: wREADING); btnPause.Enabled := True; btnStop.Enabled := True; 1 A7 P o+ ~. g2 q0 ~" ^* R end; procedure TfrmMain.btnStopClick(Sender: TObject); , v1 F- g1 R S, ]5 @4 [ begin 3 q/ ]/ ?. O: D6 t/ ?* z) t FISpeech.StopSpeaking; btnPause.Enabled := False; btnStop.Enabled := False; * h+ H0 f$ n# H7 {. p3 i btnPause.Caption := ‘ 暂 停( ＆P)'; 1 f9 Y! Z5 @; e0 l6 _1 w! Q end; $ T* M2 n% `7 |' N; Y3 r2 }, ^ ...

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

/ u/ B0 S3 |, d" K- u + N: [( V7 w& M; w

---- 2. 暂 停 与 恢 复

... 6 C ]- ?( W4 i: }5 P' Gprocedure TfrmMain.btnPauseClick(Sender: TObject); begin with FISpeech do B) `0 @, N; Q/ I6 {+ ` if IsSpeaking then begin AudioPause; - @1 B' G( W; L btnPause.Caption := ‘ 恢 复( ＆R)'; end 3 t" i) j% k' R3 y! ]6 o) ?- u- f else begin AudioResume; - L8 q" ]- P- H) J9 p" v" Y& u btnPause.Caption := ‘ 暂 停( ＆P)'; , Y$ b, I/ j/ K" \. Q( B3 k$ ~ end; 9 f' I" g' C/ ]' u4 C" Bend; ...

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

3 N" {! ~; u7 _( b0 T( l

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

/ @( B7 l& b1 F" W Q9 u1 {

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

... IVTxtAuto = interface(IDispatch) ! {/ e7 l* M" ^5 ^: p8 N ... * Z0 r& t/ q E$ n' Z property Speed: Integer read Get_Speed write Set_Speed; property Enabled: Integer read Get_Enabled write Set_Enabled; ... # l; [4 B3 ^/ \; M1 Y5 R( Q% C+ |end; ...

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

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

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