Avance en TSockets ?

Vikthor · Post by **Vikthor** » Wed Nov 22, 2006 2:51 pm

Antonio :

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

Post by **Antonio Linares** » Wed Nov 22, 2006 5:45 pm

Vikthor,

Que ejemplo estás probando ?

Vikthor · Post by **Vikthor** » Wed Nov 22, 2006 6:07 pm

Antonio Linares wrote:Vikthor,

Que ejemplo estás probando ?

Code: Select all | Expand


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 · Post by **Vikthor** » Wed Nov 29, 2006 3:23 pm

Vikthor wrote:

Antonio Linares wrote:Vikthor,

Que ejemplo estás probando ?

Code: Select all | Expand


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.

Post by **Antonio Linares** » Wed Nov 29, 2006 5:44 pm

Vikthor,

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