其它功能都可以正常实现,就是说话功能未能如愿,请高手帮帮忙,分数不是问题,回答得好加100分下面是我的程序
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, AgentObjects_TLB;type
TForm1 = class(TForm)
MyAgent: TAgent;
ListBox1: TListBox;
Button1: TButton;
Label1: TLabel;
GroupBox1: TGroupBox;
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
Merlin: IagentCtlCharacterEx;
Request:IagentCtlRequest;
Actions:array [0..5] of WideString;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
Actions[0]:='Acknowledge';
Actions[1]:='LookDown';
Actions[2]:='Search';
Actions[3]:='Announce';
Actions[4]:='Processing';
Actions[5]:='Reading'; Request := MyAgent.Characters.Load('merlin', 'merlin.acs' );
Merlin := MyAgent.Characters.Character( 'merlin' );
Merlin.Show(0);
end;procedure TForm1.ListBox1Click(Sender: TObject);
begin
Merlin.StopAll('');
Request:=Merlin.Play(Actions[ListBox1.ItemIndex]);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
MyAgent.Characters.Unload('Merlin');
end;procedure TForm1.Button1Click(Sender: TObject);
//其它部分都行,就这里有点问题,小精灵连 嘴巴都不肯动!但是能够编译通过,就是效果不对。
begin
Merlin.StopAll('');
Request:=Merlin.Speak('what can I help you?','');
end;end.
unit Unit1;interfaceuses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, OleCtrls, AgentObjects_TLB;type
TForm1 = class(TForm)
MyAgent: TAgent;
ListBox1: TListBox;
Button1: TButton;
Label1: TLabel;
GroupBox1: TGroupBox;
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;
Merlin: IagentCtlCharacterEx;
Request:IagentCtlRequest;
Actions:array [0..5] of WideString;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
Actions[0]:='Acknowledge';
Actions[1]:='LookDown';
Actions[2]:='Search';
Actions[3]:='Announce';
Actions[4]:='Processing';
Actions[5]:='Reading'; Request := MyAgent.Characters.Load('merlin', 'merlin.acs' );
Merlin := MyAgent.Characters.Character( 'merlin' );
Merlin.Show(0);
end;procedure TForm1.ListBox1Click(Sender: TObject);
begin
Merlin.StopAll('');
Request:=Merlin.Play(Actions[ListBox1.ItemIndex]);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
MyAgent.Characters.Unload('Merlin');
end;procedure TForm1.Button1Click(Sender: TObject);
//其它部分都行,就这里有点问题,小精灵连 嘴巴都不肯动!但是能够编译通过,就是效果不对。
begin
Merlin.StopAll('');
Request:=Merlin.Speak('what can I help you?','');
end;end.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货