استفاده از 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;