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

韩冰

1 S) I7 j5 n6 X) P$ e2 C华 中 师 范 大 学 卢 小 海(flier@126.com)

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

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

# v9 u5 G5 L9 j1 ^7 C- ?8 t

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

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

# {7 r# Y8 g8 b

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

... procedure TfrmMain.FormCreate(Sender: TObject); begin * m& x* R5 Y3 }" d4 u FISpeech := CoVTxtAuto_.Create; FISpeech.Register(‘Demo Site', ‘Demo App'); . {" H. r( f2 C$ R: @ end; ...

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

# L! D# @! I# Y9 g) G. T

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

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

Form 定 义 如 下：

object frmMain: TfrmMain Left = 296 Top = 187 d; V* Y4 A7 S- L/ ]( q& I4 Z BorderStyle = bsDialog 5 ]& p9 }5 A2 C. t$ f Caption = ‘ 英 文 全 文 朗 读 演 示' ClientHeight = 185 9 S; l; }2 R& E ClientWidth = 456 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText / D) \7 p. d- |! s' P* _" c" |* T5 F Font.Height = －12 & G7 f# u- G# @* U0 O* ~# D Font.Name = ‘ 宋 体' g- M2 i5 W. A& g* x3 P& A Font.Style = [] OldCreateOrder = False Position = poDesktopCenter OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 12 object memText: TMemo + @ d" y( q& X1 W( P( t9 G9 _ Left = 8 Top = 8 Width = 361 Height = 169 ScrollBars = ssVertical + W& a7 g) x0 B* L: C' N" h TabOrder = 0 end 0 I2 r4 ~+ `! Z G0 ]9 v& D object btnRead: TButton 5 x* P( e9 z1 z2 {3 r. J Left = 376 Top = 8 5 @9 [/ ^7 F) D8 k9 t Width = 75 Height = 25 5 R6 y. X% }% N% \ p Caption = ‘ 朗 读( ＆R)' TabOrder = 1 OnClick = btnReadClick end Z) R5 c- K. o( h object btnPause: TButton Left = 376 / L6 N! M2 Y p Top = 40 Width = 75 3 V, n8 V) Y+ a4 m- l Height = 25 $ z# I5 i: o4 [# T) n- E Caption = ‘ 暂 停( ＆P)' Enabled = False . o" n1 Q9 V8 N; n: z/ b- y TabOrder = 2 OnClick = btnPauseClick 4 b$ y% Z! I8 E( ^! j end object btnStop: TButton 4 l/ L% i# l% `8 s0 f) C Left = 376 Top = 72 Width = 75 ' |) G! U9 d$ Z Height = 25 / U2 t$ V" W" G. m+ h) {# E Caption = ‘ 停 止( ＆S)' Enabled = False TabOrder = 3 . I+ |* S' \+ @5 w5 P, H OnClick = btnStopClick end object btnForward: TButton Left = 376 Top = 120 Width = 75 - ~9 x: x% e4 G5 z9 K. K6 j; g. \ Height = 25 8 t2 d9 n, d1 c, l Caption = ‘ 下 一 句( ＆N)' Enabled = False & m& C |. b" G4 x TabOrder = 4 2 Z/ O, b0 y1 u) t OnClick = btnForwardClick 5 V( Z# ^' G, g" a% b5 k end 0 E8 I, ?! G/ I object btnRewind: TButton Left = 376 Top = 152 & V1 e" ^+ R* [& o4 m- e# L5 a Width = 75 Height = 25 Caption = ‘ 上 一 句( ＆W)' - ?. s |2 ? {+ O+ E( ? Enabled = False TabOrder = 5 5 ?% W' }6 k& F/ w- G OnClick = btnRewindClick end end

9 C) V: U8 y9 p/ P

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

---- 1. 朗 读 与 停 止

! p2 P' O# A; w) E! [

... r) H v. `. _2 kprocedure TfrmMain.btnReadClick(Sender: TObject); begin ( g' j: t: B1 d+ y9 R0 O FISpeech.Speak(memText.Lines.Text, vtxtst_ READING); btnPause.Enabled := True; btnStop.Enabled := True; end; 7 @- A! G5 U- P+ V' L$ c4 Xprocedure TfrmMain.btnStopClick(Sender: TObject); - I3 n8 j9 B$ @5 V3 J4 [: K begin FISpeech.StopSpeaking; 3 b }$ d9 m3 I( d3 G; y btnPause.Enabled := False; / K. }4 @9 l1 O3 w btnStop.Enabled := False; r# {+ a" R( C9 f, [, A btnPause.Caption := ‘ 暂 停( ＆P)'; end; 3 |& l4 e- O/ n4 n! X ...

# C9 [, H/ L& R7 x' o+ ?) H# I

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

0 i X9 F ]6 h, X 9 W' {$ j/ Q2 u" p* O5 a

---- 2. 暂 停 与 恢 复

8 [ }' m4 v$ T0 @$ M! F

... procedure TfrmMain.btnPauseClick(Sender: TObject); # r$ R a& A; Q9 j' x9 m# ? begin with FISpeech do 1 h& z9 ]$ A. ^2 x2 U1 @1 k if IsSpeaking then * S% M4 Y4 S( B+ r( W% X2 C* Y begin AudioPause; btnPause.Caption := ‘ 恢 复( ＆R)'; end else begin AudioResume; btnPause.Caption := ‘ 暂 停( ＆P)'; , {7 S; }' h: H( A3 }( l end; end; ...

" l8 s2 m$ \) o, N4 M" } U8 C

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

: b3 j" p$ B+ P+ v- }2 B

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

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

... IVTxtAuto = interface(IDispatch) . c4 ~4 S: k# Q4 ` ... property Speed: Integer read Get_Speed write Set_Speed; T2 }" W* l* A& p, H- e& ]2 n property Enabled: Integer read Get_Enabled write Set_Enabled; 1 R" t: V/ {+ g/ v2 X" E6 ? ... ' `- {+ {6 R# ^& Z: d3 p. _end; ) y# @7 A. x* M G% p ...

; n. W; i& I# P( l% m( |. @2 c

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

8 E7 g" Q) @3 M( G4 h8 i) s/ i5 e

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

----本 文 程 序 在Win NT/98 ＋ Delphi 4/5 环 境 下 调 试 通 过。 - ~- u3 D5 z$ M; L: x" N g