MicrosoftAgent

← →
Demol (2002-02-13 17:29) [0]

Подскажите пожалуйста как получить список анимаций для 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-13 18:24) [1]

var
AEnum: IAgentCtlAnimationNames

← →
Андре © (2002-02-14 10:23) [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". Может все таки как-то по другому ?

>Андре
>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 !!!

MicrosoftAgent Найти похожие ветки