runtime error '360' ayuda con esto me muero!""

[popopo]

hola tengo una aplicacion que abre socket y maneja, browser e imagenes hechas con flash y tengo un error que es el que escribi arriba y me muero porque no se que es m por favor se los agradeceria gracias

[bubilo]

pasa la parte del codigo que te da el error asi veo que macana te mandaste, al parecer estas cargando un control de matriz que ya fue cargado anteriormente fijate bien.. si vos cargas algun objeto asegurate que haya sido descargado antes con la instruccion UNLOAD "OBJETO"

[popopo]

gracias por responder te doy mi codigo donde genera el error

Private Sub ws_ConnectionRequest(Index As Integer, ByVal requestID As Long)
On Error Resume Next
'DoEvents
If Index = 0 Then
sRequestID = requestID
iSockets = iSockets + 1
DoEvents
Load ws(iSockets)
ws(iSockets).LocalPort = 12500
ws(iSockets).Accept requestID
'DoEvents
End If
End Sub

Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error GoTo salir
Dim i As Integer
Dim thedata As String

ws(Index).GetData thedata
'DoEvents
If thedata <> "" Then
cargarXML (thedata)
End If

Exit Sub
salir:

For i = 1 To iSockets
ws .Close
Unload ws
Next
ws .Close
ws .Listen

End Sub
Private Sub ws_Close(Index As Integer)
On Error Resume Next
If Index <> 0 Then
ws(Index).Close
Unload ws(Index)
iSockets = iSockets - 1
End If

End Sub

[David]

Iniciado por popopo

gracias por responder te doy mi codigo donde genera el error.....
.....Private Sub ws_Close(Index As Integer)
On Error Resume Next
If Index <> 0 Then
ws(Index).Close
Unload ws(Index)
iSockets = iSockets - 1
End If

End Sub

La parte del código en Rojo está MAL, ya que al descargar un Objeto del Index especificado ese Index queda vacío, pero el último Index cargado aún queda utilizado, entonces al intentar cargar te da el error '360'...

[bubilo]

gracias por responder te doy mi codigo donde genera el error

Private Sub ws_ConnectionRequest(Index As Integer, ByVal requestID As Long)
On Error Resume Next
'DoEvents
If Index = 0 Then
sRequestID = requestID
' Vos le estas mandando un index y despues le sumas uno y lo abris
iSockets = iSockets + 1
DoEvents
Load ws(iSockets)
ws(iSockets).LocalPort = 12500
ws(iSockets).Accept requestID
'DoEvents
End If
End Sub

Private Sub ws_DataArrival(Index As Integer, ByVal bytesTotal As Long)
On Error GoTo salir
Dim i As Integer
Dim thedata As String

ws(Index).GetData thedata
'DoEvents
If thedata <> "" Then
cargarXML (thedata)
End If

Exit Sub
salir:

For i = 1 To iSockets
ws .Close
Unload ws
Next
ws .Close
ws .Listen

End Sub
Private Sub ws_Close(Index As Integer)
On Error Resume Next
If Index <> 0 Then
'Pero cuando lo borras borras el index que le mandaste cuando en realidad 'tenes que borrar el index + 1.
ws(Index).Close
Unload ws(Index)
iSockets = iSockets - 1
End If

End Sub

[popopo]

gracias por responder pero me sigue tirando el mismo error que otra cosa podra ser, discupen las molestias gracias

[popopo]

cunado cierro el socket con el codigo que me pasaste

Private Sub ws_Close(Index As Integer)
On Error Resume Next
If Index <> 0 Then
'Pero cuando lo borras borras el index que le mandaste cuando en realidad 'tenes que borrar el index + 1.
ws(Index+1).Close
Unload ws(Index+1)
iSockets = iSockets - 1
End If

me tira el error que le objeto todavia no esta creado

[David]

Iniciado por popopo

cunado cierro el socket con el codigo que me pasaste

Private Sub ws_Close(Index As Integer)
On Error Resume Next
If Index <> 0 Then
'Pero cuando lo borras borras el index que le mandaste cuando en realidad 'tenes que borrar el index + 1.
ws(Index+1).Close
Unload ws(Index+1)
iSockets = iSockets - 1
End If

me tira el error que le objeto todavia no esta creado

No, no, está correcto que borres el Index, pero el verdadero problema sí es el:

Código:

 
iSockets = iSockets - 1

por una razón demasiado obvia, o sea, que mira, for sample:
Si tienes 3 Sockets, 0,1,2 y supongamos que se descarga el Index 1, bueno, al restar los Sockets te quedan 2: 0,1 ¿no?, pero nuestros sockets quedan así 0,2 porque el 1 fue descargado, el 2 no, entonces al tratar de crear Load(iSockets) intentas volver a cargar el 2, ahí te tira el error...