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  Expand view

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