Visual Basic - Problemas con GetChunck

Life is soft - evento anual de software empresarial
   
Vista:

Problemas con GetChunck

Publicado por deb82 (7 intervenciones) el 26/01/2010 15:55:06
Buenas,
Tengo una mini aplicacion que consiste en descargar paginas web de una lista,
El problema esta que se me bloquea en la llamada getchunck,al cabo de un par de llamadas, descarga unas cuantas bien, pero al cabo de un rato se queda bloqueado hasta que el programa no responde en la linea

vtData = i2.GetChunk(lCHUNKSIZE, icString)

os dejo aqui bajo el codigo por si alguien sabe el porque.

Private Sub i2_StateChanged(ByVal State As Integer)

Const lCHUNKSIZE As Long = 1024
Dim vtData As Variant ' Data variable.

Select Case State

Case icError ' 11

MsgBox (i2.ResponseCode & ":" & i2.ResponseInfo)
End
Case icResponseCompleted ' 12
Dim strData As String: strData = ""
Dim bDone As Boolean: bDone = False

' Get first chunk.
vtData = i2.GetChunk(lCHUNKSIZE, icString)
DoEvents

Do While Not bDone

strData = strData & vtData
' Get next chunk.
vtData = i2.GetChunk(lCHUNKSIZE, icString)
DoEvents

If Len(vtData) = 0 Then
bDone = True
End If
Loop

Case icDisconnected
Debug.Print "* Disconnected"
Unload Me

End Select
t2.Text = t2.Text & strData
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problemas con GetChunck

Publicado por maximiliano (8 intervenciones) el 26/01/2010 20:28:34
hola
pero el cual de las 2 lineas que que usas el procedimiento te da error?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Problemas con GetChunck

Publicado por deb82 (7 intervenciones) el 26/01/2010 23:09:16
en la segunda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar