请问如何调用金山词霸的男女读音，要求输入一篇英文短文后，可以朗读出来。请发MAIL给我，如果有源码更好。200分(200分)

请问如何调用金山词霸的男女读音，要求输入一篇英文短文后，可以朗读出来。请发MAIL给我，如果有源码更好。200分

金山的语音功能用是M$的 Text To Speech 技术

Delphi 6 CD 2 上有TTS接口单元和演示程序

我刚刚去找没找到，是源码吗？

gz

我要关注

[]

这是TTS技术！ 你首先要安装这个ActiveX控件！
论坛有很多帖子，你搜索一下！

我以前写的代码：
procedure Tmian.FormCreate(Sender: TObject);
begin
FISpeech:=CoVTxtAuto_.Create;
FISpeech.Register('Demo Site','Demo App');
waveoutgetvolume(0,@ v); //得到当前的音量
end;

procedure Tmian.BitBtn1Click(Sender: TObject);
var str:string;
begin
str:=RichEdit1.SelText;
if str='' then str:=RichEdit1.Text;
if str='' then
begin
Application.MessageBox('请点击 “ 打开 ” 按钮选择您所需朗读的英文文章！','提醒！',MB_OKCANCEL);
BitBtn5.SetFocus;
exit;
end;
fispeech.StopSpeaking; //停止说
fispeech.speak(str,vtxtst_READING);//说话
end;

procedure Tmian.ScrollBar1Change(Sender: TObject);
begin
fispeech.speed:=ScrollBar1.Position; //语速设置
end;

procedure Tmian.BitBtn3Click(Sender: TObject);
begin
fispeech.AudioPause; //暂停
end;

procedure Tmian.BitBtn4Click(Sender: TObject);
begin
fispeech.AudioResume; //继续
end;

procedure Tmian.SpeedButton1Click(Sender: TObject);
begin
close;
end;

请问在哪里可以找到这个控件安装，说好可以用马上给分。多 谢！

请问可不可以把实例和控件压缩了发给我，xieyj@esquel.com收到即给分。OK，谢谢

接受答案了.

to xieyj：
不好意思，我一直没有看到这个帖子，现在刚刚看到！
TTS的东东网上已经有很多了，你可以到如下几个网址中搜搜，都能找到程序的！

http://www.playicq.com/ Delphi 共享社区
http://mydelphi.8u8.com/index0.htm delphi园地
http://211.100.17.210:208/ delphi客栈
http://zjfeng.topcool.net/song.htm delphi书库
http://outinn.myrice.com/index.htm 边城客栈

在google中也能找到！