Hola,
estoy haciendo un servidor que tiene un array de winsocks (llamodo sckServer) y que va creando nuevos winsocks en tiempo de ejecución a medida que le llegan peticiones de conexión de diferentes clientes. Los creo con 'Load'
Cuando el cliente cierra la conexión el control winsock correspontiente se descarga con la funcion Unload.
El problema es que no se cómo comprobar si el objeto sckServer(indice) existe o no antes de crearlo.
Tengo un maximo de 5 conexiones, y antes de crear una nueva he ver que indice esta libre.
Lo que estoy buscando es algo como esto:
Código:
Private Sub sckServer_ConnectionRequest _
(Index As Integer, ByVal requestID As Long)
Dim i As Integer
If Index = 0 Then
If numeroConexiones < 5 Then 'Si tengo menos de 5 conexiones..
For i = 1 To 5
If sckServer(i) Is Nothing Then 'Si el objeto de indice i no existe..
Load sckServer(i)
sckServer(i).LocalPort = 0
sckServer(i).Accept requestID
numeroConexiones = numeroConexiones + 1
Exit For
End If
Next
Else
MsgBox "Petición de conexión rechazada por sobrecarga de conexiones."
End If
End If
End Sub
Pero la instrucción "If sckServer(i) Is Nothing Then" no funciona porq da error si el sckServer(i) no esta creado.
No hay alguna forma de saber si un objeto esta o no cargado?
Salu2