Portal •  Foro •  FAQ •  Buscar •  Temas recientes •  Lista de usuarios •  Registrarse •  Conectarse 
Foro » Gambas » General

Bajar Un Archivo Con Gambas

Responder al tema

 

Shell
Citar
Mensajes: 5278 Ubicación: Al otro lado de la pantalla
Viernes, 25 May 2012, 01:16
Objetivo: 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.

Perfil MP   Sitio web
razaAztk
Citar
Mensajes: 340 Ubicación: Tenochtitlan
Viernes, 25 May 2012, 03:33
Objetivo: 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.

Perfil MP   Sitio web
Shell
Citar
Mensajes: 5278 Ubicación: Al otro lado de la pantalla
Viernes, 25 May 2012, 10:39
Objetivo: 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.

Perfil MP   Sitio web
Responder al tema
 

Página 1 de 1


  
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
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.4945s (PHP: -74% SQL: 174%)
Consultas SQL: 45 - Debug off - GZIP Activado