Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Anonimus © (2003-02-27 09:59:00)
Заранее спасибо...!!!!

Colt (2003-02-28 07:55:00) [1]
Статьи об агентах на сайте похоже не осталось, тут у себя порылся и кое что накопал:

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

Сергей (2003-02-28 06:01:00) [2]
Могу прислать свои разработки, пример чата, убийца приложений и прочее.... Шли заявку на мыло.....

AlexandrRya (2003-02-27 12:18:00) [3]
Помоему в разделе статей на этом сайте была статья про сабж.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »