) {: ?9 a9 @( k; b8 O' a# o2 \4 R 华 中 师 范 大 学 卢 小 海(flier@126.com)
各位朋友，请加入本站邮件列表，你将得到本站最新更新及动态。
* i. O2 n' n( f---- 金 山 词 霸2000 的 英 文 全 文 朗 读 功 能 相 信 一 定 给 尝 试 过 的 用 户 留 下 了 很 深 刻 的 印 象， 而 作 为 一 个 程 序 设 计 者， 你 一 定 也 想 在 自 己 的 程 序 中 加 入 类 似 的 功 能 吧， 因 为 那 将 让 自 己 的 程 序 增 色 不 少。 ----其 实 这 并 不 是 一 件 困 难 的 事， 因 为 金 山 词 霸 实 际 上 也 只 是 直 接 使 用 了MS 的TTS（Text －to －Speech） 技 术 而 已， 通 过 对MS Speech API 的 编 程， 我 们 完 全 可 以 实 现 比 其 更 强 大 的 功 能。 下 面， 让 我 们 在Delphi 环 境 下 实 际 尝 试 一 下。
* G# |' Q1 j8 A+ O, x----首 先 从 金 山 词 霸 的 光 盘 上\ciba 目 录 下 运 行 并 安 装mstts.exe(MS TTS engine) 和spchapi.exe(MS Speech API)。
( i' S5 }/ B1 s7 U& p) z- t----再 在Delphi 里 新 建 一 个Application。
----然 后 从Delphi 的 菜 单Project/Import Type Library... 中 选 击Add...， 浏 览 到Windows 目 录 下 的Speech 子 目 录 里， 打 开vtxtauto.tlb， 可 以 看 到 下 面Class names 中 会 出 现 我 们 需 要 的 接 口 的 包 装 类 的 名 字TVTxtAuto， 注 意 对 话 框 底 部 的Generate Component Wrapper 需 要 被 选 中， 点 击Create Unit 就 可 以 打 开 一 个 名 为VTxtAuto_TLB 的Unit。
* k" \$ @( r9 H# ^----至 此， 我 们 就 可 以 开 始 实 际 编 程 了。
----首 先 在Form 的OnCreate 中 对 需 要 使 用 接 口 初 始 化 并 进 行 注 册：
...4 w0 O5 y0 [6 r0 _ procedure TfrmMain.FormCreate(Sender: TObject);3 ~) L1 e' A8 M4 u' _( U# e% e, F6 j begin( V( d! r* z! ^/ M& D5 p$ q FISpeech := CoVTxtAuto_.Create;5 z- ?: X0 ^6 U9 X. e+ b/ M FISpeech.Register(‘Demo Site', ‘Demo App'); end; ...
* d- L2 Z1 U* T, w----由 于Delphi 对 接 口 进 行 了 良 好 的 包 装， 因 此 只 需 直 接 建 立 包 装 类， 其 他 后 台 的 操 作 如 接 口 的 查 询、 释 放 等 交 给Delphi 在 后 台 自 动 完 成。
u+ B4 W- u# q% R1 a----注 意 这 里 的Register 操 作 是 必 不 可 少 的， 因 为 可 能 有 多 个 程 序 不 同 设 置 使 用TTS 引 擎。
----然 后 在MainForm 上 放 一 个TMemo 和 若 干 个 TButton， 并 在 其OnClick 中 加 入 对 应 的 代 码。
Form 定 义 如 下：
8 F) N7 o. v uobject frmMain: TfrmMain Left = 296( {/ h- K1 r! g' Y Top = 187& k5 v! }) k- \- Z1 n BorderStyle = bsDialog2 f% M3 I1 a, V7 v6 w Caption = ‘ 英 文 全 文 朗 读 演 示' R5 p/ ~* N$ ~" v ClientHeight = 185+ D" O+ ^* z: @2 u0 \) a ClientWidth = 456; a3 Z) @! d; W6 x Color = clBtnFace7 b3 j% i# {2 \" q Font.Charset = GB2312_CHARSET Font.Color = clWindowText Font.Height = －12" T) O- r! X' l3 ~ Font.Name = ‘ 宋 体'& A& u( a/ B$ L) ]4 _1 X: k$ e Font.Style = []; O# M# n& q- O9 L! N9 ^ OldCreateOrder = False Position = poDesktopCenter. `& M0 g2 z* b( S0 l OnCreate = FormCreate2 S# @3 r, s9 ~4 g7 I5 }0 g PixelsPerInch = 96 TextHeight = 12* ~; ?$ Q0 D! f2 I: s. } object memText: TMemo Left = 8, F& }! |" W% r. o# r. a Top = 8% u! \% E: Q+ n. V9 i# H+ Q' } Width = 361 Height = 1694 W* U# g& n- V8 \0 B ScrollBars = ssVertical TabOrder = 04 o' ]) Y/ B( i5 N7 Z! ]7 A7 ~/ p end$ O3 [9 n" n) y" D object btnRead: TButton Left = 376 Top = 84 v$ W0 Y7 a, h1 q9 v9 ` Width = 759 B2 ~: J3 K( l5 m+ ^) U Height = 25 Caption = ‘ 朗 读( ＆R)' TabOrder = 1 OnClick = btnReadClick4 ^# a4 X' c7 r3 p- B$ H end: |' Q, _& M7 r) Z! d* _% `4 n8 l6 x object btnPause: TButton% H& C, P7 e0 I Left = 3765 j7 I# n7 t4 h) K" l% I; D( T9 s Top = 40 Width = 75 Height = 25! e5 I' m7 S; ?; m0 K Caption = ‘ 暂 停( ＆P)' Enabled = False w0 L" |$ X1 f TabOrder = 2: r _6 q7 M, x- m OnClick = btnPauseClick end object btnStop: TButton) X+ ~1 V; X+ J* A* x4 g Left = 376 Top = 72/ v. d( K9 O6 N# l Width = 75 Height = 25 Caption = ‘ 停 止( ＆S)'! ~: m% y E0 T! J7 C Enabled = False% J+ U" d" x- X2 U4 q0 L TabOrder = 36 B/ w$ t$ H0 q1 U OnClick = btnStopClick end( I$ I" S" J/ A1 o7 y1 U: N object btnForward: TButton Left = 376; d5 O/ Q) h, [) R: V Top = 1209 r5 ?0 L3 h4 a( Z Width = 75 Height = 25 Caption = ‘ 下 一 句( ＆N)' Enabled = False TabOrder = 4 OnClick = btnForwardClick end6 [2 E& W1 Z" [% Q+ w) q2 w object btnRewind: TButton Left = 376 Top = 152- e) d7 D7 h, q Width = 75 Height = 25 Caption = ‘ 上 一 句( ＆W)'( ?7 t- u. t3 E7 z R! Y( y Enabled = False TabOrder = 5 OnClick = btnRewindClick end end
0 G$ e% l# R5 x: f1 ?----关 键 代 码 段 如 下：
---- 1. 朗 读 与 停 止
6 _$ N) H" U$ Z, O5 ] ?... procedure TfrmMain.btnReadClick(Sender: TObject); begin# ^2 {" {+ _5 m2 ~& k2 M- Y FISpeech.Speak(memText.Lines.Text, vtxtst_ 7 n H/ j% w4 n8 E& S: g READING);9 Q4 r8 @3 P i' | btnPause.Enabled := True; btnStop.Enabled := True; end;4 S: e, q/ \; w4 h; q7 [! E3 { $ _0 e' N: A4 x0 u4 g procedure TfrmMain.btnStopClick(Sender: TObject);9 e: S4 {; m0 s. S) N begin FISpeech.StopSpeaking; btnPause.Enabled := False;" L- `! S9 k/ s3 Y1 a: q! m btnStop.Enabled := False; btnPause.Caption := ‘ 暂 停( ＆P)'; end; ...
----Speak 成 员 函 数 的 第 一 个 参 数 向TTS 引 擎 传 递 需 要 朗 读 的 文 字， 第 二 个 参 数 由 指 定 朗 读 时 使 用 的 语 气 和 优 先 级 的 两 个 符 号 合 并 而 成。
---- 2. 暂 停 与 恢 复
... procedure TfrmMain.btnPauseClick(Sender: TObject);2 u& h" G' h: E3 D9 R Y begin1 p# W2 S( s& N! g- G with FISpeech do( @! q( t- \4 f4 {0 ]+ V: l5 Z if IsSpeaking then8 |$ T0 u7 Q9 @ begin AudioPause; btnPause.Caption := ‘ 恢 复( ＆R)'; end else1 |+ f5 G: Q' O, O: M9 R begin AudioResume;$ k1 N1 z# b% x. R% X# L6 Z+ ` btnPause.Caption := ‘ 暂 停( ＆P)';8 \3 ]: ^5 w) ^1 X end;& L- x: g o8 l' N- y8 L3 W end;3 N! M1 x6 I* ^# F! X ...
----这 里 通 过IsSpeaking 属 性 可 以 取 得 当 前 状 态， 然 后 通 过AudioPause 和AudioResume 暂 停 和 恢 复 朗 读。
----另 外 用 成 员 函 数AudioFastForward 和AudioRewind 可 以 向 前 和 后 跳 过 一 句 朗 读， 通 过 读 写Speed 属 性 还 可 以 取 得 或 设 置 朗 读 的 语 速， 单 位 是 字/ 分， 缺 省 值 为170。
----注 意Speed 和Enabled 属 性 缺 省 设 置 是 只 写 的， 但 实 际 上IVTxtAuto 提 供 了Get_Speed 和Get_Enabled 函 数， 所 以 我 们 只 要 把VTxtAuto_TLB 单 元 中 的 声 明 修 改 一 下， 如:
...- V# Q5 D% S! P5 m& P IVTxtAuto = interface(IDispatch)7 w. S8 l0 _8 r7 K6 k" n& y" g ...; _3 y% z! k+ \# ~ property Speed: Integer read Get_Speed write Set_Speed; property Enabled: Integer read Get_Enabled write Set_Enabled; ... end; ...
----即 可 正 常 使 用Speed 和Enabled 属 性 了。
----至 此， 一 个 简 单 的 英 文 全 文 朗 读 器 就 完 成 了， 有 兴 趣 的 朋 友 可 以 为 其 加 入 监 视 剪 贴 板， 热 键 激 活 等 功 能。
7 \* t! {- s1 d1 B2 u/ n9 Z* j----本 文 程 序 在Win NT/98 ＋ Delphi 4/5 环 境 下 调 试 通 过。
| 欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) | Powered by Discuz! X2.5 |