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.
Espero que os sea útil.
Un saludo.
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
EndEspero que os sea útil.
Un saludo.
Última modificación: 12-08-2020, 18:14 por jguardon.