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

TELECHARGER AVEC UNE RAPIDITE DECONCERTANTE   



L'auteur

ybenam
Algérie Algérie
Membre Simple
# 0000002080
enregistré le 21/04/2008


Fiche personnelle


Note des membres
pas de note

Contributions > 13 - Web

TELECHARGER AVEC UNE RAPIDITE DECONCERTANTE
# 0000000609
ajouté le 07/06/2008 01:31:19 et modifié le 07/06/2008
consulté 8673 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.
do while 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)

DECLARE LONG URLDownloadToFile IN URLMON.DLL  LONGSTRINGSTRINGLONGLONG
yUrl="http://www.voirlemonde.com/algerie/al430.jpg"
***********************************
yDownload="c:\ytemp.jpg"    &&mettre l'extension normale del'objet téléchargé
if messagebox("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
    DECLARE INTEGER 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

Cordialement
Francis


Publicité

Les pubs en cours :

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