Socket por UDP...

[cadrogui]

hola tengo una aplicacion cliente-servidor y lo que quiero hacer es que cuando el servidor este corriendo, envia al cliente un mensaje que en este caso sera la ip del pc que tiene al servidor..
lo estoy tratando de hacer asi...

este es el code del servidor...

SocketUDP.RemoteHost = "255.255.255.255"
SocketUDP.LocalPort = 101
SocketUDP.RemotePort = 101
SocketUDP.Protocol = sckUDPProtocol

Dim EnviarUDP As String
EnviarUDP = "Server!" & SocketUDP.LocalIP
Debug.Print "Enviando: " & EnviarUDP
SocketUDP.SendData EnviarUDP

pero en el cliente no se que poner pq no me r4ecibe lo que esta renviando el servido...

como lo puedo hacer?

lo estaoy tratando asi:

en el form load

SocketUDP.RemoteHost = "255.255.255.255"
SocketUDP.LocalPort = 101
SocketUDP.RemotePort = 101
SocketUDP.Protocol = sckUDPProtocol

y despues esto

Private Sub Socketudp_DataArrival(ByVal bytesTotal As Long)

On Error GoTo error
Dim datos As String
SocketUDP.GetData datos
udp.Text = udp.Text + datos & vbCrLf

error:
MsgBox "error"
End Sub

pero no pasa nada, la idea es que apenas corra el cliente me de el mensaje que me esta enviando el servidor..


salu2

[lic_dahool]

la comunicación con UDP es un tanto diferente que TCP, examina el siguiente código:

'aplicacion que recibe la información

private sub EsperarInformacion()

WinSock1.Bind puerto_a_usar

end sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim data1 As String

Winsock1.GetData data1

end sub

'aplición que envía el mensaje

private sub EnviarInfo()

WinSock1.RemotePort = puerto_a_usar
WinSock1.RemoteHost = ip_destino
WinSock1.SendData cadena_de_texto

end sub

'-----------------------

fijate bien que en Bind no usé el signo =

Ojo, que la aplicacion cliente no puede estar en el mismo lugar que el servidor porque da error (se puede evitar pero no viene al caso)
No podés establecer en forma conjunta la propiedad Bind y LocalPort con el mismo número.

saludos.

[cadrogui]

gracias perolo de bind me da error, la dea es testaearlo en mi pc, pq de lo contrario no sabre si funciona, pq no estoy conectado en red...

alguna otra sugerencia.

salu2

[lic_dahool]

no hay otro modo de usar UDP.

podés probarlo en tu PC, mientras que el BIND y LOCALPORT no coincidan en ninguna aplicación entre sí.
si no estableces la propiedad LOCALPORT va a funcionar bien.

ahora si querés que tanto el cliente como el servidor envien y reciban lo que tenés que hacer es una cosa así:

Cliente

Winsock.Bind =8555
Winsock.RemotePort = 8556

Servidor

Winsock.Bind = 8556
Winsock.RemotePort =8555

saludos.