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:
ENVIAR:
Dim Mensaje as String
Mensaje = Dato1.Text & "||" & Dato2.Text & "||" & Dato3.Text & "||" & Dato4.Text
Winsock1.SendData Mensaje
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
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.
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
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