General information
Category:
Windows API functions
Hi Justok,
It is really very good tool to include. You can also do it through CREATEOBJECT()
Code is like
************
m_AgentShow = 1
On Error myerror = 1
m_AgentObject = createobject('Agent.Control.2')
On Error && If not installed properly, error will come
If Type('m_AgentObject') # 'O' Or MyError = 1
m_AgentShow = 0
Else
m_AgentObject.connected = .t. && U need to connect if using as COM
m_AgentObject.Characters.Load("MyAgent", "C:\Acs\merlin.acs")
EndIf
If m_AgentShow = 1
m_AgentObject.Characters("MyAgent").Show
m_AgentObject.characters("MyAgent").speak("Hi, How are you Justok?")
m_AgentObject.characters.unload("MyAgent")
EndIf
*****
Hope This help
Regards
Amit
Previous
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only