Форум: "WinAPI";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];
ВнизСкажите плиз где взять пример работы с MS Agentом на Дельфи??? Найти похожие ветки
← →
Anonimus (2003-02-27 09:59) [0]Заранее спасибо...!!!!
← →
AlexandrRya (2003-02-27 12:18) [1]Помоему в разделе статей на этом сайте была статья про сабж.
← →
Сергей (2003-02-28 06:01) [2]Могу прислать свои разработки, пример чата, убийца приложений и прочее.... Шли заявку на мыло.....
← →
Colt (2003-02-28 07:55) [3]Статьи об агентах на сайте похоже не осталось, тут у себя порылся и кое что накопал:
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
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2003.04.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c