www.FiveTechSoft.com
https://fivetechsoft.com/forums/
Antonio Linares wrote:Vikthor,
Que ejemplo estás probando ?
Code: Select all
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 wrote:Antonio Linares wrote:Vikthor,
Que ejemplo estás probando ?Code: Select all
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