Подписка

Проекты

Сборник идей для разработок в Delphi и использования их в Интернет. Участвуй в работе коллективного разума!

Google API в Delphi - проект с открытым исходным кодом.


А тут я коплю на лицензию Delphi 2011. Сумма пожертвования не фиксирована.

Друзья блога

Блоги и сообщества

DelphiFeeds.ru - Все Delphi-блоги Рунета О раскрутке блога по программированию Сообщество умных людей VR-Online.RU Бесплатный журнал для программистов и всех, кто интересуется IT Статьи и уроки по Delphi Статьи по Delphi

Счётчики


Анализ веб сайтов

Рейтинг блогов




Система Orphus

  • 25Jul

    Все, наверное, помнят навязчивую Скрепку из MS Office? Особенно раздражало, когда эта гадость начинала объяснять какие-то прописные истины по работе с пакетом, когда этого не требовалось. Естественно в итоге “Помощник” отключался и более никогда не использовался.

    MS Agent. Doctor

    MS Agent. Doctor

    Но, несмотря на на это, подобные “живые” помощники могут помочь Вашей программе набрать дополнительную популярность среди пользователей (естественно при уместном и рациональном использовании этой замечательной технологии). ' '

    Если говорить конкретно, то использование технологии MS Agent в свое время очень помогло мне сэкономить нервы и время на то, чтобы обучить неопытных пользователей использовать сложный программный комплекс. Более того, теперь абсолютно все пользователи используют “Помощника” в работе.  Хотите узнать что такое MS Agent и как его использовать правильно? Тогда приступим.

    1. Что такое MS Agent и где его взять?

    Microsoft Agent – это сервер автоматизации (OLE Automation Server), который позволяет расширить форму взаимодействия приложения или web-узла с пользователем с помощью анимированных персонажей в рамках интерфейса Microsoft Windows. Разработчики могут использовать данный компонент для расширения пользовательского интерфейса, в который входят привычные элементы управления.

    Следует особо отметить – MS Agent может только дополнить интерфейс программы, а не заменить его полностью. Никогда не следует слишком нагружать вашего персонажа действиями одновременно сокращая привычный интерфейс программ (кнопки, меню и т.д.) – люди в большинстве своем консервативны и мало кому понравиться, если вместо привычного окна на рабочем столе будет скакать поятоянно какой-то мутант и при этом (не дай Боже) говортиь на корявом русском :).  В связи с этим, хотелось бы дать несколько общих рекомендаций по использованию технологии MS Agent:

    1. Определите роль агента.
    2. Дайте возможность пользователю выбрать – использовать им персонаж или нет.
    3. Обеспечьте обратную связь с ассистентом (персонажем). Связь можно обеспечить как через привычный интерфейс, например контекстное меню персонажа, так и через более “навороченный” – набор голосовых команд.
    4. Рационально используйте анимации. Не следует делать так, чтобы Ваш персонаж постоянно нарезал круги по рабочему столу и махал руками – в очень короткий срок такой персонаж будет отключен и збыт пользователем.
    5. Подготовьте синонимичные ответы пользователю. Например, если Вы планируете использовать MS Agent для замены окон с ошибками, то следует предусмотреть реакции (анимацию, движение) и правильность построения фраз персонажа. От этого в большой степени зависит понравиться ли пользователю использование агента или нет.

    Теперь непосредственно по установке MS Agent. Первое, что необходимо – это скачать ядро MS Agent с официального сайта Microsoft. Также Вы можете скачать и файлы персонажей.

    После того как Вы скачаете и установите пакет MS Agent, неободимо выполнить следующие действия:

    msagent_1

    1. Запускаем Delphi (я использую Delphi 2009);
    2. Выбираем в меню “Component”–>”Import Component…”
    3. Помня о том, что MS Agent – это ActiveX компонент, выбираем в появившемся окне “Import ActiveX Control” и жмем кнопку “Next”. После чего Delphi сгенерирует список доступных ActiveX-компонентов.
    4. Во всем этом безобразии многообразии ищем компонент с названием Microsoft Agent Control 2.0. Выбираем его и жмем “Next”. В итоге нам предложат выбрать страницу палитры компонентов на которую следует поместить пиктограмму компонента, путь до юнита компонента и пр. Всё это можно оставить как есть и нажать два раз “Next” и, после этого “Finish

    В результате Delphi сгенерирует нам unit компонента с говорящим названием AgentObjects_TLB и кучей комментариев на тему использования функций и параметров. Теперь можно смело приступать к программированию.

    2. Подключаем MS Agent к приложению.

    Для начала определим порядок действий, которые нужно проделать для того, чтобы начать работать с одним персонажем:

    1. Подключиться к серверу Microsoft Agent
    2. Загрузить персонаж в коллекцию
    3. При необходимости показать персонаж

    Итак, для демонстрации описаных выше действий возьмем персонажа с названием “merlin” для этого ложим в каталог с нашей будущей программой файл merlin.acs, который вы можете скачать все на том же офф.сайте Microsoft.

    Теперь создаем наш проект в Delphi и на событие FormCreate главной формы пишем следующий код:

    unit Unit1;
    
    interface
    
    uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, ActiveX, AgentServerObjects_TLB;
    
    type
    TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    private
    { Private declarations }
    public
    { Public declarations }
    end;
    
    var
    Form1: TForm1;
    Agent : IAgentEx;
    Chars : IAgentCharacterEx;
    ICharID : integer;
    IReqID  : integer;
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
    begin
    Agent.Unload(ICharID);
    end;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    CoCreateInstance(CLASS_AgentServer, nil, CLSCTX_SERVER, IID_IAgentEx, Agent);
    Agent.Load('merlin.acs', ICharID, IReqID);
    Agent.GetCharacterEx(ICharID,Chars);
    Chars.Show(0,IReqID);
    end;
    
    end.

    Собственно, то, что мы сейчас сделали, называется “Прямое обращение к Agent Server“. Если Вы заметили – я не просил Вас использовать какие-либо компоненты – только подключаем два модуля в разделе uses и все. После запуска проекта можно увидеть примерно следующую картинку

    msagent_2

    Теперь попробуем разобраться, что мы собственно такого навояли. Прежде всего мы получили указатель на интерфейс IAgentEx, который, собственно, и позволяет нам управлять персонажем. Далее, как Вы уже догадались по названию метода (Load), мы загрузили нашего Мерлина в коллекцию.  Метод Load имеет три параметра:

    1. имя файла персонажа (входной параметр)
    2. Идентификатор персонажа (character ID, выходной параметр)
    3. Идентификатор, хранящий состояние запроса (request ID, выходной параметр).

    Ну, и в конце концов, мы показали нашего персонажа пользователю, т.е. себе любимому. После закрытия формы персонаж выгружается из памяти. Все просто и доступно.

    Если Вы достаточно хорошо знакомы с интерфейсами…да и с программированием на Delphi в общем, то Вы сможете без труда переделать нашу простейшую программку и использовать для связи с сервером установленный нами компонент Agent Control.  Ну, а я продолжу рассмотрение этой интересной темы программирования в следующих статьях блога. А пока, если Вас интересует работа в одессе можете поизучать сайт, вполне возможно, что найдете выгодную вакансию и для себя :)

    Оставайтесь с нами – подписывайтесь на RSS блога или RSS-трубу Delphi.

    Мой блог находят по следующим фразам

    Related posts:

    Автор Vlad в 3:20 am

    Метки: , , ,

