Главная страница
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.009 c
1-9132
Fast
2002-02-17 09:45
2002.03.04
Элементарная вещь


1-9156
roman001
2002-02-13 18:25
2002.03.04
печать из Memo


3-9074
Drik
2002-02-04 20:29
2002.03.04
QReport & печать на принтер


14-9274
jk
2002-01-16 18:40
2002.03.04
Гребаный ActiveX


14-9286
Alx2
2002-01-18 08:09
2002.03.04
Святая вода, или тема на злобу дня