Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

TeNY © (2004-09-08 13:05:00)
Как получить список анимации у Анимированного персонажа 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-13 06:09:00) [1]
Всё ясно!У меня же D7 :(

TeNY (2004-09-13 06:07:00) [2]

>
> 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 ругается пишет что незнает этого

Anton_K (2004-09-12 19:43:00) [3]
http://subritto.h1.ru/msagent/msagent1.php

Polevi (2004-09-12 19:25:00) [4]
чему равен Fetch

TeNY (2004-09-12 11:41:00) [5]
что то типа не могу рид ффффффф 000000

TeNY (2004-09-12 11:41:00) [6]
Причем на бейсике подобные процедуры без мата работают

Digitman (2004-09-09 08:26:00) [7]

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

какую ?

TeNY (2004-09-09 06:30:00) [8]
Так в чём же ошибка улюди!

Наверх

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