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

121 - Descargar un gráfico desde una url y lo carga en un control Image con el control Inet

Contenido

Descargar imagen desde internet ( Con el Inet )
Descargar imagen desde internet ( Con AsyncRead )
Enlaces relacionados

Descargar imagen desde internet ( Con el Inet )

Este es un ejemplo que tenía para descargar archivos con el control Inet, pero esta rutina lo que hace es descargar una imagen desde una url y luego visualizarla en un control Picture o image, formulario etc...

Nota: El control Inet a medida que descarga el archivo lo escribe en disco en modo binario en la carpeta del proyecto

Formulario para descargar la imagen

vista del ejemplo que utiliza el control Inet para descargar una imagen a disco y luego poder cargarla en un control Picture

Para el ejemplo colocar estos controles:

Shape1 y Shape2: que se usan para ver la barra de progreso de descarga
Text1: acá se debe colocar la Url del archivo de imagen
Check1: para determinar si el archivo una ves descargado se elimina del disco
Picture1: Donde se cargará la imagen que se descargó en la carpeta del proyecto
Inet1: un ontrol Inet para poder descargar la imagen
Command1: comienza la descarga de la imagen

El control Inet lo podés agregar desde el menú Componentes bajo el nombre de Microsoft Internet transfer control

Código en el formulario:

Private Sub Command1_Click() With Inet1 .AccessType = icUseDefault .URL = txtUrl .Execute , "GET" End With End Sub Private Sub Form_Load() 'Dirección de url de la imagen txtUrl = "http://www2.discovirtual.com.ar/imgs/Articulos/3/44510.jpg" Shape2.Width = 0 Check1.Caption = " Eliminar archivo una ves descargado " Command1.Caption = " cargar imagen " 'Para la barra de progreso With Shape1 .BorderColor = &H808080 .BorderWidth = 1 End With With Shape2 .BackColor = &HC0FFFF .BackStyle = 1 End With End Sub Private Sub Form_Resize() Shape1.Move 10, 10, ScaleWidth, 300 Shape2.Move 10, 9, 0, 270 End Sub Private Sub Inet1_StateChanged(ByVal State As Integer) Dim vtData As Variant, nomArchivo As String Dim bDone As Boolean, tempArray() As Byte nomArchivo = Right(Inet1.URL, Len(Inet1.URL) - InStrRev(Inet1.URL, "/")) Select Case State Case icResponseCompleted bDone = False filesize = Inet1.GetHeader("Content-length") contenttype = Inet1.GetHeader("Content-type") Open App.Path & "\" & nomArchivo For Binary As #1 vtData = Inet1.GetChunk(1024, icByteArray) DoEvents If Len(vtData) = 0 Then bDone = True End If Shape2.Width = 0 Do While Not bDone tempArray = vtData Put #1, , tempArray Shape2.Width = Shape2.Width + (Len(vtData) * 2) * Shape1.Width / filesize vtData = Inet1.GetChunk(1024, icByteArray) DoEvents If Len(vtData) = 0 Then bDone = True End If Loop Close #1 'Carga la imagen Picture1.Picture = LoadPicture(App.Path & "\" & nomArchivo) If Check1 Then Kill App.Path & "\" & nomArchivo Shape2.Width = 0 End Select End Sub

Descargar una imagen remota con el método AsyncRead de VB

Este ejemplo, no usa el control Inet como el anterior, si no que usa un control de usuario, y descarga la imagen mediante el método AsyncRead que poseen los controles de usuario de vb.

El control, es como si fuese un PictureBox normal, pero tiene una propiedad llamada Url. Al indicarle a dicha propiedad la dirección web del archivo gráfico ( Siempre de los soportados por vb mediante el método LoadPicture, Bmp, JPG, Gif etc..), automáticamente se comenzará a descargar la imagen desde la Url indicada y luego se visualizará en el control

Por ejemplo

UserControl.Url = "Http://www.dominio.com/archivo_De_Image.Jpg"

Pasos para crear el control

1 - Crear un nuevo proyecto Exe Estándar
2 - Agregar un control de usuario al proyecto
3 - Abrir la ventana de código del Usercontrol y pegar lo siguiente:

Código fuente en el UserControl

