Information générale
Catégorie:
Contrôles ActiveX en VFP
Ok i'm back from the client and tried out the code that you refered to, so this is what i did
DEFINE CLASS oMakeCall AS oExternal OF defclass.prg
PROCEDURE execute()
PARAMETERS auPar1,auPar2,auPar3
LOCAL loForm
loForm=CREATEOBJECT("form")
loForm.Visible=.f.
loForm.Newobject("poTel","loWinsock")
loForm.poTel.RemoteHost = "Localhost"
loForm.poTel.RemotePort = 1979
loForm.poTel.Protocol = 1
IF LEFT(ALLTRIM(auPar1),1)=="+"
loForm.poTel.Senddata("000"+ALLTRIM(oApp.Remtxt(auPar1)))
ELSE
loForm.poTel.Senddata("0"+ALLTRIM(oApp.Remtxt(auPar1)))
ENDIF
loForm=NULL
RELEASE loForm
ENDPROC
enddefine
DEFINE CLASS loWinSock as OleControl
OleClass="MsWinsock.Winsock.1"
ENDDEFINE
and guess what, on the line with the Newobject, my old friend OLE 0x80040112 is back !!!!
Any suggestions ?
Guillaume
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