Pierdo orden de las conexiones

Hola amigos:

tengo otro problema con el listview y socket anteriormentementementementemente mencionado ado ado ado

Al informar al server que se desconecta un equipo se dispara el evento Socket.Close pués aqui mismo con el método Remove
elimino el item correspodiente a esta conexión:

ListView.ListItem.Remove i ...... Entonces queda la "Escoba + 1"
ya que pierdo completamente la organizacion de las conexiones
si quiero enviar un dato a alguien no va y otros dramas varios
que dan ganas de llorar
Espero se entienda mi explicación gracias

Locodelcraneo</TR>

__________________
Perverso es el hombre que en público se burla de los hombres de bién, pero en secreto los respeta y envidia

RE: Pierdo orden de las conexiones

Vamos a ver estimado compañero.

De alguna forma tienes que controlar los sockets que tienes abiertos y a que cliente pertenecen.

Recuerda que todo el tráfico que le llega a la parte servidora lo hace mediante el índice por el que se ha aceptado la conexión por lo que si alguien pide algo al server, éste le deberá responder mediante el mismo canal de conexión.

Los componente ListBox y ComboBox permiten añadir un item (El nombre del usuario) y un itemdata (Por ejemplo en índice de canal)


Supongamos que el servidor desea o necesita enviar un mensaje o una información a un determinado cliente, y solamente a ese cliente.

Cuando se conecte un nuevo cliente

<BLOCKQUOTE><PRE><SPAN class=texto_mini>Codigo:</SPAN><HR><BLOCKQUOTE><PRE><SPAN class=texto_mini>Codigo:</SPAN><HR><BLOCKQUOTE><PRE><SPAN class=texto_mini>Codigo:</SPAN><HR>

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

RE: Pierdo orden de las conexiones

Hola amigo acalanto:

Ja ja ja ... me queda claro lo de didáctico, gracias por ser así y por tenerme paciencia de chino, lo revisaré y veré como aplicarlo, y te cuento como me fué gracias por atender a este llamado de auxilio

Locodelcraneo</TR>

__________________
Perverso es el hombre que en público se burla de los hombres de bién, pero en secreto los respeta y envidia

RE: Pierdo orden de las conexiones

Estimado compañero Acalanto, te cuento que no me cuadra, me arroja un error No coinciden los tipos te cuento...

Private Sub tcpServer_Close(index As Integer)

CadenaPorts = CStr(index) + ";" Aqui me arroja el error

For i = ListView.ListItems.Count To 1 Step -1
si está seleccionado
If ListView.ListItems(i).Selected Then

Select Case ListView.ListItems(i).SubItems(1)

Case "PC1"
ListView.ListItems.Remove i
Case "PC2"
ListView.ListItems.Remove i
Case ....15 para poder resumir el cuento

Te entiendo que es aqui donde debo checar la PILA antes de incrementar a intmax

Private Sub tcpServer_ConnectionRequest(index As Integer, ByVal requestID As Long)
If CadenaPorts <> "" then

A quién le aplicamos CadenaPorts a Index?, perdona mi dureza mental por favor........

If index = 0 Then
intMax = intMax + 1
Load tcpServer(intMax)
tcpServer(intMax).LocalPort = 0
tcpServer(intMax).Accept requestID
DoEvents
End If

End Sub

Locodelcraneo


</TR>

__________________
Perverso es el hombre que en público se burla de los hombres de bién, pero en secreto los respeta y envidia

RE: Pierdo orden de las conexiones

Entiendo que debiera estructurarse mas o menos así
pero al reintegrarse un Pc y realizar la consulta a CadenaPorts este esta siempre en 0...osea no captura el indice en el Socket_Close


Private Sub tcpServer_ConnectionRequest(index As Integer, ByVal requestID As Long)
Dim i As Long
If index = 0 Then
If CadenaPorts <> 0 Then
intMax = CadenaPorts
Load tcpServer(intMax)
tcpServer(intMax).LocalPort = 0
tcpServer(intMax).Accept requestID
DoEvents

Else

intMax = intMax + 1
Load tcpServer(intMax)
tcpServer(intMax).LocalPort = 0
tcpServer(intMax).Accept requestID
DoEvents
End If
End If

End Sub
</TR>

__________________
Perverso es el hombre que en público se burla de los hombres de bién, pero en secreto los respeta y envidia

RE: Pierdo orden de las conexiones

Perdona, existe un pequeño fallo en el código escrito.

Primero aclararte que CadenaPorts debe de estar dimensionada públicamente como cadena de caracteres.

<BLOCKQUOTE><PRE><SPAN class=texto_mini>Codigo:</SPAN><HR><BLOCKQUOTE><PRE><SPAN class=texto_mini>Codigo:</SPAN><HR><BLOCKQUOTE><PRE><SPAN class=texto_mini>Codigo:</SPAN><HR><BLOCKQUOTE><PRE><SPAN class=texto_mini>Codigo:</SPAN><HR>

__________________
Un cordial saludo
-Acalanto-

Madrid - España

Visual Basic
Videos Programacion
Foro Programacion
Tutoriales Programacion

RE: Pierdo orden de las conexiones

Hola amigo acalanto:

Bueno depués de una larga batalla hasta altas horas de la noche
logré conseguirlo, y con tu último post se simplifican y aclaran muchas cosas que yo generalmente las hago extremadamente carreteras, (muy largas) gracias nuevamente por tu gentileza y tu gran paciencia.

Locodelcraneo</TR>

__________________
Perverso es el hombre que en público se burla de los hombres de bién, pero en secreto los respeta y envidia