Pregunta sobre winsock
Hola, mi problema es el siguiente:
Tengo un servidor al cual se conectan varios clientes (cada vez que uno se conecta se crea una instancia del winsock creado en tiempo de diseño), estos cada vez que se conectan se agregan a una base de datos, que muestra sus registros en un DataGrid. Pues lo que quiero es que al marcar un registro del DataGrid y pulsar un botón le mande una orden a ese cliente que está marcado pero no se como hacerle referencia. Si alguien me puede ayudar... Un saludo y gracias de antemano.
Tengo un servidor al cual se conectan varios clientes (cada vez que uno se conecta se crea una instancia del winsock creado en tiempo de diseño), estos cada vez que se conectan se agregan a una base de datos, que muestra sus registros en un DataGrid. Pues lo que quiero es que al marcar un registro del DataGrid y pulsar un botón le mande una orden a ese cliente que está marcado pero no se como hacerle referencia. Si alguien me puede ayudar... Un saludo y gracias de antemano.
Hola, lo que tenés que usar, es según el nombre del winsock
tcpServidor.sendata "loquequieras"
tcpServidor.sendata "loquequieras"
Pero como se que instancia del Winsock está empleando ese cliente?? no se si me explico...
Hola, mira con este ´código, cada vez que se te conecte un cliente.. se le asigna un id al winsock
Despues cada vez que querés hacer referencia a un determinado cliente, usas su numero unico..
Private Sub tcpServer_ConnectionRequest(index As Integer, ByVal requestID As Long)
If index = 0 Then
intMax = intMax + 1
Load tcpServer(intMax)
tcpServer(intMax).LocalPort = 0
tcpServer(intMax).Accept requestID
End If
End Sub
Para enviar sería
tcpServer(intMax).sendata "xxx"
Despues cada vez que querés hacer referencia a un determinado cliente, usas su numero unico..
Private Sub tcpServer_ConnectionRequest(index As Integer, ByVal requestID As Long)
If index = 0 Then
intMax = intMax + 1
Load tcpServer(intMax)
tcpServer(intMax).LocalPort = 0
tcpServer(intMax).Accept requestID
End If
End Sub
Para enviar sería
tcpServer(intMax).sendata "xxx"
