PROCEDURE DownloadFile(sURL="")
iIdFile est entier
bDownloadFile est booléen
HTTPJauge("DownloadJauge")
iIdFile = fOuvre(fRepExe() + "\PortableCdex.zip", foCréationSiInexistant + foEcriture)
SI iIdFile <> -1 ALORS
QUAND EXCEPTION DANS
bDownloadFile = HTTPRequête("http://download.framakey.org/apps/PortableCDex-1.51-fr-r02.zip", "Winaptic")
SI bDownloadFile ALORS
fEcrit(iIdFile, HTTPDonneRésultat(), Taille(HTTPDonneRésultat()))
FIN
fFerme(iIdFile)
FAIRE
fFerme(iIdFile)
FIN
FIN
__________________________________________________
PROCEDURE DownloadJauge(iTotalOctet, iTotalTransmis)
Trace("Transfert en cours : " +iTotalTransmis+" / "+ iTotalOctet)
Multitâche(-1)
//*** bAbord est un booléen //Variable globale de la fenêtre par défaut à faux -> Mettre dans le bouton annuler bAbord = vrai
SI bAbord ALORS
Trace("**** STOP ****")
HTTPJauge("") //** On désactive la jauge
HTTPRequête("http://www.pcsoft.fr") //** On courcircuite la requête en cours
HTTPDonneRésultat(HTTPRésultat) //** On Récupère le résultat
//*** La requête initiale est maintenant interrompu ***//
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4902&post_id=20293