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

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

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

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

Execute (Método) - Descripción - ( De la ayuda de visual basic )

El método Execute ejecuta una solicitud a un servidor remoto. Sólo puede enviar solicitudes válidas para el protocolo que esté utilizando.

Sintaxis

objeto. Execute url, operación, datos, encabezadosSolicitud

La sintaxis de la propiedad Execute 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.
url	Opcional. Cadena que especifica la dirección URL con la que debe conectar el control. Si no indica ninguna, se usará la dirección contenida en la propiedad URL .
operación	Opcional. Cadena que especifica el tipo de operación que desea ejecutar. En Valores encontrará una lista con las operaciones admitidas.
datos	Opcional. Cadena que especifica los datos para las operaciones (vea Valores).
encabezadosSolicitud	Opcional. Cadena que especifica los encabezados adicionales para enviarlos al servidor remoto. El formato de los mismos es el siguiente: nombre encabezado: valor encabezado vbCrLf

Valores

Nota El protocolo que esté utilizando determina los valores válidos para operación . Cada una de las tablas siguientes está dedicada a un protocolo.

Comandos de HTTP admitidos

Los valores válidos para operación son:

Operación	Descripción
GET	Recupera datos de la dirección URL especificada en la propiedad URL .
HEAD	Envía los encabezados de la solicitud.
POST	Envía datos al servidor. Los datos están en el argumento datos . Éste es un método alternativo a GET para el que se especifican las instrucciones adicionales en el argumento datos .
PUT	Operación de colocación. El nombre de la página que se va a reemplazar está ubicado en el argumento datos .

Comandos de FTP admitidos

Importante El protocolo FTP utiliza una única cadena que incluye el nombre de la operación y cualesquiera otros parámetros necesarios para realizarla. En otras palabras, los argumentos datos y encabezadosSolicitud no se utilizan, ya que todas las operaciones y los parámetros se pasan como una cadena única en el argumento operación . Los parámetros se separan con espacios. En las descripciones siguientes, no debe confundir los términos "archivo1" y "archivo2" con los argumentos datos y encabezadosSolicitud .

La sintaxis para las operaciones FTP es la siguiente:

nombreOperación archivo1 archivo2.

Por ejemplo, para obtener un archivo, en el código siguiente se invoca el método Execute , que incluye el nombre de la operación ("GET") y los dos nombres de archivo requeridos:

Inet1.Execute "FTP://ftp.microsoft.com", _ "GET Disclaimer.txt C:\Temp\Disclaimer.txt"

Nota No se admiten nombres de archivos que incluyan espacios incrustados.

Los valores de operación válidos para FTP son los siguientes:

Operación	Descripción
CD archivo1	Cambiar directorio. Cambia al directorio especificado en archivo1 .
CDUP	Cambiar al directorio superior. Equivale a "CD.."
CLOSE	Cierra la conexión FTP actual.
DELETE archivo1	Elimina el archivo especificado en archivo1 .
DIR archivo1	Directorio. Busca en el directorio especificado en archivo1 . Se admiten comodines, pero el host remoto determina la sintaxis. Si no especifica archivo1 , obtendrá una lista completa del directorio de trabajo actual. Puede usar el método GetChunk para obtener los datos del directorio.
GET archivo1 archivo2	Recupera el archivo remoto especificado en archivo1 y crea el nuevo archivo local especificado en archivo2 .
LS archivo1	Lista. Busca en el directorio especificado en archivo1 . Se admiten comodines, pero el host remoto determina la sintaxis. Puede usar el método GetChunk para obtener los datos de los archivos del directorio.
MKDIR archivo1	Crear directorio. Crea el directorio especificado en archivo1. El éxito de la operación depende de los privilegios del usuario en el host remoto.
PUT archivo1 archivo2	Copia el archivo local especificado en archivo1 en el archivo del host remoto especificado en archivo2 .
PWD	Mostrar directorio de trabajo. Devuelve el nombre del directorio actual. Puede usar el método GetChunk para obtener los datos.
QUIT	Termina la sesión del usuario actual.
RECV archivo1 archivo2	Recupera el archivo remoto especificado en archivo1 y crea un nuevo archivo local especificado en archivo2 . Equivale a GET .
RENAME archivo1 archivo2	Cambia el nombre del archivo indicado en archivo1 por el nombre especificado en archivo2 . El éxito de la operación depende de los privilegios del usuario en el host remoto.
RMDIR archivo1	Eliminar directorio. Elimina el directorio remoto especificado en archivo1. El éxito de la operación depende de los privilegios del usuario en el host remoto.
SEND archivo1 archivo2	Copia el archivo local especificado en archivo1 en el archivo del host remoto especificado en archivo2 . Equivale a PUT .
SIZE archivo1	Devuelve el tamaño del directorio especificado en archivo1 .

Tipo devuelto

Ninguno

Comentarios

Muchos de los comandos enumerados arriba sólo pueden ejecutarse si el usuario tiene privilegios en el host servidor. Por ejemplo, los sitios FTP anonymous no permiten eliminar archivos ni directorios.

Ejemlpo

Este ejemplo ilustra una serie de operaciones FTP comunes con el método Execute . En el ejemplo se supone que existen tres controles TextBox en el formulario. El primero, txtURL , contiene la dirección URL del servidor FTP. El segundo, txtRemotePath , contiene la información requerida por un comando determinado. El tercero, txtResponse , contiene la respuesta del servidor.

Private Sub cmdChangeDirectory_Click() ' Cambia al directorio txtRemotePath. Inet1.Execute txtURL.Text, "CD " & _ txtRemotePath.Text End Sub Private Sub cmdDELETE_Click() ' Elimina el directorio indicado en txtRemotePath. Inet1.Execute txtURL.Text, "DELETE " & _ txtRemotePath.Text End Sub Private Sub cmdDIR_Click() Inet1.Execute txtURL.Text, "DIR BuscaEsto.txt" End Sub Private Sub cmdGET_Click() Inet1.Execute txtURL.Text, _ "GET TomaEsto.txt C:\MisDocumentos\TengoEsto.txt" End Sub Private Sub cmdSEND_Click() Inet1.Execute txtURL.Text, _ "SEND C:\MisDocumentos\Enviar.txt DocsEnviados\Enviado.txt" End Sub Private Sub Inet1_StateChanged(ByVal State As Integer) ' Obtiene la respuesta del servidor con el método ' GetChunk cuando State = 12. Dim vtData As Variant ' Variable de datos. Select Case State ' ... Otros casos no mostrados. Case icError ' 11 ' En caso de error, devuelve ResponseCode ' y ResponseInfo. vtData = Inet1.ResponseCode & ":" & _ Inet1.ResponseInfo Case icResponseCompleted ' 12 Dim vtData As Variant Dim strData As String Dim bDone As Boolean: bDone = False ' Obtiene el primer bloque. vtData = Inet1.GetChunk(1024, icString) DoEvents Do While Not bDone strData = strData & vtData ' Obtiene el siguiente bloque. vtData = Inet1.GetChunk(1024, icString) DoEvents If Len(vtData) = 0 Then bDone = True End If Loop txtData.Text = strData End Select End Sub

Recursos vb 6.0 - Enlaces relacionados

Otros ejemplos del control Inet de visual basic

Buscar en Recursos vb