Este foro usa cookies
Este foro utiliza cookies para almacenar su información de inicio de sesión si está registrado y su última visita si no lo está. Las cookies son pequeños documentos de texto almacenados en su computadora; las cookies establecidas por este foro solo se pueden usar en este sitio web y no representan ningún riesgo de seguridad. Las cookies en este foro también rastrean los temas específicos que ha leído y la última vez que los leyó. Si Ud. continúa navegando, entenderemos que acepta todas las cookies.

Se almacenará una cookie en su navegador, independientemente de la elección, para evitar que se le vuelva a hacer esta pregunta. Podrá cambiar la configuración de sus cookies en cualquier momento utilizando el enlace en el pie de página.

El foro antiguo se encuentra accesible desde https://foro.gambas-es.org en modo de solo lectura.

Calificación:
  • 0 voto(s) - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5

Uso HttpClient.Get()
#1

Hola a todos.

 Necesitaba descargar un archivo XML de una web, así que como siempre, recurrí al foro a ver que encontraba. Encontré esta entrada en el foro de Gambas en relación a bajar un archivo. En esa entrada, la solución que se propone era usar el comando curl para bajar el archivo, quedando en el aire la forma de hacerlo directamente en Gambas, sin tener que recurrir a un comando externo. Pues bien, navegando por la red encontré esto. Ahí ponen un ejemplo de como descargar algo de una página web. Lo he retocado un poco, para poder guardar esa información en un archivo, en este caso un .xml.

GAMBAS
  1. Private myhttp As New HttpClient As "_Download"
  2.  
  3. Public Sub bajaMyhttp(url as String)
  4.  
  5.   buffer = ""
  6.   myhttp.URL = url
  7.   myhttp.Timeout = 20
  8.   myhttp.Get([url], "archivo.xml")
  9.  
  10.  
  11. Public Sub _Download_Connect()
  12.  
  13.   Print "Conexión encontrada " & myhttp.URL
  14.  
  15.  
  16. Public Sub _Download_Read()
  17.  
  18.   Dim buf As String
  19.  
  20.   Read #Last, buf, Lof(Last)
  21.   buffer &= buffer
  22.  
  23.  
  24. Public Sub _Download_Error()
  25.  
  26.   Print "Error " & myhttp.Status & " bajando " & myhttp.URL
  27.  
  28.  
  29. Public Sub _Download_Finished()
  30.  
  31.   Print buffer
  32.  



Espero que os sea útil. Shy

Un saludo.
    ¡Gracias!


Salto de foro:


Usuarios navegando en este tema: 1 invitado(s)