Antonio :
Los sockets no estan funcionando correctamente , tendrás algún avance para su correcto funcionamiento.
Vikthor
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Pocket PC Avance en TSockets ?
Vikthor,
Que ejemplo estás probando ?
Antonio Linares wrote:Vikthor,
Que ejemplo estás probando ?
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 )
RETURNVikthor
Vikthor wrote:Antonio Linares wrote:Vikthor,
Que ejemplo estás probando ?
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
Vikthor,
Acabamos de terminar de implementar la clase TInternet y TFtp usando wininet, -ya está publicado- y lo próximo es revisar los sockets.