ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Comment telecharger les images d'un site web   



L'auteur

Mike Gagnon
Canada Canada
Membre Simple
# 0000000025
enregistré le 14/10/2004

Gagnon Mike
Pte Claire Quebec - Canada
de la société MCRG Software
Fiche personnelle


Note des membres
pas de note

Contributions > 09 - Automation > Internet Explorer

Comment telecharger les images d'un site web
# 0000000861
ajouté le 18/06/2013 20:42:58 et modifié le 18/06/2013
consulté 5092 fois
Niveau initié

Version(s) Foxpro :
VFP 9.0

Description
Comment telecharger les images d'un site web.
Code source :
Local lcFolderDest,Doc
o = Createobject('internetexplorer.application')
o.Navigate('www.microsoft.com')
lcFolderDest = 'c:\temp\'
Inkey(3)

Doc = o.Document
For Each element In Doc.images
  DownloadPicture( lcFolderDest, element.src)
  DoEvents
Endfor
Procedure DownloadPicture(tcDestDir,src)
  Local loRequest, lcUrl, lcFilename
  lcUrl =src
  lcFilename = tcDestDir+justfname(src)

  loRequest = Createobject('MsXml2.XmlHttp')
  loRequest.Open("GET",lcUrl,.F.)
  loRequest.Send()
  Strtofile(loRequest.ResponseBody,lcFilename)
Endproc

Commentaires
le 22/07/2013, BENMAHAMMED a écrit :
Bonjour Monsieur GAGNON,
Vos contributions sont uniques et très importantes, je vous remercie, veuillez rajouter des commentaires entre les lignes de programme, sa nous aidera beaucoup a comprendre.
Merci Monsieur.

le 23/07/2013, eddymaue a écrit :
lol y a rien à comprendre, juste à exécuter...
le 02/08/2013, Mike Gagnon a écrit :
LOL


Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3