Avance en TSockets ?

[Vikthor]

Antonio :

Los sockets no estan funcionando correctamente , tendrás algún avance para su correcto funcionamiento.

[Antonio Linares]

Vikthor,

Que ejemplo estás probando ?

[Vikthor]

Vikthor,

Que ejemplo estás probando ?

Code: Select all  Expand view  RUN


Esta una parte del código


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


[Vikthor]

Vikthor,

Que ejemplo estás probando ?

Code: Select all  Expand view  RUN


Esta una parte del código


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


Antonio , la Clase TSocket en el método Connect() es donde se inhibe.

[Antonio Linares]

Vikthor,

Acabamos de terminar de implementar la clase TInternet y TFtp usando wininet, -ya está publicado- y lo próximo es revisar los sockets.