elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía rápida para descarga de herramientas gratuitas de seguridad y desinfección


+  Foro de elhacker.net
|-+  Comunicaciones
| |-+  Redes
| | |-+  Problema para enviar/recibir datos por servidor
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Problema para enviar/recibir datos por servidor  (Leído 2,247 veces)
crazykenny


Desconectado Desconectado

Mensajes: 4.239



Ver Perfil WWW
Problema para enviar/recibir datos por servidor
« en: 19 Noviembre 2011, 19:42 pm »

Hola; el caso es que he creado un servidor con Blitz3D, y, bueno, el caso es que, cuando envio una variable con un programa "cliente", el servidor puede responder; no obstante, cuando el programa cliente vuelve a enviar una variable, pues el servidor actua como si no hubiese recibido la variable, y, en el caso de cerrar y volver a ejecutar el cliente, pues el servidor vuelve a hacer lo mismo; vamos, responder a la primera variable, y, cuando el cliente vuelve a enviar otra variable, pues este actua como si no recibiese nada.
Cabe destacar que he probado a cerrar el servidor y volverlo a abrir desde el codigo y solo responde a la primera variable, y tambien a cerrar y volver a abrir el stream (o como se diga) en el servidor, pero nada, y, si cierro el stream (o como se diga) en el cliente, luego no me puedo volver a conectar al servidor.
Tambien he de mencionar que lo hago todo en la misma maquina utilizando la direccion ip 127.0.0.1, y que tambien lo probe a traves de internet en maquinas distintas, y me sucede lo mismo, y, claro, el cliente se queda ahi parado sin hacer nada esperando respuesta.
Por otra parte, si no es molestia, los codigos son los siguientes;
-Servidor:
Código:
svrgame=CreateTCPServer(8080)
If svrgame=0
Print "fallo creando servidor."
WaitKey()
End
EndIf
.recibir
strstream=AcceptTCPStream(svrgame)
If strstream=0
Print "Sin señal"
Delay 1000
Goto recibir
EndIf
opciones#=TCPStreamPort(strstream)
daty$=opciones#
Print ReadString(strstream)
WriteString strstream, daty$
Print "Datos enviados."
Goto recibir
-Cliente:
Código:
Print "Inserte ip:"
datx$=Input()
Print "Inserte puerto:"
daty#=Input()
.enviando_00
tcp=OpenTCPStream(datx$,daty#)
If tcp<>0
Print "Cliente conectado."
Goto enviando
EndIf
Print "Fallo de conexion"
.enviando
chapapa$=Rand(1,1000)
WriteString tcp, chapapa$
Print "Datos enviados."
.recibir
While Not KeyHit(1)
.goo
datx$=ReadString(tcp)
If datx$=""
Print "4"
Delay 100
Goto goo
EndIf
opcions$=TCPStreamPort(tcp)
Print datx$
Delay 1000
If tcp<>0
Print "Cliente conectado."
Goto enviando
EndIf
Print "error"
WaitKey()
End
Wend
Gracias por vuestra atencion y ayuda.
Saludos.


En línea

A nivel personal, lo que me da mas miedo no son los planteamientos y acciones individuales, sino las realizadas en grupo, ya que estas ultimas pueden acabar con consecuencias especialmente nefastas para todos.
Se responsable, consecuente y da ejemplo.
https://informaticayotrostemas.blogspot.com/

Mi canal de Youtube:

https://www.youtube.com
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines