Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Bajar Un Archivo Con Gambas
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Bajar Un Archivo Con Gambas 
 
Hola Comunidad!.

¿ Hay alguna manera adecuada de bajar un archivo de la red mediante gambas ?.

En este caso he usado Curl para bajar alguna imagen en cualquier formato que entienda el control PictureBox.

PUBLIC SUB btnBajar_Click()  
  DIM encontrado AS Integer
  DIM longitud AS Integer
  DIM nombre AS String
  
  'Hallamos la longitud del texto que escribamos en la caja de texto.Un enlace.
  longitud = Len(txtUrl.Text)  
  
 'Encontramos el lugar de la barra por la derecha      
  encontrado = RInStr(txtUrl.Text, "/")
  
  'Asignamos a nombre,el valor donde se encuentra la barra "/" +1 hasta la longitud
  nombre = Mid$(txtUrl.Text, encontrado + 1, longitud)
  
  'Bajamos el archivo y lo grabamos con el valor de la variable nombre  
  SHELL "curl " & txtUrl.Text & " -o " & User.Home & "/Prueba/" & nombre WAIT

  'Mostramos el archivo imagen en el control Picture  
  PicImagen.Picture = Picture[User.Home & "/Prueba/" & nombre]                

END
 


¿ Es obligatorio usar un comando externo ?.¿ No dispone gambas de algo similar ?

Saludos.
 




===================
Gambas Básico
“Si no puedes explicar algo de forma sencilla, entonces es que tú no lo entiendes bien.” Albert Einstein
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Bajar Un Archivo Con Gambas 
 
Puedes usar un HttpClient, tienes que activar el componente gb.net.curl

http://gambasdoc.org/help/comp/gb.net.curl/httpclient

Saludos.
 



 
razaAztk - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuarioVer la galería personal del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Bajar Un Archivo Con Gambas 
 
Gracias.

Hice esto y funciono perfectamente.
Hay un ejemplo de esto en el manual de gambas.

PUBLIC SUB btnBajar2_Click()
  DIM http AS HttpClient
  DIM nombre AS String
  DIM scad AS String
      
  http = NEW HttpClient
  
  http.Async = FALSE
  http.Timeout = 10  
  http.URL = txtUrl.Text  
  nombre = nombrar(txtUrl.Text)
  
  http.Get()
  
  IF http.Status < 0 THEN
    Message.Info("Se ha producido un error")
  ELSE    
       READ #http, scad, Lof(http)      
       File.Save(User.Home &/ "Prueba/" & nombre, scad)
  ENDIF
  CLOSE #http
  
  PicImagen.Picture = Picture[User.Home & "/Prueba/" & nombre]
    
END


PUBLIC FUNCTION nombrar(url AS String) AS String
  DIM encontrado AS Integer
  DIM longitud AS Integer
  DIM nombre AS String
  
  longitud = Len(url)            
  encontrado = RInStr(url, "/")  
  
  nombre = Mid$(txtUrl.Text, encontrado + 1, longitud)
  
  RETURN nombre
    
END
 


Por cierto.Bienvenido de nuevo.

Saludos.
 




===================
Gambas Básico
“Si no puedes explicar algo de forma sencilla, entonces es que tú no lo entiendes bien.” Albert Einstein
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Bajar El Código Fuente De Gambas Shell General 5 Martes, 14 Noviembre 2017, 19:45 Ver último mensaje
jsbsan
No hay nuevos mensajes Cuestión A La Hora De Bajar Con Git Una V... Shell General 2 Jueves, 07 Marzo 2019, 09:50 Ver último mensaje
Shell
No hay nuevos mensajes Como Bajar Una Linea De Codigo Larga En G... metalgearxd General 6 Miercoles, 30 Enero 2013, 04:31 Ver último mensaje
razaAztk
No hay nuevos mensajes Como Bajar Una Linea De Codigo Larga En G... metalgearxd General 11 Miercoles, 13 Febrero 2013, 17:59 Ver último mensaje
jguardon
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario