MS Agents
15/12/2005
0
Agora tow precisando fazer ele questionar o usuario, tipo o [b:7fdfb0c824]MessageDlg[/b:7fdfb0c824]..
Alguem aki jah uso os Agentes para tal finalidade???
Como posso usa-lo desta maneira????
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, AgentObjects_TLB; type TForm1 = class(TForm) Agent1: TAgent; procedure FormCreate(Sender: TObject); procedure FormDestroy(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(´Peedy´, ´Peedy.acs´); // Associar o agente à variável Agente Agente := Agent1.Characters[´Peedy´]; Agente.Show(0); // Aparecer 0-lentamente 1-instantaneamente Agente.Play(´Greet´); // Cumprimentar Agente.Speak(´Olá!´, EmptyStr); // Falar Agente.MoveTo(Screen.Width - Agente.Width, Screen.Height-Agente.Height,5); Agente.Play(´RestPose´); // Descansar end; procedure TForm1.FormDestroy(Sender: TObject); begin Agente.Hide(0); Agent1.Connected:=false; end; end.
Abraços
Aloizio Castro
Posts
15/12/2005
Edilcimar
lá ele lhe forneceu o local onde existe exemplo
15/12/2005
Aloizio Castro
Alguem mais tem dicas?
Abraços [:(]
16/12/2005
Aloizio Castro
Clique aqui para fazer login e interagir na Comunidade :)