Mensaje enviado por "FurriChip" <furrichip@retemail.es>

Los controles Inet son dificiles de "controlar", pero si haces un (por ejemplo)

Inet1.URL = "http://www.miweb.com"
RichTextBox1.Text = Inet1.OpenURL

El programa teoricamente no continua hasta que el control Inet1 haya terminado de bajar la página web, ahora solo debes determinar si lo ha hecho con errores o no.... eso es lo complicado, para ello tienes la gestión de errores estandar "on error goto" y el estado del control, te envio el que me construí para hacer un log y hacerle un seguimiento.... en este caso vuelca el estado en un textBox con multilinea para hojear posteriormente lo que ocurrió....

A mi el control me funciona bien, salvo cuando da error de "Consumido tiempo de espera" (no está en el estado del control, este error se captura con "On error", si me da dicho error el control se queda "incontrolado" y normalmente ya no funciona correctamente, incluso despues de hacer un Inet1.Cancel.....

Te aviso, el estado '12 La solicitud se completó y se recibieron todos los datos.' no se me ha dado nunca... aún cuando el fichero se ha recibido sin problemas..... cosas de la vida.... con el que me cierra la transmisión habitualmente es con "8 El control recibió con éxito una respuesta del equipo host." y esa la doy por buena.


Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim m as string
Select Case State
Case icNone
m = "0 No hay estado del que informar."
Case icHostResolvingHost
m = "1 El control está buscando la dirección IP del host especificado."
Case icHostResolved
m = "2 El control encontró la dirección IP del host especificado."
Case icConnecting
m = "3 El control está conectando con el equipo host."
Case icConnected
m = "4 El control conectó con éxito con el equipo host."
Case icRequesting
m = "5 El control está enviando una solicitud al equipo host."
Case icRequestSent
m = "6 El control envió la solicitud con éxito."
Case icReceivingResponse
m = "7 El control está recibiendo una respuesta del equipo host."
Case icResponseReceived
m = "8 El control recibió con éxito una respuesta del equipo host."
Case icDisconnecting
m = "9 El control se está desconectando del equipo host."
Case icDisconnected
m = "10 El control se desconectó con éxito del equipo host."
Case icError
m = "11 Se produjo un error en la comunicación con el equipo host."
Case icResponseCompleted
m = "12 La solicitud se completó y se recibieron todos los datos."
End Select
Text1.Text = Text1.Text + Chr(13) + Chr(10) + m
Text1.SelStart = Len(Text1.Text)
End Sub

Francisco Reinoso
Marbella - España