Текущий архив: 2003.12.19;
Скачать: CL | DM;

Вниз

Работа с помошником в (*.acm)   Найти похожие ветки 

← →
DNS   (2003-12-06 04:36) [0]

При выполнении VBS Scripta

<SCRIPT LANGUAGE="VBScript">
Dim myAgent
Set myAgent = CreateObject("Agent.Control.2")
If IsObject(myAgent) Then myAgent.Connected = True
myAgent.Characters.Load "merlin"
Set merlin = myAgent.Characters("merlin")
merlin.Show
merlin.Speak "Сюрприз!"
merlin.MoveTo 200, 200
merlin.Play "Wave"
merlin.Speak "Выбери меня своим персонажем в Office, пожалуйста!"
</SCRIPT>

загружаеться помощник и болтает...
А ка можно в Delphi загрузить помощника и управлять им ?

---

← →
DNS   (2003-12-06 04:41) [1]

Пример выполнения скрипта
http://doctor-nosow.narod.ru/

---

← →
DNS   (2003-12-06 14:57) [2]

Никто не сталкивался?

---

← →
Юрий Федоров ©   (2003-12-06 15:27) [3]

да напиши тоже самое на Delphi, и все :-)
Должно заработать

---

← →
DNS   (2003-12-06 21:58) [4]

Не заработало :(
Можно пример? Или где инфу почитать по этой теме?

---

← →
Shirson ©   (2003-12-07 11:45) [5]

Правда, что-ли?

Или с адаптацией проблемы? :)


unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
myAgent,merlin:variant;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
myAgent:=CreateOLEObject("Agent.Control.2");
myAgent.Connected:= True;
myAgent.Characters.Load("Merlin");
merlin:= myAgent.Characters["merlin"];
merlin.Show;
merlin.Speak("Сюрприз!");
merlin.MoveTo(200,200);
merlin.Play("Wave");
merlin.Speak("Выбери меня своим персонажем в Office, пожалуйста!");
end;
end.


Какие проблемы?

---

← →
DNS   (2003-12-07 14:37) [6]

Вопрос 1:
Как узнать все возможные действия?
Вопрос 2:
Как сделать так, чтобы текст в Baloon появлялся не по словам а сразу?
Вопрос 3:
Без Active X никак нельзя? А то таскать его собой и ставить в системе... Дольше грузиться :(

---

Страницы: 1 вся ветка

Текущий архив: 2003.12.19;
Скачать: CL | DM;

Наверх

Память: 0.48 MB
Время: 0.016 c