Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.03.25;
Скачать: CL | DM;

Вниз

Работа с ActiveX компонентом MS Agent 2.0   Найти похожие ветки 

 
DPro   (2002-03-09 01:01) [0]

Кто может знает или есьт опыт работы с ним. Мне нужно немного примеров.


 
Dimk   (2002-03-09 01:32) [1]

Прости что сам спрашиваю - а что он собственно делает.
Я тут разное про него слышал - объясни популярно :0)


 
DPro   (2002-03-09 01:57) [2]

Ну ты жнаешь новерно такую программу как Magic Gody. Там такой персонаж каторый делает всекие приколы что то говорит и так далие. Да и MS Officeтоже есть агенты скрепка, мячик и т.д.
Вообщем их можно вызывать застовлять что то говорить и многое другое. Короче вещь прикольная и в твоей проге будет скрашивать
нудный и скучный интерфейс.


 
Sergey_n ©   (2002-03-09 02:06) [3]

Могу намылить статью "Использование Microsoft Agent в Visual Basic", не думаю, что работа с ним в Delphi будет чемто отличаться.


 
DPro   (2002-03-09 02:15) [4]

Да я читал в журнале Программист, но перевести на Delphi не смогу может поможеш?!


 
DPro   (2002-03-09 02:26) [5]

Видно заглох мой вопрос!?


 
Sergey_n ©   (2002-03-09 02:39) [6]

1. Ставиш етот контроль в Delphi. Меню Component->Import ActiveX Control...
2. Вытаскиваешь на форму этот компонент

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, AgentObjects_TLB, StdCtrls;

type
TForm1 = class(TForm)
Agent1: TAgent;
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
Agent: IAgentCtlCharacterEx;
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
Agent1.Characters.Load("my character", "merlin.acs");
Agent := Agent1.Characters.Character("my character");
Agent.Show(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Agent.Think("Готово!!!");
end;

end.


 
DPro   (2002-03-09 02:41) [7]

Благодарен вам Sergey_n!


 
Sergey_n ©   (2002-03-09 02:42) [8]

Ну а дальше читай ету статью или SDK по Microsoft Agent 2.0, оно есть в MSDN.



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

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

Наверх




Память: 0.48 MB
Время: 0.013 c
1-80542
Bonus
2002-03-07 23:34
2002.03.25
QuickReport, TCompositeReport


4-80722
Ebeden
2002-01-22 04:30
2002.03.25
иконки


3-80451
Bura
2002-02-26 18:00
2002.03.25
Не могу установить связь с IB


14-80662
savva
2002-02-11 10:23
2002.03.25
а что чат сдох?


1-80488
ded_di
2002-03-12 13:53
2002.03.25
IBX Delphi Update