Clase TSocket
Posted: Thu Oct 19, 2006 3:51 am
Usando la clase TSocket para establecer una comunicación con un servidor NTTP, al realizar la conección el método ConnectTO() se queda en ¡¡¡ el limbo !!!
Aquí les muestro una parte del código.
Aquí les muestro una parte del código.
Code: Select all
FUNCTION CONNECTNEWS()
PARAM oSocket,oStatus,oBoton1
nPort := 119
cServerIP := "200.67.153.171"
oStatus:cText( " Conectando a "+cServerIP +CRLF )
cTxt := oStatus:cText
oStatus:cText( cTxt+" Esperando respuesta ......"+CRLF )
oSocket := TSocket()
oSocket:New( nPort )
oSocket:Connect( cServerIP, nPort ) <------- Aquí se pierde
oSocket:bConnect := { |o| NewsOn(o , oStatus ) }
oSocket:bRead := { |o| NewsRead(o , oStatus) }
RETURN( oSocket )
FUNCTION NEWSON()
PARAM oSocket,oStatus,cServerIp
cTxt := oStatus:cText
oStatus:cText( cTxt + " Ahora estas conectado. "+CRLF )
RETURN