Скачать: CL | DM;

Как получить список анимации у Анимированного персонажа 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

---

← →
Anton_K ©   (2004-09-12 19:43) [6]

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

---

← →
TeNY ©   (2004-09-13 06:07) [7]

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

---

← →
TeNY ©   (2004-09-13 06:09) [8]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.033 c