Скажите плиз где взять пример работы с MS Agentом на Дельфи???

← →
Anonimus (2003-02-27 09:59) [0]

Заранее спасибо...!!!!

← →
AlexandrRya (2003-02-27 12:18) [1]

Помоему в разделе статей на этом сайте была статья про сабж.

← →
Сергей (2003-02-28 06:01) [2]

Могу прислать свои разработки, пример чата, убийца приложений и прочее.... Шли заявку на мыло.....

Статьи об агентах на сайте похоже не осталось, тут у себя порылся и кое что накопал:

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Forms,
AgentObjects_TLB, Controls, OleCtrls ;
type
TForm1 = class(TForm)
Agent1: TAgent;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
procedure WaitFor(Request:IAgentCtlRequest);
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation
{$R *.DFM}
var
Character:IAgentCtlCharacter;
Request: IAgentCtlRequest;
Const
AGENT ="nn";
AGENTPATH = "D:\Chars\nn.acs"; // здесь нужно прописать путь где находится ваш агент

procedure TForm1.WaitFor(Request:IAgentCtlRequest);
var
Status:LongInt;
begin
repeat
Application.ProcessMessages;
Status := Request.Get_Status;
until (Status <> 2) and (Status <> 4);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Agent1.Connected:=true;
Request:=Agent1.Characters.Load(Agent,AgentPath);
Character:=Agent1.Characters.Character(Agent);
Request := Character.MoveTo(640,365, 0);
Request := Character.Show(False);
WaitFor(Request);
Request := Character.Speak("Привет",EmptyParam);
Request := Character.Play("Greet");
Request := Character.MoveTo(0,365, 1500);
Request := Character.Play("Announce");
Request := Character.MoveTo(0,0, 1500);
Request := Character.Play("Suggest");
Request := Character.MoveTo(300,300, 1500);
Request := Character.MoveTo(100,300, 1500);
Request := Character.GestureAt(800,300);
end;
end.
=======================
а здесь агенты:
http://agentry.net/
http://www.rohitab.com/freevoice/gallery.html
http://www.msagentring.org/
http://desktopmates.com/gallery.html

Скажите плиз где взять пример работы с MS Agentом на Дельфи??? Найти похожие ветки