Como copiar un archivo de una imagen (JPG) desde una página Web

[Edgar Acevedo]

Saludos amigos:

Cuando uno navega por cualquier sitio web, la mayoría de las veces, si mira una imagen que le gusta, simplemente posiciona sobre ella el puntero del ratón, da click derecho y del pequeño menú que aparece teclea:  "Guardar imagen como"; y de esta manera guarda la imagen en su disco duro.

Quisiera poder copiar una imagen de una dirección web hacia mi disco duro desde adentro de una aplicación de VFP.  Aunque no creí que funcionara, solo por probar usé el COPY FILE pero al darle el nombre del archivo "origen" (con todo y la dirección Web) me dice que hay un error en el path (lógico, ¿no? porque no es un path de disco duro sino de una página Web).  Muy curiosamente la función JUSTHPATH si me da la dirección web correctamente y la función JUSTFNAME también me da el nombre correcto solo del archivo GIF que deseo copiar.

Por ejemplo, yo quisiera copiarme este archivo:   http:/www.google.com/ig/images/weather/mostly_cloudy.gif    hacia mi disco duro.  ¿Hay forma de hacerlo en VFP?

Anticipadamente, mil gracias por su atención


Edgar Acevedo

[Guillermo MDQ]

Proba esto que encontre en la red hace un tiempo a ver si te sirve:


lcRuta="http://www.google.com/ig/images/weather/mostly_cloudy.gif"

Declare DoFileDownload IN shdocvw.Dll STRING lpszFile

DoFileDownload(Strconv(lcRuta,12))


Saludos
Guillermo

[Walter R. Ojeda Valiente]

Además de la alternativa de Guillermo que funciona bien aunque requiere de la intervención del usuario, aquí tienes otra forma, la cual no requiere de la intervención del usuario:

DECLARE INTEGER URLDownloadToFile IN urlmon.dll ;
        INTEGER pCaller, ;
        STRING szURL, ;
        STRING szFileName, ;
        INTEGER dwReserved, INTEGER lpfnCB

LOCAL lcRemoteFile, lcLocalFile, lcResult

lcRemoteFile = "http://www.google.com/ig/images/weather/mostly_cloudy.gif"

lcLocalFile  = "c:\midescarga.gif"

WAIT WINDOWS "Descargando archivo …" NOWAIT
lcResult = URLDownloadToFile(0, lcRemoteFile, lcLocalFile, 0, 0)
WAIT CLEAR

IF lcResult = 0 THEN
 MESSAGEBOX("Se ha descargado el archivo.", 64, "Descarga exitosa")
ELSE
 MESSAGEBOX("Falló la descarga del archivo", 64, "Descarga no realizada")
ENDIF


Saludos.

Walter.

---

Date: Thu, 9 Aug 2012 07:14:06 -0700
From: gol...@gmail.com
To: publice...@googlegroups.com
CC: aper...@gmail.com
Subject: [vfp] Re: Como copiar un archivo de una imagen (JPG) desde una página Web

--
 
 
 

[Victor Espina]

Esta funcion la he usado por anos.  Es super efectiva:

http://www.victorespina.com.ve/wiki/index.php?title=GetURL_(VFP)

Saludos

Victor Espina

[Edgar Acevedo]

Muchísimas gracias Walter y Victor.

Justamente ambas sugerencias de ustedes me serán de mucha utlidad.  Lo que Walter me recomienda es directa y puntalmente lo que buscaba.  Lo que Victor me compartió me "abrió la mente" a otras posibilidades de lo que tengo en mente hacer.

Muy agradecido a ambos,


Edgar Acevedo

--