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

韩冰

' L( j# ]; f/ ]( K6 v& b华 中 师 范 大 学 卢 小 海(flier@126.com)

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

! f% y j) K. s9 R

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

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

% E. u- r2 V1 ~; d" |) W& q

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

' R; s# M6 N( q

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

3 I# R& A, w+ \! X' [2 c

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

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

% Y) w2 k ~+ x0 ^( v8 X4 ]& k% G

... procedure TfrmMain.FormCreate(Sender: TObject); begin FISpeech := CoVTxtAuto_.Create; FISpeech.Register(‘Demo Site', ‘Demo App'); end; 0 J2 a$ g% a* i& q...

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

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

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

Form 定 义 如 下：

object frmMain: TfrmMain ; R9 e' w/ H9 [! b# J- A Left = 296 Top = 187 - a" q7 d2 y$ y6 h9 r1 ` BorderStyle = bsDialog 8 Q! _( b' b: c. i$ H0 p; ]2 f0 b6 \ Caption = ‘ 英 文 全 文 朗 读 演 示' 3 }5 Z* b: ]5 B, U# _ ClientHeight = 185 # S; [0 ?9 p3 p+ m, D7 P4 o ClientWidth = 456 8 G4 \1 |" G* {" P) {2 e5 w- i Color = clBtnFace 7 m8 g1 s/ e0 h6 V* F* A Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = －12 ! T4 O4 i9 _- h7 h8 v Font.Name = ‘ 宋 体' Font.Style = [] # ]* H$ I* v" M5 q# \% u0 G OldCreateOrder = False Position = poDesktopCenter ( s* `: l* E9 v+ Z9 _* V OnCreate = FormCreate % q( t% `! X: C) D# e; V PixelsPerInch = 96 TextHeight = 12 object memText: TMemo Left = 8 4 F, \/ j* I. v* Y% r Top = 8 0 ~" h9 E& I; E Width = 361 Height = 169 ScrollBars = ssVertical % k1 s( X, @+ ?; w+ r. y3 o TabOrder = 0 # \2 c1 H, W( q, m+ t6 M end object btnRead: TButton 8 s4 e V( \. Q8 g/ t Left = 376 Top = 8 Width = 75 # j- x7 \4 F/ r$ c Height = 25 Caption = ‘ 朗 读( ＆R)' 2 M" A; u5 R% S TabOrder = 1 OnClick = btnReadClick # u" s) M5 o. q% J. g: P end object btnPause: TButton 3 f, Q) n, S P Left = 376 % ?8 r0 J6 p4 G' Y! s$ H* I0 f' Y Top = 40 , q8 Z$ h5 w0 m, _" E9 Z Width = 75 Height = 25 Caption = ‘ 暂 停( ＆P)' Enabled = False TabOrder = 2 ) I9 Y$ d% Y- Z/ l" n8 P OnClick = btnPauseClick 7 \' Z6 _% \5 h4 \& L% p end object btnStop: TButton $ b4 z0 p5 J/ }* W; V Left = 376 N& w$ x. C4 p, o$ ^ Top = 72 $ ~* G- H+ x ^/ ]+ [. }. i* m/ V Width = 75 + O6 J9 x/ J5 Q# G Height = 25 * E. u* h; j, L! C& @% q; c. ]+ E' I Caption = ‘ 停 止( ＆S)' Enabled = False TabOrder = 3 5 ^$ |$ e- `1 b0 P$ W3 o OnClick = btnStopClick end object btnForward: TButton & u) \, N, I( X; N; @ Left = 376 Top = 120 $ k1 N w% k; s2 E2 L2 [ Width = 75 Height = 25 , k# @# q* `0 C# T4 _* D$ c4 s Caption = ‘ 下 一 句( ＆N)' Enabled = False 8 Z4 {: \# O! u1 B P' \6 _ TabOrder = 4 OnClick = btnForwardClick 2 `. S5 t# b* S! O- ~3 y/ V end ! {! I% Y- Y/ Z4 E. @ object btnRewind: TButton 9 W- X+ `) Z1 ^) d! Q) Z Left = 376 Top = 152 " d1 s2 \" l. b3 u1 q7 q Width = 75 Height = 25 Caption = ‘ 上 一 句( ＆W)' + o$ C6 |, i: y' u7 G: v Enabled = False & m6 Z5 A" h" n! C7 R+ M) q, S$ I TabOrder = 5 3 f5 d7 m! |( N8 X( a# X/ w( A OnClick = btnRewindClick end 3 L. d. E$ j0 }" _5 W: `9 e end

9 w0 F8 ~+ ~! A6 b& s% }0 j* w

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

---- 1. 朗 读 与 停 止

D8 D+ [2 b; e2 f" n6 |2 Y0 M

... procedure TfrmMain.btnReadClick(Sender: TObject); ) C; g+ _2 z: S6 | begin . B2 \6 o% L; |6 c& a% O FISpeech.Speak(memText.Lines.Text, vtxtst_ 3 q2 T/ ]; P" g. TREADING); btnPause.Enabled := True; btnStop.Enabled := True; end; 0 S+ i: M8 G6 X. A3 ]: c; R9 n + G3 l! ?. E5 ]( |6 f. cprocedure TfrmMain.btnStopClick(Sender: TObject); begin # C/ s3 Y* }1 _# I: c! }% ^ FISpeech.StopSpeaking; btnPause.Enabled := False; btnStop.Enabled := False; # @6 z2 {; [2 [& y# L W) G btnPause.Caption := ‘ 暂 停( ＆P)'; end; ; }* u* u" J4 k' u$ ?) H% @ ...

# r% _% g; w" Y3 {

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

% ~! V& V; ~( ?( l3 O6 s

---- 2. 暂 停 与 恢 复

5 i/ q/ g6 M+ W* Y) s* E$ }: f# p. L

... procedure TfrmMain.btnPauseClick(Sender: TObject); begin - Z% a1 U: \" W l! D% h3 ~ with FISpeech do if IsSpeaking then begin 6 z R' |8 u* c+ L. R/ i" N3 z9 f* @ AudioPause; btnPause.Caption := ‘ 恢 复( ＆R)'; ' X- d: F ^+ ~) z# ]" n end else begin $ G/ K8 B f3 N! o K; V0 n9 f AudioResume; $ N7 r2 `8 _7 r; P! z. J/ f btnPause.Caption := ‘ 暂 停( ＆P)'; end; end; $ [; S& ~2 v7 a. i f' Q...

8 L' ]0 q( q# [

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

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

- R& Z- t+ |- ]! E& Z" `: h

----注 意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; ... , x7 O" G4 P6 V: B/ X: |6 d. Eend; ...

1 C& t" g; M: x' N4 d, H

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

; r0 ^% t3 g s# }% T4 h2 n

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

' z, {% L" S2 k2 ~- v2 E

----本 文 程 序 在Win NT/98 ＋ Delphi 4/5 环 境 下 调 试 通 过。 1 T S/ _7 f9 o9 Q- ]