共有评论12条
当前显示最后6条评论
|
register |
2007/6/7 21:27:33 |
出错位置: procedure TAgent.CreateControl;
procedure DoCreate; begin FIntf := IUnknown(OleObject) as IAgentCtlEx; end;
begin if FIntf = nil then DoCreate; end;
出错提示: Access violation at address 0045CDC2 in modeult 'TestMsAgent.exe'.Read of address 00000338. |
register |
2007/6/7 22:09:05 |
TForm1 = class(TForm) btnCreateAgent: TButton; btnAgentSpeak: TButton; private MyAgent: TAgent; Peedy: IAgentCtlCharacterEx; Request1: IagentCtlRequest; end;
procedure TForm1.btnCreateAgentClick(Sender: TObject); begin MyAgent := TAgent.Create(self); if OpenDialog1.Execute then begin Request1 := MyAgent.Characters.Load('Peedy', OpenDialog1.FileName); Peedy := MyAgent.Characters.Character('Peedy'); Peedy.Show(0); end; end;
procedure TForm1.btnAgentSpeakClick(Sender: TObject); begin Peedy.LanguageID := $0409;
Peedy.Speak('TTS测试正常,可为什么我还是个哑巴?', ''); end; |
qvbfndcwy |
2007/6/8 10:18:08 |
最近下载了lps的文件,发现Peedy.LanguageID := $0409;这句一定要加上,agent才可以说话。 |
kongxiangji |
2007/6/22 11:24:30 |
原来那么多人遇到这个问题啊,我原来也是在论坛上发帖子,没人解决。 能为大家解决问题是件幸福的事。 |
kongxiangji |
2007/6/22 11:33:04 |
最后我在yahoo上搜到一个国外的网站上找到了那个文件。 |
yuelinniao |
2008/1/2 23:33:07 |
不知道是不是因为国内言论自由度的问题。国内技术员不共享解决方法,搜帖不发帖。我很早就对这个问题反思过。 |
我要发表评论 |
查看全部评论 |