Microsoft Agent Control di Delphi

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

MS Agent di Delphi. mungkin ada yang tau ada juga yang belum tau itu loh salah satunya Agent Merlin, liat aza gambar dibawah ini.

Pertama Anda Import dulu ActiveX'ya. Gambar 1.

Add caption

Kedua Pilih Microsoft Agen Control 2.0, Gambar2

Add caption

Ketiga Mending langsung OK aza biar cepet. :)

Add caption

Keempat Jika muncul seperti gambar dibawah,Pilih Yes dan yes Pokonya. Gambar 4

Add caption

Kelima maka akan muncul komponent MS Agent pada Tab ActiveX

Add caption

Untuk Listingnya silahkan Dibaca,Dilihat,Dipelajari :

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Agent1: TAgent;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    lbl1: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Agent1.Characters.Load('Merlin', 'merlin.acs');
  with Agent1.Characters.Item['Merlin'] do
  begin
    Show(0);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
Agent1.Characters.Character ('Merlin').Play('read');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Agent1.Characters.Character ('Merlin').Speak ('Terima Kasih Telah Berkunjung !!','');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
Agent1.Characters.Character ('Merlin').Think('Andai Aku jadi raja ?');
end;

procedure TForm1.FormShow(Sender: TObject);
begin
Agent1.Characters.Character('merlin').MoveTo(600,360,100);
end;

end.

SEKIAN !!

Hendi Kusnadi

Microsoft Agent Control di Delphi

Microsoft Agent Control di Delphi

Post a Comment for "Microsoft Agent Control di Delphi "

Footer Menu