Message de rapport:
 

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
Visualiser tous les Partenaires...
WinDev, WebDev, WinDev Mobile et HyperFile sont des marques déposées par PCSoft. |  Voter |  Legal |  Contact |   XOOPS 2.0.13.2