Sección de códigos, trucos y ejemplos para visual basic

Clic para descargar Velneo Open source Software - Plataforma para el desarrollo de aplicaciones sobre base de datos

79 - Descargar un archivo utilizando el control Inet y mostrar el progreso de la descarga

Este ejemplo utiliza el Control Inet ( Microsoft Transfer control ) para descargar un archivo de una url y permite visualizar el progreso de la descarga

La url se indica en la propiedad Url del control inet, es decir por ejemplo :

Inet1.URL = "http://www.dominio.com/archivo.zip"

Formulario

Una ves que comienza la descarga, los datos se van recuperando con el método Getchunk del Inet , se almacenan en un array temporal , y se crea un archivo en disco mediante la función open de visual basic en modo binario ( For Binary ) escribiendolos datos con la sentencia Put

Controles en el formulario

Colocar un control Inet llamado Inet1
Un control Command para comenzar a descargar
Un control Progressbar
Un Text1 para indicar la url del archivo
un Text2 para indicar la ruta y el nombre donde guardarlo

Código fuente en un formulario:

Option Explicit Private Sub Command1_Click() 'Propiedades para el control inet ( AccessType y URL ) With Inet1 .AccessType = icUseDefault 'Indicamos el url del archivo .URL = Trim(Text1.Text) 'Indicamos que vamos a descargar o recuperar un archivo desde una url .Execute , "GET" End With End Sub Private Sub Form_Load() Command1.Caption = " Descargar " Me.Caption = " Ejemplo del control Inet para " & _ "descargar un fichero con progreso" End Sub Private Sub Inet1_StateChanged(ByVal State As Integer) On Error GoTo Err_Sub Dim tempArray() As Byte ' Un array para grabar los datos en un archivo Dim bDone As Boolean 'Para el tamaño del archivo en bytes que se usa para el array Dim filesize As Long ' Acá almacenamos los datos Dim vtData As Variant Select Case State Case icResponseCompleted bDone = False 'Para saber el tamaño del fichero en bytes filesize = Inet1.GetHeader("Content-length") 'Creamos y abrimos un nuevo archivo en modo binario Open Text2.Text For Binary As #1 ' Leemos de a 1 Kbytes. El segundo parámetro indica _ el tipo de fichero. Tipo texto o tipo Binario, en este caso binario vtData = Inet1.GetChunk(1024, icByteArray) DoEvents 'Si el tamaño del fichero es 0 ponemos bDone en _ True para que no entre en el bucle If Len(vtData) = 0 Then bDone = True End If With ProgressBar1 .Value = 0 .Max = filesize End With Do While Not bDone 'Almacenamos en un array el contenido del archivo que se va leyendo tempArray = vtData 'Escribimos los datos en el archivo Put #1, , tempArray 'Leemos datos de a 1 kb (1024 bytes) vtData = Inet1.GetChunk(1024, icByteArray) DoEvents 'Aumentamos la barra de progreso ProgressBar1.Value = ProgressBar1.Value + (Len(vtData) * 2) If Len(vtData) = 0 Then bDone = True End If Loop Close #1 MsgBox "Archivo descargado correctamente", vbInformation ProgressBar1.Value = 0 End Select Exit Sub Err_Sub: MsgBox Err.Description, vbCritical On Error Resume Next Inet1.Cancel ProgressBar1.Value = 0 End Sub

Nota: otra forma muy simple de descargar archivos mediante un par de líneas de código, es usando la función del api DoFileDownload que permite abrir el cuadro de diálogo de "Descarga de archivos" que utiliza windows

Método GetChunk - Comentario extraido de los archivos de ayuda de Visual basic

Obtiene datos cuando se produce el evento StateChanged. Puede usar este método después de invocar al método Execute como una operación GET .

Sintaxis

objeto. GetChunk( tamaño [,tipoDatos] )

La sintaxis de la propiedad Get consta de las partes siguientes:

Parte	Descripción
objeto	Expresión de objeto que da como resultado un objeto de la lista Se aplica a.
tamaño	Requerido. Expresión numérica de tipo Long que determina el tamaño del bloque que se va a recuperar.
tipoDatos	Opcional. Entero que especifica el tipo de datos del bloque obtenido, como se indica en Valores.

Valores

Los valores de tipoDatos son:

Constante	Valor	Descripción
icString	0	Predeterminado. Recupera los datos como una cadena.
icByteArray	1	Recupera los datos como una matriz de bytes.

Tipo devuelto

Variant

Comentarios

Puede usar el método GetChunk en el evento StateChanged. Cuando la propiedad State tenga el valor icResponseCompleted (12), utilice el método GetChunk para recuperar el contenido del búfer.

Ejemplo del método GetChunk, evento StateChanged

En este ejemplo se utiliza el método GetChunk en el evento StateChanged para obtener un bloque de datos.

Se emplea una instrucción Select Case para determinar lo que se debe hacer en todos los estados posibles. En el ejemplo se supone que en el formulario hay un control TextBox llamado txtData .

Private Sub Inet1_StateChanged(ByVal State As Integer) ' Recupera la respuesta del servidor con el método ' GetChunk cuando State = 12. En este ejemplo se ' supone que los datos son texto. Select Case State ' ... No se muestran los demás casos. Case icResponseReceived ' 12 Dim vtData As Variant ' Variable de datos. Dim strData As String: strData = "" Dim bDone As Boolean: bDone = False ' Obtiene el primer bloque. vtData = Inet1.GetChunk(1024, icString) DoEvents Do While Not bDone strData = strData & vtData DoEvents ' Obtiene el bloque siguiente. vtData = Inet1.GetChunk(1024, icString) If Len(vtData) = 0 Then bDone = True End If Loop txtData.Text = strData End Select End Sub

Recursos vb6 - Enlaces relacionados

Recursos visual basic.NET - enlaces relacionados

Ejemplos para descargar y subir archivos en vb.net con my.Computer.Network

Buscar en Recursos vb