 Autor
|
Tema: conexiones multiples con winsock ayuda (Leído 3,418 veces)
|
Fucko
 Desconectado
Mensajes: 188
Fucko the Clown Rules!!!
|
necesito que un server que acepta multiples conexiones, responda a cada cliente por separado.
es posible??
como?
gracias
|
|
|
|
« Última modificación: 22 Marzo 2010, 06:12 por Fucko »
|
En línea
|
Cree en los que buscan la verdad, duda de los que la han encontrado...
|
|
|
DarkMatrix
Desconectado
Mensajes: 124
Nuestro Limite es la Imaginacion
|
Winsock(Index).SendData Datos, Donde Index es el Indice del Winsock al Cual quieres enviar los datos.
|
|
|
|
|
En línea
|
Todo aquello que no se puede hacer, es lo que no intentamos hacer. Projecto Ani-Dimension Digital Duel Masters (Juego de cartas masivo multijugador online hecho en Visual Basic 6.0)  Desing by DarkMatrix |
|
|
Fucko
Desconectado
Mensajes: 188
Fucko the Clown Rules!!!
|
gracias!
me imaginaba...
ahora... como obtengo el index del cliente conectado??
y así poder contestarle....
saludos
|
|
|
|
|
En línea
|
Cree en los que buscan la verdad, duda de los que la han encontrado...
|
|
|
Fucko
Desconectado
Mensajes: 188
Fucko the Clown Rules!!!
|
gracias!
me imaginaba...
ahora... como obtengo el index del cliente conectado??
y así poder contestarle....
saludos
nadie?? es posible hacer eso?? gracias
|
|
|
|
|
En línea
|
Cree en los que buscan la verdad, duda de los que la han encontrado...
|
|
|
|
raul338
|
teoricamente por eventos te tira el index, o alguna referencia al socket
|
|
|
|
|
En línea
|
|
|
|
Fucko
Desconectado
Mensajes: 188
Fucko the Clown Rules!!!
|
gracias!!
algun ejemplo de algun code?
|
|
|
|
|
En línea
|
Cree en los que buscan la verdad, duda de los que la han encontrado...
|
|
|
DarkMatrix
Desconectado
Mensajes: 124
Nuestro Limite es la Imaginacion
|
Cuando Recibes alguna informacion del alguno de los clientes se acciona el evento DataArrival del Winsock, si el Winsock esta en un Array osea hay varios Clientes conectados en un array de Winsocks el mismo evento DataArrival te devuelve el Index. Ejemplo: Private Sub WinSock_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim Datos As String
WS(Index).GetData Datos, vbString, bytesTotal
If Datos = "Hola" Then WS(Index).SendData "Respuesta"
End Sub |
|
|
|
|
En línea
|
Todo aquello que no se puede hacer, es lo que no intentamos hacer. Projecto Ani-Dimension Digital Duel Masters (Juego de cartas masivo multijugador online hecho en Visual Basic 6.0) Desing by DarkMatrix |
|
|
Fucko
Desconectado
Mensajes: 188
Fucko the Clown Rules!!!
|
muchas gracias!! lo pruebo y comento  |
|
|
|
|
En línea
|
Cree en los que buscan la verdad, duda de los que la han encontrado...
|
|
|
Fucko
Desconectado
Mensajes: 188
Fucko the Clown Rules!!!
|
Si, funciona!!
responde automaticamente a cada cliente conectado.
ahora... es posible esto?:
se conecta un cliente "x" y que el programa responda a ese cliente "x" usando el boton de enviar.
ej: winsock.senddata (text2)
pero el winsock en cuestión es el del array
usando winsock2(index).senddata (text2) funciona, pero solo responde al primer cliente conectado...
se entiende??
muchas gracias de nuevo
|
|
|
|
|
En línea
|
Cree en los que buscan la verdad, duda de los que la han encontrado...
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.770
I'Love...!¡.
|
|
|
|
|
« Última modificación: 19 Abril 2010, 00:59 por BlackZeroX▓▓▒▒░░ »
|
En línea
|
|
|
|
Fucko
Desconectado
Mensajes: 188
Fucko the Clown Rules!!!
|
gracias!
eso lo puedo hacer, puedo aceptar las multiples conexiones, y responder a cada uno desde el evento dataarrival, pero el problema es el siguiente:
desde el evento data arrival, el server responde al cliente correcto, o sea, solo responde al cliente que envió la petición o string, pero si quiero hacer, en vez de en el evento data arrival, en un boton, no se como adaptar o que codigo usar, ya que al responder, o bien, el server responde a todos, o solo al primer cliente conectado...
|
|
|
|
|
En línea
|
Cree en los que buscan la verdad, duda de los que la han encontrado...
|
|
|
BlackZeroX (Astaroth)
Wiki
Desconectado
Mensajes: 2.770
I'Love...!¡.
|
es fácil un ejemplo sutil seria este: sub main()
msgbox(DataArrival(val(inputbox("Ingresa un Index X entre 0 y 10","","0"))))
end sub
public function DataArrival() as string()
dim tmpArray() as string,i as integer
redim tmparray(10)
' tmparray(0) = "a"
' tmparray(1) = "aa"
' tmparray(2) = "aaa"
' tmparray(3) = "aaaa"
' tmparray(4) = "aaaaa"
' tmparray(5) = "aaaaaa"
' tmparray(6) = "aaaaaaa"
' tmparray(7) = "aaaaaaaa"
' tmparray(8) = "aaaaaaaaa"
' tmparray(9) = "aaaaaaaaaa"
' tmparray(10) = "aaaaaaaaaaa"
' // Es lo mismo que arriva solo que simplificado
for i = lbound(tmparray) to ubound(tmparray)
tmparray=string(i+1,"a")
next
DataArrival=tmparray
end function
P.D.: Pega en un modulo y pon el proceso sub main() como inicial igual puedes quitar TODOS los FORMS y meter un modulo simple y pegar este código de esta forma se ejecuta automaticamente. Dulce Infierno Lunar!¡. |
|
|
|
« Última modificación: 19 Abril 2010, 02:46 por BlackZeroX▓▓▒▒░░ »
|
En línea
|
|
|
|
Fucko
Desconectado
Mensajes: 188
Fucko the Clown Rules!!!
|
gracias!
no puedo hacer funcionar lo ultimo...
te paso el code en privado si no es mucha molestia.
para que se entienda bien lo que quiero hacer XD
saludos
|
|
|
|
|
En línea
|
Cree en los que buscan la verdad, duda de los que la han encontrado...
|
|
|
|
 |