9 Comments

WP_Cloudy
  • Alex пишет:

    Почему то не появляется категории AciveX и соотвественно компонента TAgent

  • Vlad пишет:

    Какая у вас версия Delphi? Пост писался с использованием 7-ки – все появлялось

  • Alex пишет:

    Спасибо за ответ, уже разобрался…
    на последнем шаге регистрации компонента, необходимо было добавить в новый проект

  • voldemar пишет:

    Почему то не появляется категории AciveX и соотвественно компонента TAgent в Delphi 2009?что сделать, чтоб она появилась?

  • Vlad пишет:

    Обычно достаточно просто перезапустить IDE и на вкладке ActiveX появляются новые компоненты

  • seer пишет:

    Опубликуйте ваш Agent_Objects_TBL.pas.  Мои Delphi7 и Delphi2007 интерфейс IAgentEx в данный файл не поместили.  Откуда у вас взялся AgentServerObjects_TLB?

  • Vlad пишет:

    >>Откуда у вас взялся AgentServerObjects_TLB?
    Импортировался.
    Вот ссылка AgentServerObjects_TLB.zip

  • seer пишет:

    “с говорящим названием AgentObjects_TLB” и uses … AgentServerObjects_TLB;
    нестыковочка…

  • Vlad пишет:

    бывает :)

Ваш ответ

Внимание: Все комментарии модерируются, и это может вызвать задержку их публикации. Отправлять комментарий заново не требуется.

Пожалуйста, заключайте исходный код в тэги [code][/code].