Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.04;
Скачать: CL | DM;

Вниз

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". Может все таки как-то по другому ?


 
Digitman (M) ©   (2002-02-14 10:41) [3]

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



Страницы: 1 вся ветка

Текущий архив: 2002.03.04;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.007 c
4-9337
Mush[RUM]
2002-01-05 01:41
2002.03.04
Folder


1-9202
Winer
2002-02-14 18:08
2002.03.04
PopUp menu


1-9220
Zluka
2002-02-15 12:17
2002.03.04
TFileStream


1-9183
USAtyj
2002-02-12 18:21
2002.03.04
Про массивы и про High() (+)


3-9081
bsa
2002-02-05 15:56
2002.03.04
Как быть с циклическими ссылками в таблицах??