Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.17;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.048 c
14-1096469878
Gero
2004-09-29 18:57
2004.10.17
Протестируйте под 98/Me/2000


14-1096167142
Думкин
2004-09-26 06:52
2004.10.17
С днем рождения! 26 сентября


14-1095841078
Unknown_User
2004-09-22 12:17
2004.10.17
Поймали, что делать??


6-1092351674
Shados
2004-08-13 03:01
2004.10.17
TThread и пинг списка хостов


8-1090673542
Ig
2004-07-24 16:52
2004.10.17
GDI Plus