Помошник

← →
KOSH (2004-12-03 10:27) [0]

Мастера подскажите плз. можно ли в свою программу запихать помошника из Microsoft Office и заставить его задавать нужные вопросы и давать необходимые советы. Если да то как?.....

← →
asafr © (2004-12-03 10:46) [1]

Можно. Для этого ты должен импортировть в Дельфи Microsoft Agent (Component->Import ActiveX Control->...), затем раздобыть какой-нибудь Microsoft Agent (файл *.ASC) и вперед... А затем прочитать статью lel (ссылаюсь на него, но не знаю, доступна ли она сейчас на сайте, ибо очень давно было), где описано, как оживить эти "морды"... В моей программе это работает, примерно, так:
var Character:IAgentCtlCharacter; Request:IAgentCtlRequest; AGENTPATH:string; Const AGENT="test"; AGENTPATH="E:\MSAGENT\CHARS\GENIE.ACS"; //путь до файла агента .... .... procedure TForm1.WaitFor(Reguect: IAgentCtlRequest); var Status:LongInt; begin repeat Application.ProcessMessages; Status:=Request.Get_Status until (Status<>2) and (Status<>4); end; .... .... procedure TForm1.Button1Click(Sender: TObject); begin Agent1.Connected:=true; Request:=Agent1.Characters.Load(Agent,AgentPath); Character:=Agent1.Characters.Character(Agent); Request:=Character.MoveTo(640,365,0); Request:=Character.Show(false); WaitFor(Request); Request:=Character.Speak("Ïðèâåò",EmptyParam); Request:=Character.Play("Greet"); Request:=Character.MoveTo(0,365,1500); Request:=Character.Play("Announce"); Request:=Character.MoveTo(0,0,1500); Request:=Character.Play("Suggest"); Request:=Character.MoveTo(300,300,1500); Request:=Character.MoveTo(100,300,1500); Request:=Character.GestureAt(800,300); end;

← →
KOSH (2004-12-03 10:55) [2]

Огромнейшое спасибо!!!!!!!!!!!!!!!!!

Помошник Найти похожие ветки