Список анимаций для персонажа MS Agent

Проекты

Сборник идей для разработок в Delphi и использования их в Интернет. Участвуй в работе коллективного разума!

Google API в Delphi - проект с открытым исходным кодом.

А тут я коплю на лицензию Delphi 2011. Сумма пожертвования не фиксирована.

Друзья блога

Блоги и сообщества

Случайный пост

Счётчики

05Aug

Список анимаций для персонажа MS Agent.

MS Agent в Delphi

merlin Сегодня рассмотрим ещё один момент работы с MS Agent в Delphi. Научимся получать список доступных анимаций для персонажа.

Дело в том, что помимо стандартных анимаций типа Move, Show, Hide и пр. любой персонаж может содержать свой уникальный набор анимаций, которые могут в значительной степини повысить реалистичность поведения персонажа на экране монитора.

В качестве практической работы, я предлагаю разработать небольшое приложение, с помощью которого мы и будем просматривать анимации персонажей.В будущем это приложение может Вам очень пригодиться для выбора набора анимаций персонажа в своих приложениях. ' '

Итак, запускаем Delphi, создаем новый проект и размещаем на форме 2 компонента Memo, 1 ListBox, 1 Bevel, 1 Edit, 1 Button, 1 OpenDialog и, естественно, Agent. У меня получился следующий вид приложения:

Главная форма приложения

При работе с программой мы будем запрашивать следующую информацию:

Имя персонажа
Версию набора анимаций
Описание персонажа
Дополнительные данные по персонажу
Список анимаций

Дополнительно при выборе в списке анимации будем её проигрывать.

Теперь заводим глобальную переменную:

Char: IAgentCtlCharacterEx;

В обработчике события Button1Click единственной кнопки пишем следующий код:

Agent1.Characters.Load('MyAgent',OpenDialog1.FileName) ;
  Edit1.Text:=OpenDialog1.FileName;
  Char:=Agent1.Characters.Character('MyAgent') as   IAgentCtlCharacterEx;
  Char.MoveTo(Form1.Left, Form1.Top+70, 1000);
  Char.Show(0);
  label7.Caption:=Char.Name;
  label8.Caption:=Char.Version;
  Memo1.Lines.Clear;
  Memo1.Text:=Char.Description;
  Memo2.Clear;
  Memo2.Text:=Char.ExtraData;

Прошу обратить Ваше внимание а строку:

Char.MoveTo(Form1.Left, Form1.Top+70, 1000);

Если судить строго – то за такую запись меня следовало бы расстрелять :) Дело в том, что здесь мы ещё не показывая персонаж пользователю перемещаем его в необходимое место – в данном случае в центр Bevel’а. Если следовать всем правилам, то вместо Form1.Top+70 следует программно определять необходимую координату, чтобы не было никаких +70 +100 и пр. констант.

Кстати про анимации в принципее – если вас интересуют игры для сотовы. то вы можете скачать игры на телефон бесплатно
Теперь переходим к анимациям. Здесь, надо сказать, без бутылки не разобраться. Список всех доступных анимаций содержится в коллекции AnimationNames расширенного интерфейса объекта Character. Если вы попробуете обратиться к коллекции напрямую – ничего хорошего не выйдет (см. рисунок)

agprop_2 Можете просмотреть все доступные свойства и методы у AnimationNames, но Вы не найдёте ни одного, который возвращал бы string или что-нибудь более менее читабельное. И вот тут нам потребуется модуль ActiveX. Подключаем его в uses и пишем “хитрую” процедурку, которая будет выводить в список все доступные анимации персонажа:

procedure TForm1.GetAgentAnimations;
var i:integer;
    AEnum: IEnumVARIANT;
    V: OleVariant;
    flag:cardinal;
begin
  Char.AnimationNames.Enum.QueryInterface(IEnumVariant, AEnum);
  ListBox1.Clear;
  AEnum.Reset;
repeat
  AEnum.Next(1,V,flag);
  if VarToStr(V)&lt;&gt;'' then
  ListBox1.Items.Add(V);
until flag=0;
end;

Обратите внимание на переменную AEnum – собственно это интерфейс необходимый нам для перечисления всех свойств персонажа. Без подключения модуля ActiveX его нет. Спрашивается – как неискушенному в вопросамх MS Agent программисту догадаться использовать интерфейс IEnumVARIANT? А никак. Для этого как минимум надо знать VC++ и уметь работать там с агентами. Благо есть ещё добрые люди, которые подсказали мне как получать списки анимаций. Теперь и вы знаете :).

Остался последний момент – проиграть анимацию из списка. Нет ничего проще. Пишем:

procedure TForm1.ListBox1Click(Sender: TObject);
begin
Char.Stop(EmptyParam);
Char.Play(ListBox1.Items.Strings[ListBox1.ItemIndex])
end;

Здесь мы сначала прерываем уже запущенную анимацию (если она есть) и проигрываем необходимую нам. Если Вы все сделали правильно, то вид приложения после запуска будет примерно следующим:

agprop_3

Ну и в конце статьи я, на всякий случай приложу уже готовую программу для просмотра свойств персонажа (вдруг кому пригодиться):

Программа для просмотра действий персонажа
UPDATE
Обновленная версия просмотрщика действий персонажа

Мой блог находят по следующим фразам

Автор Vlad в 12:20 pm

Метки: IEnumVariant, TAgent, персонаж

Delphi в Internet

О блоге:

Подписка