FiveTech Software tech support forums

Posted: **Wed Nov 22, 2006 2:51 pm**

Antonio :

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

Posted: **Wed Nov 22, 2006 5:45 pm**

Vikthor,

Que ejemplo estás probando ?

Posted: **Wed Nov 22, 2006 6:07 pm**

Antonio Linares wrote:Vikthor,

Que ejemplo estás probando ?

Code: Select all Expand view: 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

Posted: **Wed Nov 29, 2006 3:23 pm**

Vikthor wrote:
Antonio Linares wrote:Vikthor,

Que ejemplo estás probando ?

Code: Select all Expand view
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.

Posted: **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.

FiveTech Software tech support forums

Avance en TSockets ?

Avance en TSockets ?