Clase TSocket

[Vikthor]

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.

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