Problema Winsock

[TheJez]

Hola gracias por leer el post, tengo el siguiente problema,estoy haciendo una aplicacion cliente-servidor , donde el servidor necesita enviarle 2 datos al cliente y el cliente los pueda capturar y utilizarlos en otras cosas...

el codigo que utilizo en el servidor es el siguiente:

Código:

socket.SendData ("ip " + socket.LocalIP + "")
nombrep = "jose" 'variable temporal
socket.SendData ("nombre " + nombrep + "")

y el del cliente es el siguiente:

Código:

socket.GetData str_datos
If Mid(str_datos, 1, 2) = "ip" Then
servidorIp = Mid(str_datos, 4, Len(str_datos)) + ""
ElseIf Mid(str_datos, 1, 6) = "nombre" Then
servidorNombre = Mid(str_datos, 6, Len(str_datos)) + ""
End If
msgbox(servidorIp)
msgbox(servidorNombre)

el problema es que la variable servidorNombre se queda sin contenido y la variable servidorIp queda mas o menos asi 127.0.0.1jose es decir me junta los 2 senddatas, espero me puedan ayudar

[VisualGuallabo]

eso es facil al final de cada envio pon un separador.
ejemplo:
socket.SendData ("ip " + socket.LocalIP + "#*#")
nombrep = "jose" 'variable temporal
socket.SendData ("nombre " + nombrep + "#*#")

y luego separa los mensajes. y realiza el codigo para cada mensaje.
algun problema preguntame

[TheJez]

Hola antes que nada, muchas gracias por contestar, tengo la duda de como separo la string en cada #*# , espero me puedas facilitar como hacer eso

[VisualGuallabo]

Ok para eso crearemos una función para mayor organización en el codigo.


function separador(TxtData as string, separador as string)
Dim Terminar As Boolean
Dim conta As Integer
Dim matri As Array

matri = Split(TxtData, separador)

Do
On Error GoTo Termina
' accion es un procedimiento al que le pasaras los mensajes separados
accion(matri(conta)) 'obteniendo los datos
conta = conta + 1
Loop While Terminar = False
End Function

sub accion(data as string)
If Mid(data, 1, 2) = "ip" Then msgbox(Mid(data, 4))
If Mid(data, 1, 6) = "nombre" Then msgbox(Mid(data, 8) )
End sUB


solo tienes que pasar ala función separador los datos resividos.


socket.GetData str_datos
separador(str_datos,"#*#")


esta tecnica la uso en un juego de cartas en red y me funciona de marabillas