[Delphi] Windows Agenten in eigener Software verwenden!

  • So, in diesem Tutorial Zeige ich euch wie wir die ber?hmten Windows Agenten in unsere Anwendung integrieren. Ich nehme hierzu Merlin ;)


    Also fangen wir an :)


    Schritt1:
    Wir m?ssen die ActiveX Komponente "Microsoft Agent Control 2.0" aktivieren.







    Schritt2:
    Die Komponente ist nun installiert und wir wechseln zum Reiter ActiveX und ziehen folgendes Symbol auf unsere leere Form:
    Dannach definieren wir unter der Variable "Form1: TForm1"
    noch peedy,Merlin:IAgentCtlCharacterEx;

    Das ganze sollte dann so aussehen:

    Code
    1. var Form1: TForm1; Merlin:IAgentCtlCharacterEx;


    Schritt3:
    In das FormCreate Ereignis muss nun folgender Code:

    Code
    1. beginAgent1.characters.load('Merlin','merlin.acs');Merlin:=Agent1.Characters.Character('Merlin');Agent1.Connected:=true;end;


    Schritt4:
    Auf unserer Form platzieren wir nun noch ein Memo Feld und einen Button.


    [size=15pt]Schritt5:
    [color=orange]In das Click Ereignis des Buttons kommt dieser Code:

    Code
    1. Merlin.show (false);Merlin.speak(memo1.text, '');


    Zum denken ?ndern wir die Zeilen in:

    Code
    1. Merlin.show (false);Merlin.think(memo1.text);



    Nat?rlich gibt es noch mehr Funktionen, probiert einfach ein bisschen ;)


    Achja, Merlin hat nat?rlich auch viele Freunde die sich auch freuen w?rden wenn du sie mit in dein Programm einbinest^^
    hier ein Link: http://www.msagentring.org/chars.aspx?page=1


    So, das wars, ich denke mal ihr bekommt das hin ;)


    Code:


    Sie gehen auf ihren kommandierenden<br />Offizier zu, setzen ihm die Waffe an<br />den Kopf und blasen ihm das Gehirn raus.