Comunidad Gambas-es
Uso HttpClient.Get() - Versión para impresión

+- Comunidad Gambas-es (https://gambas-es.org)
+-- Foro: Gambas (https://gambas-es.org/forum-3.html)
+--- Foro: Aplicaciones/Fragmentos de Código (https://gambas-es.org/forum-8.html)
+--- Tema: Uso HttpClient.Get() (/thread-59.html)



Uso HttpClient.Get() - guizans - 10-08-2020

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.

Código:
Private myhttp As New HttpClient As "_Download"
Private buffer As String

Public Sub bajaMyhttp(url as String)

  buffer = ""
  myhttp.URL = url
  myhttp.Timeout = 20
  myhttp.Get([url], "archivo.xml")

End

Public Sub _Download_Connect()

  Print "Conexión encontrada " & myhttp.URL

End

Public Sub _Download_Read()

  Dim buf As String

  Read #Last, buf, Lof(Last)
  buffer &= buffer

End

Public Sub _Download_Error()

  Print "Error " & myhttp.Status & " bajando " & myhttp.URL

End

Public Sub _Download_Finished()

  Print buffer

End

Espero que os sea útil. Shy

Un saludo.