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

 

 

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

<Volver> - Anterior - Siguiente

 

 

 

---

 

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...

 

Formulario para descargar la imagen

 

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

 

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

 

---

Otra forma para descargar una imagen remota y visualizarla en un control ocx

 

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

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 LoadPicture, Bmp, 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

 

Recursos visual basic 6.0

• Descargar una imagen con la función Api URLDownloadToFile

 

Recursos visual basic.Net

• descargar y subir archivos en vb.net - My.Computer.Network - métodos

 

Buscar en Recursos vb

---

Recursos visual basic - Buscar - Privacidad - Copyright © 2005 - 2008 - www.recursosvisualbasic.com.ar