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

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

MicrosoftAgent

Demol ©   (2002-02-13 17:29:00) 

Подскажите пожалуйста как получить список анимаций для MicrosoftAgent.

Пробую так:

var ch : IAgentCtlCharacterEx;
AEnum : IEnumVariant;
c : IEnumVariant;
begin
Agent1.Characters.Load("Char", "merlin.acs");
Ch := Agent1.Characters.Character("Char") as AgentCtlCharacterEx;
AEnum := Ch.AnimationNames.Enum;

Delphi ругается, говорит что IEnumVariant не знаю. Что надо прописать в Uses ? Или задачу можно решить по другому ?

---

Digitman (M)   (2002-02-14 10:41:00) [1]

>Андре
>Demol

Кто-нибудь из вас хоть раз заглядывал в AgentObjects_TLB.Pas ?
Там же черным по белому написано :

IAgentCtlCharacterEx = interface(IAgentCtlCharacter)
["{DE8EF600-2F82-11D1-ACAC-00C04FD97575}"]
function Get_AnimationNames: IAgentCtlAnimationNames;
property AnimationNames: IAgentCtlAnimationNames read Get_AnimationNames;
end;

А метод Enum относится уже к получаемому вами интерфейсу IAgentCtlAnimationNames !!!

---

Андре   (2002-02-14 10:23:00) [2]

Вот так ?

var
ch : IAgentCtlCharacterEx;
AEnum : IAgentCtlAnimationNames;
begin
Agent1.Characters.Load("Char", "merlin.acs");
Ch := Agent1.Characters.Character("Char") as IAgentCtlCharacterEx;
AEnum := Ch.AnimationNames.Enum as IAgentCtlAnimationNames;
end;

Все равно не работает. :-((.

Говорит raised exception class EInfCastError with message "Interface not supported". Может все таки как-то по другому ?

---

Digitman (M)   (2002-02-13 18:24:00) [3]

var
AEnum: IAgentCtlAnimationNames

---

Наверх