Re: Arrêter l'exécution de HTTPDonneRésultat | Sujet: Re: Arrêter l'exécution de HTTPDonneRésultat par Totof sur 24/1/2007 14:01:13
Bonjour,
Voici une solution sans thread :
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
Bon dév.,
Totof
|
|
Connexion
Menu
Chercher WDForge
Chercher Web
Partenaires
|