TELECHARGER AVEC UNE RAPIDITE DECONCERTANTE
# 0000000609
ajouté le 07/06/2008 01:31:19 et modifié le 07/06/2008
consulté 8936 fois
Niveau
initié
Version(s) Foxpro : VFP 6.0
Description
Dans la continuité de mon article précédent 'yDownloads'.........# 0000000603 ..... j'ai recherché....et j'ai trouvé mieux...pour télécharger
un fichier quelconque avec une facilité et une rapidité déconcertantes !
l'API URLDownfile de la librairie URMON.dll télécharge des fichiers de toutes natures à partir de pages web ..
des pages (sans les images mais on peut boucler avec IE), des images de toutes extensions,des zip,des vidéos,.....
tout ce qui 'download_able'.
Le programme fait 15 lignes et intègre (par messagebox Iexplore interposé) l'aide sommaire de la manipulation.
Faites vos tests et rendez moi une réponse.
J'ai mis niveau initié (pour l'API) mais l'utilisation est très simple..
benameuryousfi1@gmail.com
Code source :
cr=chr(13)
mess="/////////////////////////////////////////// APERçU SOMMAIRE /////////////////////////////////////////////"+cr+cr+; "Dans la continuité de mon article précédent 'yDownloads' j'ai recherché....et j'ai trouvé mieux...pour télécharger"+cr+; "un fichier quelconque avec une facilité et une rapidité déconcertantes !"+cr+cr+; "l'API URLDownfile de la librairie URMON.dll télécharge des fichiers de toutes natures à partir de pages web .."+cr+; "des pages (sans les images mais on peut boucler avec IE), des images de toutes extensions,des zip,des vidéos,....."+cr+; "tout ce qui 'download_able'."+cr+cr+; "L'avantage pour les détendeurs des anciennes versions de VFP c'est que le fichier est téléchargé directement dans la"+cr+; "cible sans passer par 'filetostr' qui avec winHTTP renvoie une erreur dans le cas d'images('responsebody')."+cr+cr+; "Le fichier cible doit être tout de même bien choisi (extension,nom,...) pour respecter l'application associée qui"+cr+; "ouvrira ce fichier.Attention si le fichier existe il sera écrasé!"+cr+cr+; "Si le téléchargement ne peut avoir lieu (erreur d'adresse,disponibilité,un message d'erreur est renvoyé."+cr+; "Le seul inconvénient est que tout se fait en sourdine (pas de visualisation animée du téléchargement comme dans 'yDownload')."+cr+; "Vous pouvez mettre yURL et yDownload comme 2 paramètres comme suit :[ do ydownload_bis with yURl,yDownload]"+cr+cr+; "Mes test effectués portent sur les adresses suivantes:"+cr+; "yURL='http://www.atoutfox.org/' "+cr+; "yURL='http://www.microsoft.com/library/homepage/images/ms-banner.gif'"+cr+; "yURL='http://www.atoutfox.org/images/foxpro.jpg'" +cr+; "zip... ou n'importe quel adresse téléchargeable'"+cr+; "yURL='http://www.awitness.org/software/download_zip_files/dlzip.exe' ...(700 ko)"+cr+cr+; "Le programme vous offre le téléchargement d'une belle image du Sahara Algérien......."+cr+; "yURL='http://www.voirlemonde.com/algerie/al430.jpg'"+cr+; "///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////"+cr+cr+; "....Ici tout n'est qu'ordre et beauté,luxe ,calme et volupté ! (Victor Hugo)" ****************** _screen.visible=.f.
apIE=createObject('internetexplorer.application')
apIE.navigate("about:blank")
apIE.visible=.f. dowhile apIE.busy or apIE.readystate#4 enddo inkey(1)
apIE.document.parentWindow.alert(mess)
apIE.quit _screen.visible=.t. ****************************************************************************************** *Le programme commence ici (15 lignes)
DECLARELONG URLDownloadToFile IN URLMON.DLLLONG, STRING, STRING, LONG, LONG
yUrl="http://www.voirlemonde.com/algerie/al430.jpg" ***********************************
yDownload="c:\ytemp.jpg"&&mettre l'extension normale del'objet téléchargé ifmessagebox("Télécharger "+yURL+" ?",4+64,"yDownload")=6
lnGetResults = URLDownloadToFile(0, yURl, yDownload, 0, 0) IF lnGetResults # 0 MESSAGEBOX("Echec du téléchargement "+yURl+ " !",0+16,"") &&La fonction retourne zero en cas de succès. RETURN.F. else DECLAREINTEGER ShellExecute IN shell32.dll ; INTEGER hndWin, STRING cAction, STRING cFileName, ; STRING cParams, STRING cDir, INTEGER nShowWin
ShellExecute(0,"open",yDownload,"","",1)
endi
endi
********end of main******* fin du programme**********************
Commentaires
le 07/06/2008, Michel Lévy a écrit : Juste une précision (sans effet sur la qualité de ton code): la citation exacte est "Là, tout n'est qu'ordre et beauté, Luxe, Calme et volupté..." et c'est de Charles Baudelaire dans les Fleurs du mal (l'invitation au voyage) http://baudelaire.litteratura.com/fleurs_du_mal_1857.php?rub=oeuvre&srub=pov&id=374
le 07/06/2008, ybenam a écrit : Bravo ! c'est juste ! Et qui a dit que "la culture est ce qui reste lorsqu'on a tout oublié !" Merci quand même. cordialement. Pour le webMaster: ,je suggère un bouton "copy to clipboard" pour faciliter la recopie du code.
le 08/06/2008, Francis Faure a écrit : Édouard Herriot
Pour la copie en presse papier c'est une bonne idée
Juste une précision (sans effet sur la qualité de ton code): la citation exacte est "Là, tout n'est qu'ordre et beauté, Luxe, Calme et volupté..." et c'est de Charles Baudelaire dans les Fleurs du mal (l'invitation au voyage) http://baudelaire.litteratura.com/fleurs_du_mal_1857.php?rub=oeuvre&srub=pov&id=374