| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Анимационный персонаж [D7, WinXP]

Mysterious ©   (2006-01-16 21:08:00) 

Меня интересует следующий вопрос:
 Как можно добавить в свою программу анимационного персонажа (аля скрепыш, джинн из MS Office). Причем персонажа уже готового, так как делать его охоты нет никакой. Использование - примерно как в том же офисе: машет руками и комментирует действия

---

Mysterious   (2006-01-21 02:15:00) [1]

Если кому-то интересно, для чего это было нужно, зайдите на http://normality-int.narod.ru/3ds.html

---

Mysterious   (2006-01-20 22:45:00) [2]

Спасибо, очень благодарен

---

Rouse_   (2006-01-17 10:01:00) [3]

В свое время эксперементировал, а потом бросил эту затею - не то...

unit Unit1;

interface

uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, OleCtrls, AgentObjects_TLB;

type
 TForm1 = class(TForm)
   Agent1: TAgent;
   Button1: TButton;
   Button2: TButton;
   Button3: TButton;
   Button4: TButton;
   procedure FormCreate(Sender: TObject);
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
   procedure Button3Click(Sender: TObject);
   procedure Button4Click(Sender: TObject);
 private
   { Private declarations }
 public
   { Public declarations }
   Agent: IAgentCtlCharacter;
   Ag:IAgentCtlCharacterEX;
 end;

var
 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin                                           //   rover
  Agent1.Characters.Load('my character', 'merlin.acs');
//   ag:= agent1.Characters('my character');
  Agent := Agent1.Characters.Character('my character');
  Agent.Show(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Agent.Speak ('This is \map=' + chr(34) + 'Spoken text'+ chr(34) + '=' + chr(34) + 'Balloon text' + chr(34) + '\.','');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Agent.Speak ('This is Balloon text.','');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Agent.Play('Confused'); //greet   surprised  GestureRight Acknowledge
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
agent.Commands.Add ('ReadMsg', '&Read Message', 'read message','True','True');
agent.Commands['ReadMsg'].Voice := 'read message';
end;

end.

---

Deka   (2006-01-17 09:30:00) [4]

Здесь есть информация по программированию MS Agent's...
http://subritto.h1.ru/msagent/msagent.php

---

Bogdan1024   (2006-01-17 03:11:00) [5]

Возьми кучу gifок с нужными действиями, отображай их в animate когда надо

---

tesseract   (2006-01-16 21:38:00) [6]

В кладовке www.kladovka.net.ru посмотри  Kerk-овские модули - там есть screenmate. Или  ставь Api Microsoft Agent.

---

Наверх