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

韩冰

5 E; g9 F$ u3 q$ \华 中 师 范 大 学 卢 小 海(flier@126.com)

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

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

& h- K: q3 N$ `$ U# ^2 B! p

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

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

3 @, m9 N: h- V7 f, W7 \ d

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

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

$ p+ e% M' d8 ^2 _6 h

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

... 2 e3 P7 ^1 ?3 l: t+ j procedure TfrmMain.FormCreate(Sender: TObject); begin 7 u- g, _) a+ O6 ?1 p F FISpeech := CoVTxtAuto_.Create; FISpeech.Register(‘Demo Site', ‘Demo App'); ! z0 G9 {1 s9 X) l end; % v5 v2 w7 m% f...

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

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

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

Form 定 义 如 下：

object frmMain: TfrmMain Left = 296 Top = 187 ; f/ \. k) Y# W1 W BorderStyle = bsDialog Caption = ‘ 英 文 全 文 朗 读 演 示' ClientHeight = 185 9 R; y' O2 i& n. f ClientWidth = 456 Color = clBtnFace Font.Charset = GB2312_CHARSET Font.Color = clWindowText " |# ] D0 Z# V' ? Font.Height = －12 2 S2 h2 K, Z) f: E Font.Name = ‘ 宋 体' ) W3 H9 Z$ d$ g1 Y1 Z) G$ W( a7 D Font.Style = [] 0 Y/ z$ M# I( I. m. N" E OldCreateOrder = False Position = poDesktopCenter # e1 ]% k8 m' T' l4 f0 |6 B OnCreate = FormCreate PixelsPerInch = 96 7 G9 z0 X. Z# N& R( I- w, _ TextHeight = 12 & f9 q, N7 G1 B* k: N$ A3 g object memText: TMemo 9 D* X6 R# |1 B3 C' k @% B Left = 8 Top = 8 Width = 361 Height = 169 / P; k! X8 l- q( \9 ^7 n% E ScrollBars = ssVertical TabOrder = 0 end object btnRead: TButton 9 `0 d1 q) a! |% O+ P: [ Left = 376 Top = 8 / R9 }: }0 r# |' R Width = 75 Height = 25 # c! I8 r" }5 J* F/ K3 V, T. I Caption = ‘ 朗 读( ＆R)' TabOrder = 1 OnClick = btnReadClick 3 \- ~0 T/ }: S A. z) s. d end 8 V7 z# q% T. T. h% g6 B" x; D object btnPause: TButton Left = 376 5 f% A' d) a/ V- U Top = 40 % l% Z1 @3 ]+ [, _8 Z; J# G Width = 75 Height = 25 Caption = ‘ 暂 停( ＆P)' Enabled = False 7 K" A. v: w; j' t$ K1 q, U TabOrder = 2 OnClick = btnPauseClick 3 k3 T' G4 P* T4 R# I+ ^" s* V end object btnStop: TButton Left = 376 Top = 72 2 z, O" {1 u9 [* v1 w2 u+ A Width = 75 Height = 25 4 M. W. P' P8 ~. s0 h O+ g, p% m! o; ] Caption = ‘ 停 止( ＆S)' Enabled = False TabOrder = 3 & ^5 D: T2 \+ } OnClick = btnStopClick & f. ~9 X- h/ q7 x0 A, _ end |- g* @( X8 Q2 x' a9 p+ D3 F1 h object btnForward: TButton Left = 376 Top = 120 2 A8 l5 x' Z& s8 Y2 }. Y: s Width = 75 ) y/ L) X4 `1 {6 m, M Height = 25 Caption = ‘ 下 一 句( ＆N)' 0 m# i2 r0 [" U& H6 U5 g. q; Y Enabled = False TabOrder = 4 , c7 l) {9 R" _; z4 V, J! x" v OnClick = btnForwardClick ( [5 S7 g; ?3 w ?+ H1 p end object btnRewind: TButton Left = 376 . l$ j6 Z# R. {7 O8 V3 ], j Top = 152 Width = 75 9 V5 W ~0 {$ [+ J5 Z Height = 25 Caption = ‘ 上 一 句( ＆W)' 2 c! [9 J$ V; T n Enabled = False TabOrder = 5 " o8 q" W/ M6 m5 k `- [, i OnClick = btnRewindClick 8 U0 `1 N @+ }& ]! A# X4 F end M$ [% u5 r, O. ?- ?3 s* ]6 } end

# }- A, z- p& Y" N" }. i A7 {) x

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

* P5 L% ]! a3 Q3 _

---- 1. 朗 读 与 停 止

... procedure TfrmMain.btnReadClick(Sender: TObject); 3 b) g% z) M1 j5 L5 {) G% @ begin FISpeech.Speak(memText.Lines.Text, vtxtst_ 3 M2 \" T: m; dREADING); btnPause.Enabled := True; 4 z, r; i8 q, q# I% | btnStop.Enabled := True; 7 g$ {# o- V1 T* ] end; procedure TfrmMain.btnStopClick(Sender: TObject); ) q/ H/ U( J* T& F% c begin + ?5 B- @9 v# W/ F' N' U6 | FISpeech.StopSpeaking; . j% ?2 `9 [6 O, i7 h btnPause.Enabled := False; 0 \3 `1 i" O$ i, B# b- T btnStop.Enabled := False; btnPause.Caption := ‘ 暂 停( ＆P)'; end; ...

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

$ K2 u) ? n, w8 s; [- ?

---- 2. 暂 停 与 恢 复

7 z' g- t% t* y' I4 w3 k

... ! @9 P# E0 D; rprocedure TfrmMain.btnPauseClick(Sender: TObject); * x# s7 G; h) Y% \. a) b* N4 i begin with FISpeech do & {, Y q5 u2 l6 X: [2 u( q if IsSpeaking then 5 i0 Z7 C W0 Z4 W0 M begin AudioPause; 4 h6 A g/ _, b9 D0 }' L: I. g btnPause.Caption := ‘ 恢 复( ＆R)'; end else begin AudioResume; % J( U( Q, \# H: C& g# b% P' q6 C btnPause.Caption := ‘ 暂 停( ＆P)'; * K8 l3 U7 N' t& Y6 O3 D# ~( I end; end; - w, a+ B" Y# R; T...

7 X5 c3 {9 U# [5 K" `

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

* H( y* E: r2 Y9 G- G# B& O: N, N

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

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

... IVTxtAuto = interface(IDispatch) 2 ]0 h- O) U- C+ M/ q ... property Speed: Integer read Get_Speed write Set_Speed; property Enabled: Integer read Get_Enabled write Set_Enabled; 1 y; W7 I; Q1 f ... end; ...

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

2 C& m4 \ j8 ?3 C7 G3 }

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

( Z- @- o( C! t0 Z5 m$ q

----本 文 程 序 在Win NT/98 ＋ Delphi 4/5 环 境 下 调 试 通 过。 ) Y: V: G7 ^- y! A& `: w# ?