ActiveX Microsoft Agent en Delphi

[seara2005]

Muchas Gracias a todos los que me han ayudado, especialmente a LEPE y a GERMAN.

He confeccionado un programita sencillo y me ha funcionado correctamente.
El ayudante aparece, desaparece, habla, etc. esto me sirve como base para utilizarlo en cosas mas complejas.

A continuación les describo:
- Realicé las Instalaciones en el orden que Germán explica, busqué los archivos necesarios utilizándo sus enlaces.
- Despues en Delphi, Importé el ActiveX Microsoft Agent 2.0 mediante el menú component\Import Active X Control...\y lo seleccioné de la lista y click en install.
- El la Paleta de componentes en la pestaña de Active X del delphi aparece un Componente llamado Agent.
- Confeccioné el programa guiándome por el que aparece elaborado por Lepe anteriormente y algunas cosas tomadas del artículo de la sección de columnas de este club delphi elaborado por Jorge.

A continuación les describo el Programa:

En el Formulario Inserté un agent y 5 botones (ShowMessage/Opciones/Mostrar/Hablar/Ocultar/Cerrar)
A continuación el código completo:

-------------------------------------------------------
unit Main;

interface

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

type
TfrmMain = class(TForm)
btnShowMessage: TSpeedButton;
Agent: TAgent;
ButtonOpciones: TButton;
ButtonMostrar: TButton;
ButtonHablar: TButton;
ButtonOcultar: TButton;
ButtonCerrar: TButton;
procedure FormShow(Sender: TObject);
procedure btnShowMessageClick(Sender: TObject);
procedure ButtonOpcionesClick(Sender: TObject);
procedure ButtonMostrarClick(Sender: TObject);
procedure ButtonHablarClick(Sender: TObject);
procedure ButtonOcultarClick(Sender: TObject);
procedure ButtonCerrarClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }

end;

var
frmMain: TfrmMain;
Agente:String;

implementation

{$R *.DFM}

procedure TfrmMain.FormShow(Sender: TObject);
begin
Agente:='Genie';
Agent.Characters.Load(Agente, Agente+'.acs');
end;

procedure TfrmMain.btnShowMessageClick(Sender: TObject);
begin
ShowAgentMessage(Agent, 'Hola, Esta es una prueba del Microsoft Office Agent, en Delphi', btnShowMessage, True);
end;

procedure TfrmMain.ButtonOpcionesClick(Sender: TObject);
begin
Agent.ShowDefaultCharacterProperties(10,10);
end;

procedure TfrmMain.ButtonMostrarClick(Sender: TObject);
begin
with agent do If not visible then Characters.Item[Agente].Show(0);
end;

procedure TfrmMain.ButtonHablarClick(Sender: TObject);
begin
Agent.Characters.ITem[Agente].Speak ('Hola','');
end;

procedure TfrmMain.ButtonOcultarClick(Sender: TObject);
begin
with agent do if not visible then Characters.Item[Agente].Hide(0);
end;

procedure TfrmMain.ButtonCerrarClick(Sender: TObject);
begin
Close;
end;

end.
-----------------------------------------------------------

He estado probándo algunas cosas, pero como dice Lepe, la documentación sobre esto es escasa, por ejemplo sería interesante darle vida y mostrar las distintas secuencias de animaciones, pero ni modo no he podido. solo mostrarlo, moverlo, ocultarlo, hablar, en fin cosas básicas.
Estoy seguro que algo aparecerá mas adelante.


Gracias de nuevo, especialmente a Lepe y a Germán