人懒,无法.(200分)

  • 主题发起人 主题发起人 Chenlili
  • 开始时间 开始时间
C

Chenlili

Unregistered / Unconfirmed
GUEST, unregistred user!
请给点M$ text to speech的例子,资料,文档
谢了.
 
贴出来三个多小时了,看来比你懒的人多的是.
我来开个头.
 
bdn.borland.com
搜索一下,我记得有一个系列的文章,其中的源码我还编译通过了!
 
沒做過。同意樓上的。SO一下吧。。。
 
不知道懒人有时间发分吗?
http://www1.baidu.com/baidu?tn=baiduos&ct=0&ie=gb2312&bs=text+to+speech%BC%BC%CA%F5&sr=&cl=3&f=8&word=text+to+speech+delphi
http://www.google.com/search?q=text+to+speech+delphi&ie=GB2312&hl=zh-CN&btnG=Google%CB%D1%CB%F7&lr=lang_zh-CN%7Clang_zh-TW
 
大家都是懒人啊,包括我[:)]
 
var
Form1: TForm1;
iv:ivtxtauto;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
iv:=nil;
coinitialize(nil);
olecheck(cocreateinstance(class_vtxtauto_,nil,clsctx_all,iid_ivtxtauto,iv));
iv.Register('demo1','project1.exe');
iv.Set_Enabled(1);
iv.Speak('hello',vtxtsp_veryhigh);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if Edit1.Text<>'' then
iv.Speak(Edit1.Text,100);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
iv._Release;
end;

end.
 
能不能说中文的?
ivtxtauto;是在哪里声明的?
 
中文的不会,ivtxtauto是delphi生成的一个unit VTxtAuto_TLB文件,是自动导入的
很久以前用的,没留下文档,现在记不清了
 
装 MS 的 SDK ,然后懒得只要拖一个控件 Speak 就行。可以中文的说。
懒得不行就 cut copy 到控制面板里的 Speak 属性页读也行。
 
懒一点,贴链接:
http://www.delphibbs.com/delphibbs/dispq.asp?lid=427636
http://www.delphibbs.com/delphibbs/dispq.asp?lid=989648
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1009828
http://www.delphibbs.com/delphibbs/dispq.asp?lid=938105
 
写错了,是 SpVoice1: TSpVoice 控件。嘿嘿,我也是懒啊。
就一句: SpVoice1.Speak(memo1.Lines.Text,1);
 
电脑报曾经介绍个过,还比较详细,
 
版主你好,能不能透露点COM+技术,如饥似渴。
我的MAIL是:hzjone@hotmail.com.请多指教。
 
后退
顶部