Wisnock - Enviar y Recibir varios datos al mismo tiempo

[Brian1511]

Hola a todos , pues lo que necesito es saber como puedo enviar X's datos al servidor y que este verfique algunas cosas y pues envie datos para atras.

Digamos que es un inicio de sesion con el control winsock , pues el cliente envia los datos al servidor -> el servidor busca en una carpeta los datos que este ah ingresado, si los datos existen y son correctos -> el servidor envia todos los datos.

pero que pasa , cada dato es para un cosas diferentes como por ejemplo ,


Nombre.text = Dato1
ID.text = Dato2
Numero.text = Dato3



Por ahora lo que tengo es esto que me lo recomendaron hace tiempo pero no logro que me funcione:

Código (vb) [Seleccionar] Expandir


ENVIAR:

Dim Mensaje as String
Mensaje = Dato1.Text & "||" &  Dato2.Text & "||" &  Dato3.Text & "||" &  Dato4.Text
Winsock1.SendData Mensaje




Código (vb) [Seleccionar] Expandir


RECIBIR:

    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)



Y quiero implementarlo a un winsock multipuertos que segun recuerdo se hace

WINSOCK1(0)

Ayuda como ago para que el socket que envie los datos al cliente que lo solicito.

Grcaias y un Saludo

[noalg]

No entiendo bien quieres saber a que control winsock debes enviar nueva informacion?

Deberias identificar para que es ese mensaje antes de utilizar la informacion, porque luego cuando tienes mas funciones no siepre vas a estar enviandos esos datos.

Código (vb) [Seleccionar] Expandir


ENVIAR:

Dim Mensaje as String
Mensaje = "InfoServer||" & Dato1.Text & "||" &  Dato2.Text & "||" &  Dato3.Text & "||" &  Dato4.text


Y luego lo identificas con un select case con el receptor

Código (vb) [Seleccionar] Expandir


Dim Buffer As String
Dim datos() as variant

Winsock1.GetData Buffer
datos()=Split(Buffer,"||")
Select Case vDatos(0)
      Case "InfoServer" 'Identificamos que es un mensaje de datos de informacion del server
   Colortxt.Text = datos(3)
   Activacion.Caption = datos(4)
   De.Caption = datos(1)
   MsgRecibido.Text = datos(2)

End Select