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

韩冰

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

6 n$ z" D) _3 P4 j. l$ C

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

: b# Y' Q5 `! E2 ^

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

" Y1 A3 Z7 @; m. S- F

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

9 \# Z4 ~% @0 O8 Q) q* H) s( o

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

\0 n8 Y6 I( Y

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

Z2 h5 b$ n* N; b1 Q5 I* y$ ~; Z# ^$ L

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

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

... procedure TfrmMain.FormCreate(Sender: TObject); begin 9 D9 y6 S( C8 N2 A8 n- s FISpeech := CoVTxtAuto_.Create; FISpeech.Register(‘Demo Site', ‘Demo App'); + Z3 M7 L' W+ ]& ~ end; * h5 j; D- j- ]0 l...

0 m, w, l/ y" j+ ?6 N) b

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

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

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

Form 定 义 如 下：

object frmMain: TfrmMain Left = 296 Top = 187 1 D2 j5 E1 Z4 H) J BorderStyle = bsDialog Caption = ‘ 英 文 全 文 朗 读 演 示' ClientHeight = 185 ClientWidth = 456 Color = clBtnFace - K) t/ J+ c: P4 J3 G! m" u Font.Charset = GB2312_CHARSET & ?, V3 P! g! q3 O& H7 d3 b Font.Color = clWindowText % X" z2 n! [2 D4 S, U( C6 | Font.Height = －12 Font.Name = ‘ 宋 体' Font.Style = [] OldCreateOrder = False E% Z( P# e4 s6 b3 V. X Position = poDesktopCenter 9 Y. `8 ?8 `+ G OnCreate = FormCreate : W+ B; D" d# }. O# b8 I0 N PixelsPerInch = 96 TextHeight = 12 ( {, q% [# Q+ e; S4 K object memText: TMemo Left = 8 Top = 8 8 f; `1 O4 m T5 j4 m+ S7 G9 i Width = 361 ; B* s( z* ~* ^ Height = 169 ScrollBars = ssVertical 9 @# W/ z) t: Y' @ TabOrder = 0 + C2 n) _1 Q) r9 u. U end object btnRead: TButton Left = 376 3 G; q0 v: i# d) x' L2 @ t( m0 G' q Top = 8 Width = 75 Height = 25 6 t# d6 o2 Z. l6 _ Caption = ‘ 朗 读( ＆R)' ! @0 F( Q( _; d/ @9 W% u TabOrder = 1 , k( K( y$ E6 M OnClick = btnReadClick end object btnPause: TButton Left = 376 @; b- k7 A3 s6 u# Y' j- ^2 O Top = 40 Width = 75 Height = 25 0 {& A1 C7 i6 g% O Caption = ‘ 暂 停( ＆P)' Enabled = False TabOrder = 2 OnClick = btnPauseClick end object btnStop: TButton Left = 376 Top = 72 Width = 75 Height = 25 Caption = ‘ 停 止( ＆S)' 6 o" H* m3 E5 i. y1 p# A# Z& z Enabled = False TabOrder = 3 9 V) ]( T9 h) h OnClick = btnStopClick end object btnForward: TButton $ y, R7 O5 e+ h; J) v+ R0 N/ H8 E Left = 376 6 e/ Y4 [) ~: V2 j( I2 n7 f8 \ r Top = 120 ! A# |2 m5 ?3 J4 @3 N2 U Width = 75 Height = 25 " X# G# |) c' ~& r5 r Caption = ‘ 下 一 句( ＆N)' Enabled = False TabOrder = 4 ' o! e) Q* d0 R1 H+ u OnClick = btnForwardClick end / w8 C: n! I$ W$ [# |; z object btnRewind: TButton Left = 376 " B9 ?, L' o) x/ g. t7 X! f Top = 152 # {5 y" N7 a6 D Width = 75 Height = 25 Caption = ‘ 上 一 句( ＆W)' Enabled = False " _3 Y+ h) D6 d, M0 y TabOrder = 5 OnClick = btnRewindClick ) }! O5 R9 a7 h5 a4 c" ~3 ?) { end ) ~0 J) J0 c! `* t7 d H' Q end

# \% {) Z1 f. G/ t f

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

4 l' j3 x! Z4 O# g) L: O

---- 1. 朗 读 与 停 止

2 J" n& {1 b- c- \

... procedure TfrmMain.btnReadClick(Sender: TObject); # {: X W+ |- b, J begin FISpeech.Speak(memText.Lines.Text, vtxtst_ 7 e3 J, X4 u- {) z7 f7 cREADING); 0 ~3 n* e7 D6 o( w- _ btnPause.Enabled := True; btnStop.Enabled := True; . R! f) R( e h6 J/ h" @( Y end; 2 w7 a5 L$ l# c, g* n: W' k 7 I0 p0 n( `* m% m! _procedure TfrmMain.btnStopClick(Sender: TObject); begin 1 a7 i. q. {( T: v FISpeech.StopSpeaking; btnPause.Enabled := False; btnStop.Enabled := False; ) O" ^, l1 l$ E7 C0 A9 g( \ btnPause.Caption := ‘ 暂 停( ＆P)'; $ m) x+ _: F3 r- E$ q end; ! S( ^7 ?4 N: C ...

7 L. @7 E7 N- R

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

: o7 t% @% R, h' a1 r/ B7 g

---- 2. 暂 停 与 恢 复

... procedure TfrmMain.btnPauseClick(Sender: TObject); begin with FISpeech do 5 M. q5 y |" t& a' T+ w# x7 l( N if IsSpeaking then begin ' A. L# e- v, i, s# `7 ~% T I AudioPause; btnPause.Caption := ‘ 恢 复( ＆R)'; / U( B2 _6 O3 u; |4 p- ` end else begin AudioResume; _. l1 c% B" I btnPause.Caption := ‘ 暂 停( ＆P)'; " @9 h& c: ?6 Y end; end; 7 | {) {& y$ h# ~- Y...

* F5 {8 h e# C: @

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

7 U& D0 C! D6 c- w" `. |

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

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

... , i& }+ I, R2 h+ P( \IVTxtAuto = interface(IDispatch) - d8 g+ Y4 \& d8 t% y2 R, @ ... ' Z) P3 S. f+ V- L5 R2 ?7 U- J( a* ]0 O: B property Speed: Integer read Get_Speed write Set_Speed; & y, a% I# N' F8 F' ] property Enabled: Integer read Get_Enabled write Set_Enabled; ... end; 7 J+ @# D+ F0 Y6 b# p9 o- I ...

[0 y# r* M/ n y

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

l9 J* Y8 N, W l- N, t5 X* O

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

----本 文 程 序 在Win NT/98 ＋ Delphi 4/5 环 境 下 调 试 通 过。 / q$ C7 P& P9 L# x9 n) b, N