[guizans]

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

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.

Un saludo.