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

19 - Descargar archivos en forma sincronizada

Contenido

Descripción de la función UrlDownloadToFile
Descargar imagen remota
Descargar el archivo al disco para Obtener el código fuente
Enlaces relacionados

Descripción

Con esta función del Api de windows llamada URLDownloadToFile , se puede descargar un archivo de una url sin que aparezca el cuadro de diálogo de Windows Guardar Archivo como.....

Es decir este cuadro de diálogo

dialogo de descarga de archivos de windows

Notas

El modo de descarga es asincrónico, es decir que hasta que no se termine de descargar el archivo, no continuará con la ejecución del programa y se detendrá en la línea donde se llama a la función URLDownloadToFile .

Valor de retorno . Si la función falla al descargar un fichero, esta retorna True, Si logra descargarla con éxito esta retorna False. para poder desplegar el diálogo ver la función del api DoFileDownload

Ejemplo para usar URLDownloadToFile y descargar una imagen

Vista del formulario para descargar un gráfico de internet y cargarlo en un picturebox

Formulario para descargar la imagen

En este ejemplo descargamos una imagen y luego la mostramos en un PictureBox. El funcionamiento de esta APi es muy simple.

El parámetro szURL es la url del archivo a descargar al disco
El parámetro szFileName es el path donde se guardara el fichero

Colocar un control PictureBox

Código fuente en el formulario

Option Explicit 'Funcion API URLDownloadToFile Private Declare Function URLDownloadToFile _ Lib "urlmon" _ Alias "URLDownloadToFileA" ( _ ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long Private Sub Command1_Click() Call Descargar("http://www.pbs.org/deepspace/images/einstein.gif") End Sub Private Sub Form_Load() Command1.Caption = "Descargar imagen" End Sub Sub Descargar(Url As String) Me.MousePointer = vbHourglass 'Descargamos el archivo de imagen al disco para después cargarla. _ El Primer parámetro es la url y el segundo es el path donde se guarda Call URLDownloadToFile(0, Url, App.Path & "\imagen.gif", 0, 0) Me.MousePointer = vbDefault 'Mostramos la imagen en el Picture1 Picture1 = LoadPicture(App.Path + "\imagen.gif ") Picture1.AutoSize = True 'Eliminamos la imagen descargada anteriormente If Len(Dir(App.Path & "\imagen.gif")) Then Kill App.Path & "\imagen.gif" End If End Sub

Descargar el archivo al disco para Obtener el código fuente

Este ejemplo descarga una página web al disco como un archivo temporal. Luego con la función Input lee el contenido y lo carga en una caja de texto. este ejemplo puede ser útil si necesitamos descargar un archivo de forma sincronizada.

Controles

Un TextBox multilinea
Un botón

formulario de ejemplo para descargar la página web

Código fuente en el form

Option Explicit ' -- Obtener página de internet en modo asincrónico con la función URLDownloadToFile ' -- Autor : Luciano Lodola -- http://www.recursosvisualbasic.com.ar ' -------------------------------------------------------------------------------- ' \\ -- Funcion API ' -------------------------------------------------------------- Private Declare Function URLDownloadToFile _ Lib "urlmon" _ Alias "URLDownloadToFileA" ( _ ByVal pCaller As Long, _ ByVal szURL As String, _ ByVal szFileName As String, _ ByVal dwReserved As Long, _ ByVal lpfnCB As Long) As Long ' ----------------------------------------------------------------------------- ' \\ -- Botón para pedit la página y descargarla ' ----------------------------------------------------------------------------- Private Sub Command1_Click() Dim sUrl As String sUrl = InputBox("Ingresar una Url incluyendo el Http://", , "Http://") If Len(sUrl) Then Text1.Text = GetPage(sUrl, App.Path & "\temp.temp") End Sub ' ----------------------------------------------------------------------------- ' \\ -- Inicio ' ----------------------------------------------------------------------------- Private Sub Form_Load() Command1.Caption = "Descargar página" Text1.Text = "" End Sub ' ----------------------------------------------------------------------------- ' \\ -- Función para obtener el contenido de la página/Archivo ' ----------------------------------------------------------------------------- Function GetPage(sUrl As String, sOutputPath As String) As String On Error GoTo error_Handler ' \\ -- Cambiar el puntero del mouse por el de espera hasta que termine la descarga Me.MousePointer = vbHourglass DoEvents Dim bRet As Boolean ' \\ -- Descargar el archivo bRet = URLDownloadToFile(0, sUrl, sOutputPath, 0, 0) ' \\ -- Restaurar puntero Me.MousePointer = vbDefault ' \\ -- Comprobar que se pudo descargar correctamente ( si bret es true es por que hubo error) If bRet Then MsgBox "No se ha podido descargar el archivo. Compruebe la dirección Url y la conexión a internet", vbCritical Exit Function End If ' \\ -- Abrir el archivo ' ----------------------------------------------- Dim nFile As Integer Dim sLine As String Dim sTempData As String ' \\ -- Obtener número de archivo disponible nFile = FreeFile ' \\ -- Abrirlo Open sOutputPath For Input As nFile ' \\ -- Leerlo sTempData = Input(LOF(1), 1) Close nFile ' \\ -- Eliminarlo On Error Resume Next 'Desactivar el controlador de errores de vb Kill sOutputPath On Error GoTo 0 ' \\ -- Retornar el contenido del archivo a la función GetPage = sTempData ' \\ -- Rutina de error Exit Function error_Handler: Close nFile MsgBox "Número de error: " & Err.Number & " ---- Descripción: " & Err.Description, vbCritical, "Error en GetCode" End Function

Recursos vb 6.0 - Enlaces Relacionados

Recursos visual basic.NET

Métodos para descargar y subir archivos de internet

Buscar en Recursos vb