Imprimir Página - Como enviar Varios Datos con Winsock..

Título: Como enviar Varios Datos con Winsock..
Publicado por: Brian1511 en 24 Noviembre 2012, 19:36 pm

Hola a todos bueno mi duda es de como enviar varios datos tipos String a un servidor cliente la cual estoy creando

Esto es lo que tengo pero solo me envia 1 solo dato no se si es por que el puerto ya esta ocupado mandando 1 y los otros no llegan, pero solo me llega 1 y cuando pongo las variables en 1 solo SENDDATA pues se me envia todo pero solo se ve en 1 texto

Este es el Code mas o menos que tengo!:

ESTE ES PARA QUE EL CLIENTE RECIBA LOS DATOS:

Código:

Dim De1, Color1, Msg1, Act1 As String

Winsock1.GetData De1
Winsock1.GetData Color1
Winsock1.GetData Msg1
Winsock1.GetData Act1


Colortxt.Text = Color1
Activacion.Caption = Act1
De.Caption = De1
MsgRecibido.Text = Msg1

ESTA ES PARA QUE EL SERVIDOR ENVIE LOS DATOS:

Código:


Msg1 = Mensaje.Text
De1 = De.Text
Color1 = EnviarColor.Text
Act1 = Para.Text

Winsock1.SendData Msg1
Winsock1.SendData De1
Winsock1.SendData Color1
Winsock1.SendData Act1

Bueno si necesitan otras partes del Code o no entendieron bien lo que quiero porfavor Diganme que necesito que me ayuden!

Título: Re: Como enviar Varios Datos con Winsock..
Publicado por: Elemental Code en 24 Noviembre 2012, 19:41 pm

mandalos todos juntos y procesalos cuando llegue.

Mira manda asi:

Msg1 & "||" & De1 & "||" & Color1 & "||" & Act1

y despues cuando llega le haces

Mensajes() = Split(Lo que te llego, "||")

y te queda
Mensajes(0) = msg1
Mensajes(1) = De1

y asi :P

Título: Re: Como enviar Varios Datos con Winsock..
Publicado por: Brian1511 en 25 Noviembre 2012, 02:49 am

Hola amigo como estas gracias por contentar tu explicacion no la entendi te agradeceria si porfavor me pudieras explicar un poco mas de lo que me pususte pues soy un poco nuevo en esto y solo se lo basico ..

Gracias y Saludos!

Título: Re: Como enviar Varios Datos con Winsock..
Publicado por: Elemental Code en 25 Noviembre 2012, 03:12 am

Enviar:

Código

dim Mensaje as String
Mensaje = Mensaje.Text & "||" & De.Text & "||" & EnviarColor.Text & "||" & Para.Text
Winsock1.SendData Mensaje

Recibir:

Código

Dim Compuesto As String
Dim Separado() as string
 
Winsock1.GetData Compuesto
Separado()=Split(Compuesto,"||")
Colortxt.Text = Separado(3)
Activacion.Caption = Separado(4)
De.Caption = Separado(1)
MsgRecibido.Text = Separado(0)

Que hace esto?

Manda todos los datos en una sola cadena separada por los caracteres "||"
Digamos:

Hola soy un mensaje||eCode||Rojo||Brian

y split lo que hace es separar esa cadena buscando por los "||"

Dejandote mensajes asi (empiezan de 0 por una cuestion de arrays):
0 = Hola soy un mensaje
1 = eCode
2 = Rojo
3 = Brian

Por si no entendes algo:
http://www.elguille.info/vb/vb6/stringFunctions.htm#vb6_06

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Brian1511 en 24 Noviembre 2012, 19:36 pm