Avance en TSockets ?

Post Reply
User avatar
Vikthor
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Avance en TSockets ?

Post by Vikthor »

Antonio :

Los sockets no estan funcionando correctamente , tendrás algún avance para su correcto funcionamiento.
Vikthor
User avatar
Antonio Linares
Site Admin
Posts: 42418
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Has thanked: 14 times
Been thanked: 48 times
Contact:

Post by Antonio Linares »

Vikthor,

Que ejemplo estás probando ?
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Vikthor
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Post by Vikthor »

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
User avatar
Vikthor
Posts: 271
Joined: Fri Oct 07, 2005 5:20 am
Location: México

Post by Vikthor »

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.
Vikthor
User avatar
Antonio Linares
Site Admin
Posts: 42418
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain
Has thanked: 14 times
Been thanked: 48 times
Contact:

Post by 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.
regards, saludos

Antonio Linares
www.fivetechsoft.com
Post Reply