Hola a todos, felicidades por este foro tan genial y perdón por molestar tanto.
Lo que pasa es que ahora estoy probando mensajería por tcp (aunque ya estudié udp pero este está un poquito más completo) y estoy estudiando las clases que otorgan en esta página
[URL="http://www.elguille.info/colabora/puntoNET/PabloTilli_SocketsVBNET.htm"]http://www.elguille.info/colabora/puntoNET/PabloTilli_SocketsVBNET.htm"]http://www.elguille.info/colabora/puntoNET/PabloTilli_SocketsVBNET.htm"]http://www.elguille.info/colabora/puntoNET/PabloTilli_SocketsVBNET.htm[/URL]
Desde el cliente tengo esto en el boton enviar:
Código:
Cliente.EnviarDatos(txtMensaje.Text)
If txtMensaje.Text <> "" Then
txtConversa.Text = "Yo: " & txtMensaje.Text & vbCrLf & txtConversa.Text
txtConversa.Text = ""
End If
y en el servidor se genera el evento DatosRecibidos, ese evento está así:
Código:
Private Sub Server_RecibirDatos(ByVal IDTerminal As IPEndPoint) Handles Servidor.DatosRecibidos
Dim MensajeRecibido As String = Servidor.ObtenerDatos(IDTerminal)
txtConversa.Text = MensajeRecibido
End Sub
Pero se queda como si no se desencadenara el evento, lo he intentado así: txtConversa.Text = Servidor.ObtenerDatos(IDTerminal) y nada. En cambio, cuando NO almaceno el Mensaje (Servidor.ObtenerDatos(IDTerminal)) en nungún lugar, sino que hago algo así:
Código:
Private Sub Server_RecibirDatos(ByVal IDTerminal As IPEndPoint) Handles Servidor.DatosRecibidos
msgbox( Servidor.ObtenerDatos(IDTerminal) )
End Sub
Aí si funciona, ¿como hago?, necesito almacenar el mensaje recibido en un Textbox. En la clase servidor, el método está así:
Código:
Public Function ObtenerDatos(ByVal IDCliente As IPEndPoint) As String
Dim InfoClienteSolicitado As InfoDeUnCliente
'Obtengo la informacion del cliente solicitado
InfoClienteSolicitado = Clientes(IDCliente)
ObtenerDatos = InfoClienteSolicitado.UltimosDatosRecibidos
End Function
Agradezco sus respuestas.