Spotkanie z MS Agentem

Witam! Zacznijmy od zainstalowania kontrolki MS Agenta w Delphi. Otóż kontrolka MS-Agenta to kontrolka ActiveX + plik z Agentem.

Wybierz z menu Compotent pozycje Import ActiveX Control. W wyświetlonym okienku poszukaj opcji Microsoft Agent Control 2.0 (version 2.0) i zainstaluj ją. Jeśli nie możesz znaleźć tam tej pozycji to wejdź na moją stronę([url]http://www.Delphi.programowanie.prv.pl[/url]) i wdziale Download poszukaj potrzebnych plików (będą opisane). Zainstaluj Agenta tj wyżej

Na swoim komputerze poszukaj plików *.ACS. Jeśli masz Ms-Office'a to prawdopodobnie będą w tym samym katalogu. Jeśli jednak tam ich nie ma to ponownie wejdź na moją stronę i ściągnij z tamtąd Plik Geniusza. Zanotuj jego pełną ścieżkę.

Z zakładki ActiveX wybieramy komponent Agent i umieszczamy go na formatkę. W Inspektorze obiektów właściwość Connected ustawiamy na "true". Przechodzimy do okna kodu.

W oknie kodu, w sekcji private dopisujemy następujące zmienne:

Req  : IAgentCtlRequest;
Chrctr : IAgentCtlCharacter; 

oraz tworzymy procedury ZaladujAgenta, PokażAgenta, Mów, Animuj:

procedure LoadAgent;
procedure ShowAgent(aBool: Boolean);
procedure Say(aText: String);
procedure Animation(aAnimationName: String); 

Tworzymy wszystkie procedury i uzupełniamy procedure ZaladujAgenta o nastepujący kod:

procedure TForm1.LoadAgent();
begin 
  Req := Agent1.Characters.Load('Genie', 'ScieżkaDoAgenta');
  Chrctr := Agent1.Characters.Character('genie');
end;

//Teraz PokazAgenta:
 
procedure TTorm1.ShowAgent(aBool: Boolean);
begin
  Req := Chrctr.Show(aBool);
end; 

 //Kolejnie procedurke Mow:

Procedure TForm1.Say(aText: String);
begin
  Req := Chrctr.Speak(tekstDoMowy, '');
  // pierwszy parametr do tekst który wyświetli sie w 
  //chmurce, drugi do plik Wave ktory moze zostac odegrany
  //(URL lub nazwa pliku) ktorys z parametrow musi zostac podany
end;

//I ostatnia: Animuj:
procedure TForm1.Animation(AanimationName: String);
begin
  Req := Chrctr.Play('NazwaAnimacji');
end;

//Teraz wstawiamy na forme buttona:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowAgent(False); //ta własciwosc powoduje ze agent wyswietla sie z animacją
  Say('Jestem Agentem');
  Animation('Announce');
end;

//Teraz tworzymy procedure OnCreate:

procedure TForm1.FormCreate(Sender: TObject);
begin
  LoadAgent;
end; 

Teraz wystartuj aplikacje i ciesz sie:):):)
Jako ciekawostke podam że możesz posiadać kilku agentow na raz!!! Jakieś problemy, pytania : pisz piter.gil@wp.pl