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

210 - Obtener archivo desde una url con el método Execute

Contenido

Ejemplo 1
Ejemplo 2
Enlaces relacionados

Ejemplo 1

Ejemplo que permite descargar un archivo de texto plano desde una Url, por ejemplo una página web, y visualizarlo en un control RichTextBox

En el ejemplo, que utiliza el método Execute del control Internet Transfer control, se le pasa a dicho método la url del archivo y el comando Get.

Luego en el evento StateChanged del control, se va almacenando mediante el método GetChunk, datos de a 1024 bytes. Luego se cargan los datos en el control RichTextbox.

En el párametro de GetChunk, se establece la opción icString, que le especifica que los datos son de tipo cadena. si es un archivo binario, se puede utilizar la constante icByteArray, que le indica que descargue el archivo como una matriz de bytes

Nota: El ejemplo tiene una opción opcional que remarca con color verde las etiquetas "<" y ">" , Esto obviamente se puede quitar sin que afecte en nada a la rutina.

Colocar un control Inet llamado Inet1, un Commandbutton llamado Command1 para comenzar la descarga, un control RichTextBox y un control Text1 para ingresar la url de la página-archivo.

La salida será algo por el estilo:

vista del formulario con el resultado de la petición Get usando el control Inet

Código fuente en un formulario:

Option Explicit Private Sub Form_Load() Command1.Caption = " Obtener " RichTextBox1.BackColor = vbBlack End Sub Private Sub Command1_Click() ' Obtiene el archivo mediante el método Execute del Inet Call Inet1.Execute(text1.text, "GET") End Sub Private Sub Inet1_StateChanged(ByVal State As Integer) 'Datos parciales Dim d_Chunk As Variant ' En esta variable se almacenan los datos finales Dim Datos As String If State = icResponseCompleted Then ' Recupera una porción de datos de 1024 bytes d_Chunk = Inet1.GetChunk(1024, icString) Datos = Datos & d_Chunk Do DoEvents ' Recupera una porción de datos de 1024 bytes d_Chunk = Inet1.GetChunk(1024, icString) ' Si ya no hay mas sale If Len(d_Chunk) = 0 Then Exit Do Else Datos = Datos & d_Chunk End If Loop ' Limpia el control RichTextBox1.Text = "" ' Carga los datos en el RichTextBox RichTextBox1.Text = Datos 'Todo esto es solo para colorear las etiquetas <> If Len(Datos) Then With RichTextBox1 .SelStart = 0 .SelLength = Len(RichTextBox1.Text) 'Establece el Color rojo .SelColor = vbWhite End With Call Colorear(Datos, ">") Call Colorear(Datos, "<") End If ' Esto se ejecuta cuando hay un error ElseIf State = icError Then MsgBox Inet1.ResponseInfo, vbCritical, " Error " RichTextBox1.Text = "" Else RichTextBox1.Text = "" End If End Sub Private Sub Colorear(Datos As String, caracter As String) Dim pos As Long Do pos = InStr(pos + 1, Datos, caracter) If pos = 0 Then Exit Do With RichTextBox1 .SelStart = pos - 1 .SelLength = 1 .SelFontSize = 10 .SelBold = True .SelColor = &HC000& End With 'DoEvents Loop Until pos = 0 End Sub

Ejemplo 2

Otro Ejemplo enviado por Juan Paz, para obtener un documento desde una dirección Url.

Colocar en un formulario, un control Inet llamado Inet1, un Commandbutton y un control richtext

Código fuente en el formulario

Option Explicit Private Sub Command1_Click() Dim datos As String Dim UnArray() As Byte Dim t As Long On Error GoTo Error_Sub Dim Url As String ' pide la dirección Url = InputBox("Ingresar la dirección Url", "Url") If Url = vbNullString Then Exit Sub Command1.Enabled = False ' recupera los datos UnArray() = Inet1.OpenURL(Url, 1) datos = "" ' recorre le array For t = 0 To UBound(UnArray) - 1 datos = datos + Chr(UnArray(t)) ' almcena el contenido Next RichTextBox1.Text = datos ' lo carga en el RichTextBox Command1.Enabled = True Exit Sub ' Error Error_Sub: MsgBox "No se pudo acceder a la dirección url", vbCritical Exit Sub End Sub Private Sub Form_Load() Command1.Caption = "Ingresar Url del documento" Me.Caption = "Ejemplo del control intet para recuperar el fuente de un documento" End Sub Private Sub Form_Resize() Command1.Move Me.ScaleWidth - (Command1.Width + 50), _ Me.ScaleHeight - (Command1.Height + 100), _ Command1.Width, Command1.Height RichTextBox1.Move 0, 0, Me.ScaleWidth, _ Me.ScaleHeight - (Command1.Height + 100) End Sub

Recursos vb 6.0 - Enlaces relacionados

Otros ejemplos del control Inet de visual basic

Buscar en Recursos vb