用delphi实现文本文件的语音朗读(0分)

Y

yaozixuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-15

• #1

怎样用delphi实现文本文件的语音朗读，如何编程？[!]

 

B

bbcoll

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-15

• #2

关注

 

H

hjandy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-15

• #3

从金山词霸中日英版导出语言读取部份,但仅支持英文

(within VTxtAuto_TLB)
pszBuffer->指向字符串 dwFlags->不同语气
procedure Speak(const pszBuffer: WideString;
dwFlags: Integer);
safecall;
停读
procedure StopSpeaking;
safecall;
暂停
procedure AudioPause;
safecall;
停读地方恢复朗读
procedure AudioResume;
safecall;
重新开始朗读
procedure AudioRewind;
safecall;
快速朗读
procedure AudioFastForward;
safecall;
设置朗读速度
property Speed: Integer write Set_Speed;
判断当前朗读是否进行
property IsSpeaking: WordBool read Get_IsSpeaking;
设置朗读速度
procedure Set_Speed(pdwSpeed: Integer);
safecall;
获取朗读速度
function Get_Speed: Integer;
safecall;

 

M

mjy97

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-15

• #4

SAPI5可实现中文朗读，可给你DEMO看看。
不过，最好有好东东交换，如财务或进销存源码！

 

Y

yaozixuan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-15

• #5

mjy97给DEMO看看?财务或进销存源码我没有，但我可以和你交流mrpii/erp
方面的事情，为您提供些资料。
qiangyao@sina.com[8D]

 

L

LittleSong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #6

to mjy97:给我一份好吗？急用，我可以给分

 

电

电暖气

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #7

没有东西换
diannuanqi@21cn.com

 

B

Blueman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #8

工程菜单中的导入类型库菜单,选择windows/
speech目录下的vtxtauto.tlb文件，
单击确定后delphi会自动生成vtxauto_TLB.pas文件，它包含了TTS的com接口。
应用如下:
uses vtxauto_TLB;

var TTS: ivtxtauto;

用前：
TTS:=covtxtauto_.Create

TTS.Register('project1','project1');

用后：
TTS:=nil;

TTs.speak('要读的字符串',vtxtst_reading);

TTs.stopspeaking;
// 停止
TTs.set_speed(1);
// 速度

 

M

meng9999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-21

• #9

是板卡开发吗，用tts可以啊！

 

Q

qiangyao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-26

• #10

SAPI5可以实现，可以下载，但呻吟不好听