Ms agent в додатках

Для початку нам необхідно додати компонент, який відповідає за підключення до MS Agent Server. За замовчуванням цього компонента немає, принаймні в Delphi 7 його точно немає. Тому нам необхідно додати.

Що нам необхідно для цього, а все просто, виконаємо команду Component-Import ActiveX Control ... У списку знаходимо Microsoft Agent Control 2.0. після чого натискаємо на кнопку «Install» і встановлюємо як звичайний компонент. Далі наш новий, встановлений компонент повинен з'явитися у вкладці ActiveX. Він повинен бути останнім у списку (TAgent). Встановимо його на нашу форму, крім цього я встановив на форму TButton - 2 шт, чому 2, тому що хочу показати якомога 2-мя методами показати нашого персонажа. Тепер, що головне в перший момент, це підключитися до MS Agent Server. для цього виділимо компонент TAgent і у властивості Connected встановимо True. або ж за подією OnCreate напишемо наступний код

Ну що пів-справи зроблено, підключені ми до сервера, далі нам необхідно якось відобразити цей самий персонаж, який Ви вибрали. До речі щодо вибору персонажів, в інтернеті дуже повно різних персонажів, можна знайти. Або ж, щоб встановити стандартні, досить залізти в встановлену папці MS Office і пошуком знайти там файли, розширення * .acs. Після цього при приступаємо до завантаження і відображення нашого персонажа. Отже на першу кнопку, подія OnClick напишемо наступний код

Chrr - відповідає за зберігання персонажа, обраного нами, для додавання необхідних нам програм, Req - відповідає за дії, що виконуються персонажем, тобто переміщення його, анімація, розмова і так далі, тобто за його дії. Що ми робимо в першу чергу завантажуємо файл ms agent і задаємо йому ім'я, в даному випадку - це ROCKY. Далі Chrr ми пов'язуємо з нашим ім'ям персонажа. За допомогою методу Show ми показуємо нашого персонажа, а за допомогою методу Speak ми вказуємо, що говорити нашому персонажу. Крім цього ми можемо переміщати нашого персонажа за допомогою методу MoveTo

Задаємо координати (x, y) і швидкість переміщення. Можна дуже легко зробити переміщення на клавіша, точніше управління персонажем за допомогою клавіш клавіатури. Давай для початку оголосимо ще 2 змінні типу integer. вони будуть відповідати за зберігання поточних координат нашого персонажа. Тепер встановимо компонент TActionList. який знаходиться на вкладці Standard. Далі натиснемо подвійним клацанням миші по даному компоненту і у вікні створимо 4 Actions, можете їх обізвати, я не буду, будуть у мене вони називатися стандартно

Далі для кожного Action у властивості ShortCut задайте клавішу, після натискання на яку буде переміщатися наш персонаж, я зробив так

Тепер подвійним клацанням по Action натискаємо і з'являється процедура обробки і на кожну процедуру пишемо переміщення нашого персонажа по певному координатами.

Схожі статті