Re: Arrêter l'exécution de HTTPDonneRésultat

Posté par Totof le 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

Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4902&post_id=20293