Al otro lado de la pantalla
¿ 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
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.
Tenochtitlan
