A quem interessar.... Ps* Para maiores informacoes procurem na net por MsAgent tem varios site que falam a respeito.
um abraco ! William. Quem nunca viu os tão tradicionais Agentes da Microsoft que são instalados com o Word ou com excel? Agora quem nunca pensou em utilizar essa tecnologia em seus programas? Pensando nisso... fiz uma vasta busca pela internet. E essa busca resultou nesse "resumão" de como utilizar os agentes em programas delphi. Antes de começar a utilizar os agentes e seus programas delphi e necessário a instalação de alguns componentes em seu pc. Alguns desses componentes são opcionais. Ah! Você ira perder um bom tempo com Downloads. 1. Faça o Download do arquivo MSAgent.exe, pois este é o componente essencial. Observação Se o seu Sistema for Windows 2000 ou superior ignore esse Dica, pois os componentes essenciais do Microsoft Agent já Foram instalados. Local de Download: http://activex.microsoft.com/activex/controls/agent2/MSagent.exe 2. Se você quer ouvir seu agenter falar, faça o download do arquivo tv_enua.exe e o instale. Local de Download: http://activex.microsoft.com/activex/controls/agent2/tv_enua.exe Para que nosso agente Fale em português é necessária a instalação de mais dois arquivos. http://www.htmlbible.com/MicrosoftSpeechComponents/ Role a pagina Ate ver a opção Português (Brasil) e baixe os dois Arquivos: O lhttsptb.exe e o AgtX0416. 3. Para ele receber Comandos de Voz faça o Download de mais um Arquivo. (Você precisa falar os comandos através do microfone). Faça o download do arquivo o Microsoft Speech Recognition Engine. Local de Download: http://activex.microsoft.com/activex/controls/agent2/actcnc.exe 4. Em nosso pc configuramos quase tudo através do painel de controle para você ter a opção de controlar, habilitar e gerenciar todas as Engines de Reconhecimento e de Speech instaladas em seu sistema, Baixe e instale o seguinte arquivo: spchcpl.exe. Local de Download: http://agent.microsoft.com/agent2/spchcpl.exe 5. Agora você só precisa baixar o character (Agentes) do Microsoft Agent. Você pode encontrar vários Agentes no endereço abaixo. http://www.msagentring.org/chars.htm Muito Bem, agora você precisa importar o controle ActiveX dos agentes para o Delphi: 1) Abra o Delphi 2) Clique em "Component -> Import ActiveX Control" 3) Selecione o componente "Microsoft Agent Control 2.0" 4) Clique no botão "Install... , OK...,Yes " 5) Prossiga a instalação do controle Um novo componente TAgent vai ser adicionado à palheta de componentes do Delphi, na aba ActiveX. Após a Instalação dos Arquivos Necessários Para controle do Agente, No meu Caso Com Windows 98 SE, MSAgent.exe, tv_enua.exe, lhttsptb.exe e o AgtX0416 e Instalação do Componente TAgent. REINICIE SEU COMPUTADOR: Crie um novo projeto para testar a programação com agente. O programa vai mostrar alguns "comportamentos" do personagem Peedy e fazê-lo falar. No formulário coloque um componente Tagent, e um Tedit para digitar o texto que o personagem vai falar. Declare a Seguinte Variável na Opção Private da unit. Agente: IAgentCtlCharacter; No Evento FormCreate escreva: Agent1.Connected := True; Agent1.Characters.Load('Papagaio', 'Peedy.acs'); // Associar o agente à variável Agente Agente := Agent1.Characters[' Papagaio ']; Agente.Show(0); // Aparecer 0-lentamente 1-instantaneamente // Encenação de abertura Agente.Play('Greet'); // Cumprimentar Agente.Play('Announce'); // Anunciar Agente.Speak('Ola Tudo Bem', EmptyStr); // Falar Sleep(700); // Da uma pausa ao programa Agente.Speak('Escreva um texto e clique no botão', EmptyStr); Agente.Play('RestPose'); // Descansar No Evento FormDestroy escreva: Agente.Hide(0); Agent1.Connected:=false; No evento OnClick do Botão escreva: Agente.Speak(edit1.Text,EmptyStr); Prontinho Seu Programa Agora tem um agente que Fala e se move, igual ao da Microsoft. Abaixo segue algumas animações e sua descrição. Animação Descrição ************************************************************* Acknowledge Balança a Cabeça Alert Endireita a cabeça e levanta as sobrancelhas Announce Levanta a mão Blink Pisca os olhos Confused Passa a mão na cabeça Congratulate Faz sinal de positivo Decline Levanta a mão e balança a cabeça DontRecognize Leva a mão até a orelha Explain Estende o braço para o lado GestureDown Aponta para baixo GestureLeft Aponta para a esquerda GestureRight Aponta para a direita GestureUp Aponta para cima GetAttention Acena com a mão GlanceDown Olha para baixo GlanceLeft Olha para a esquerda GlanceRight Olha para a direita GlanceUp Olha para cima Greet Faz gesto de boas vindas Hide Desaparece Hear_1 Estende as orelhas Hear_2 Vira a cabeça para esquerda Idle1_1 Enche o pulmão Idle3_1 Começa a dormir LookDown Olha para a baixo LookDownBlink Olha para baixo e pisca MoveDown Voa para baixo MoveLeft Voa para esquerda MoveRight Voa para direita MoveUp Voa para cima Pleased Bate palmas e sorri Read Pega papel do casaco, começa a ler e olha para cima Sad Expressão de Triste Show Aparece como mágica Surprised Expressão de surpreso Think Olha para cima e coloca a mão no queixo Uncertain Levanta sobrancelhas e coloca mão no queixo Wave Acena com a mão Write Pega papel do casaco, escreve olha para cima ************************************************************* Código da unit do Exemplo. unit AgenteUnit; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, OleCtrls, AgentObjects_TLB, StdCtrls; type TForm1 = class(TForm) Agent1: TAgent; Edit1: TEdit; Button1: TButton; procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } Agente: IAgentCtlCharacter; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin Agent1.Connected := True; Agent1.Characters.Load('Peedy', 'Peedy.acs'); // Associar o agente à variável Agente Agente := Agent1.Characters['Peedy']; Agente.Show(0); // Aparecer 0-lentamente 1-instantaneamente // Encenação de abertura Agente.Play('Greet'); // Cumprimentar Agente.Play('Announce'); // Anunciar Agente.Speak('Ola Tudo Bem', EmptyStr); // Falar Sleep(700); // Da uma pausa ao programa Agente.Speak('Escreva um texto e clique no botão', EmptyStr); Agente.Play('RestPose'); // Descansar end; procedure TForm1.FormDestroy(Sender: TObject); begin Agente.Hide(0); Agent1.Connected:=false; end; procedure TForm1.Button1Click(Sender: TObject); begin Agente.Speak(edit1.Text,EmptyStr); end; end. Importante: quando seu programa for distribuído os arquivos necessários para que os agentes funcionem terão que ser instalados no computador do seu cliente, caso contrário ele não vai funcionar. Nem todos os Agentes Possui os Comandos descritos acima. Todos os agente são instalados no diretório C:\...\ CHARS. Julio Cesar [EMAIL PROTECTED] +353 (87) 2184139 +353 (091) 630317 ----- Original Message ----- From: Desenvolvimento (Anderson) To: delphi-br@yahoogrupos.com.br Sent: Tuesday, June 20, 2006 5:07 PM Subject: Re: [delphi-br] Usar o Boneco Mago ninguém achou solução pra isso não??? ----- Original Message ----- From: Julio Cesar To: delphi-br@yahoogrupos.com.br Sent: Friday, June 09, 2006 2:56 PM Subject: Re: [delphi-br] Usar o Boneco Mago Importa o ActiveX "Microsoft Agent Control 2.0), so nao me lembro mais como usar... Julio Cesar [EMAIL PROTECTED] +353 (87) 2184139 +353 (091) 630317 ----- Original Message ----- From: Anderson Furtilho To: delphi-br@yahoogrupos.com.br Sent: Friday, June 09, 2006 2:03 PM Subject: [delphi-br] Usar o Boneco Mago Ola amigos da lista!!! Faz muito tempo um amigo da lista nos passou uma dica de como usar aquele Mago que vem no Windows XP. Tipo o Assistente do Office! Lembro que tinha algo haver com ActiveX mas não consegui localizar mais a dica. Se algum amigo tiver essa dica e puder me enviar ficarei agradecido. Pois lembro que dava pra chama-lo de nosso sistema e enviar mensagems. Qualquer dica ficarei agradecido Um forte abraço a todos Anderson [As partes desta mensagem que não continham texto foram removidas] -- <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>> <*> Para ver as mensagens antigas, acesse: http://br.groups.yahoo.com/group/delphi-br/messages <*> Para falar com o moderador, envie um e-mail para: [EMAIL PROTECTED] Links do Yahoo! Grupos <*> Para visitar o site do seu grupo na web, acesse: http://br.groups.yahoo.com/group/delphi-br/ <*> Para sair deste grupo, envie um e-mail para: [EMAIL PROTECTED] <*> O uso que você faz do Yahoo! Grupos está sujeito aos: http://br.yahoo.com/info/utos.html
