Information générale
Catégorie:
Fonctions Windows API
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
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement