استفاده از microsoft agent در دلفی

[rsheytoonak]

چطوری میشه از agent در دلفی استفاده کرد من یه سری کد تو چند تا سایت پیدا کردم ولی جواب نمی ده متاسفانه تویه هر سایتیم که دربارش نوشته کپی از رویه همدیگه هست اگه میتونید راهنماییم کنید

[rsheytoonak]

بچه ها اینم کد استفاده از agent


uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, AgentObjects_TLB, StdCtrls;
type
TForm1 = class(TForm)
Agent1: TAgent;
Edit1: TEdit;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
Agente: IAgentCtlCharacter;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
Agent1.Connected := True;
Agent1.Characters.Load('merlin', 'merlin.acs');
// Associar o agente à vari?vel Agente
Agente:= Agent1.Characters['merlin'];
Agente.Show(0); // Aparecer 0-lentamente 1-instantaneamente
// Encenaç?o de abertura
Agente.Play('Greet'); // Cumprimentar
Agente.Play('Announce'); // Anunciar
Agente.Speak('reza', EmptyStr); // Falar
Sleep(700); // Da uma pausa ao programa
Agente.Speak('reza', EmptyStr);
Agente.Play('RestPose'); // Descansar
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Agente.Hide(0);
Agent1.Connected:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Agente.Speak(edit1.Text,EmptyStr);
end;