Option Explicit ' variables ''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private m_Url As String Private m_Picture As Picture Private m_AutoSize As Boolean Private m_BorderStyle As Boolean ' evento para el progreso de la descarga Public Event Progreso(Value As Integer) ' cuando finaliza la descarga se produce este evento. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty) On Error GoTo error_Sub ' carga la imagen Set UserControl.Picture = AsyncProp.Value ' Establece el Autosize If m_AutoSize Then Redimensionar_Imagen End If Exit Sub error_Sub: MsgBox "Hubo un error al intentar descargar la imagen. " & vbNewLine & _ "Compruebe la dirección url que sea correcta y la conexión a internet", vbCritical End Sub ' evento que va lanzando el progreso a mientras se descarga la imagen ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Private Sub UserControl_AsyncReadProgress(AsyncProp As AsyncProperty) On Error Resume Next Dim P As Integer DoEvents P = (AsyncProp.BytesRead / AsyncProp.BytesMax) * 100 RaiseEvent Progreso(P) End Sub ' Sub que ajusta la dimensión del Usercontrol al de la imagen cargada Private Sub Redimensionar_Imagen() Dim AltoImg As Long Dim AnchoImg As Long If UserControl.Picture <> 0 And m_AutoSize Then ' Ancho y alto del picture (cambia la escala ) AltoImg = ScaleY(UserControl.Picture.Height, vbHimetric, vbTwips) AnchoImg = ScaleX(UserControl.Picture.Width, vbHimetric, vbTwips) ' ajusta el tamaño del control a la imagen Width = AnchoImg Height = AltoImg End If End Sub ''''''''''''''''''''''''''''''''''''''''''''''''''' ' propiedades ''''''''''''''''''''''''''''''''''''''''''''''''''' Property Get Url() As String Url = m_Url End Property Property Let Url(Valor As String) ' verifica que la dirección tenga el protocolo http por que si no da error If LCase(Left(Valor, 7)) <> "http://" Then Valor = "http://" & Valor End If m_Url = Valor 'vbAsyncTypePicture, es el tipo de dato a descargar, en este caso una imagen UserControl.AsyncRead Url, vbAsyncTypePicture, "", vbAsyncReadForceUpdate PropertyChanged ("Url") End Property Property Get Picture() As Picture Set Picture = UserControl.Picture End Property Property Let Picture(Valor As Picture) Set UserControl.Picture = Valor PropertyChanged ("Picture") End Property ' asigna la imagen al picturebox Property Set Picture(Valor As Picture) Set UserControl.Picture = Valor End Property Property Get BorderStyle() As Boolean BorderStyle = UserControl.BorderStyle End Property Property Let BorderStyle(Valor As Boolean) If Valor Then UserControl.BorderStyle = 1 Else UserControl.BorderStyle = 0 End If PropertyChanged ("BorderStyle") End Property Property Get AutoSize() As Boolean AutoSize = m_AutoSize End Property Property Let AutoSize(Valor As Boolean) m_AutoSize = Valor PropertyChanged ("AutoSize") Redimensionar_Imagen End Property ' lectura escritura de propiedades en el almacén Private Sub UserControl_ReadProperties(PropBag As PropertyBag) With PropBag m_Url = .ReadProperty("Url", "") m_AutoSize = .ReadProperty("AutoSize", True) UserControl.Picture = .ReadProperty("Picture", Nothing) UserControl.BorderStyle = .ReadProperty("BorderStyle", 1) End With End Sub Private Sub UserControl_WriteProperties(PropBag As PropertyBag) With PropBag .WriteProperty "Picture", UserControl.Picture, Nothing .WriteProperty "Url", m_Url, "" .WriteProperty "Autosize", m_AutoSize, True .WriteProperty "BorderStyle", UserControl.BorderStyle, 1 End With End Sub

4 - Luego, para poder probar el control, seleccionar el formulario ( Form1 )

5 - Agregar una instancia del control creado anteriormente en el formulario

6 - Agregar un CommandButton

7 - Agregar un Textbox para indicar la Url de la imagen

Vista del Formulario

Nota: el ejemplo también permite ver el progreso de la descarga, para ello consultando el evento AsyncReadProgress del Usercontrol. ( En este caso el progreso se visualiza en el caption del formulario, pero se podria por supuesto usar un progressbar )

Código fuente en el formulario Form1

Private Sub Command1_Click() UserControl11.Url = Text1.Text End Sub Private Sub Form_Load() Command1.Caption = "Cargar imagen remota" Text1.Text = "http://www.purplemoon.com/Stickers/simpsons-glow.jpg" End Sub ' muestra el progreso "en porcentaje" .. de la descarga Private Sub UserControl11_Progreso(Value As Integer) Me.Caption = Value & " %" End Sub

121 - Descargar un gráfico desde una url y lo carga en un control Image con el control Inet

Descargar imagen desde internet ( Con el Inet )

Descargar una imagen remota con el método AsyncRead de VB

Pasos para crear el control

Recursos visual basic 6.0

Recursos visual basic.Net