Как получить список анимации у Анимированного персонажа Microsoft

← →
TeNY © (2004-09-08 13:05) [0]

Как получить список анимации у Анимированного персонажа Microsoft agent на запрос типа этого выдает ошибку

var
AnimationNames: IAgentCtlAnimationNames;
AEnum: IEnumVariant;
Fetch: Cardinal;
V: OleVariant;
begin
AnimationNames.
AnimationNames := chart.AnimationNames;
AEnum := chart.AnimationNames.Enum as IEnumVariant;
AEnum.Reset;
Memo1.Clear;
Repeat
AEnum.Next(1,V,Fetch);
If intToStr(V) <> EmptyStr Then
Memo1.Lines.Add(V);
until Fetch=0;

← →
TeNY © (2004-09-09 06:30) [1]

Так в чём же ошибка улюди!

← →
Digitman © (2004-09-09 08:26) [2]

> выдает ошибку

какую ?

← →
TeNY © (2004-09-12 11:41) [3]

что то типа не могу рид ффффффф 000000

← →
TeNY © (2004-09-12 11:41) [4]

Причем на бейсике подобные процедуры без мата работают

← →
Polevi © (2004-09-12 19:25) [5]

чему равен Fetch

http://subritto.h1.ru/msagent/msagent1.php

>
> Anton_K © (12.09.04 19:43) [6]
> http://subritto.h1.ru/msagent/msagent1.php

Код один к одному и туже ошибку генерит

procedure ShowAgentAnim;
var
AEnum: IEnumVariant;
flag: Cardinal;
V: OleVariant;
begin
with Form1 do
begin
AEnum:=(Chars.AnimationNames.Enum) as IEnumVariant;
{Получаем интерфейс анимаций агента}
AEnum.Reset; //Сбрасываем список на первую анимацию
ListBox1.Items.Clear;
repeat
AEnum.Next(1, V, flag);
if VarToStr(V) <> "" Then
ListBox1.Items.Add(V);
until flag=0;
{Флажок будет равен 0, когда мы узнали имя последней анимации}
end;
end;

и еще компилятор на VarToStr ругается пишет что незнает этого

Всё ясно!У меня же D7 :(

Как получить список анимации у Анимированного персонажа Microsoft Найти похожие ветки