PROCEDURE Telecharger1(dossier="",Fiche="",url="")
IIdFile est entier
DownloadFile est booléen
//fRepCrée(dossier)
HTTPJauge(Jauge2)
IIdFile = fOuvre(dossier +"\"+ Fiche ,foCréationSiInexistant)
SI IIdFile <> -1 ALORS
QUAND EXCEPTION DANS
DownloadFile = HTTPRequête(url)
SI DownloadFile=Vrai ALORS
fEcrit(IIdFile, HTTPDonneRésultat(), Taille(HTTPDonneRésultat()))
FIN
fFerme(IIdFile)
ThreadArrête("thrdnom1")
//ici aucun problème si le téléchargement de fichier est terminer
FAIRE
fFerme(IIdFile)
FIN
FIN
PROCEDURE DownloadJauge(iTotalOctet, iTotalTransmis)
Multitâche(-1)
SI TT2 =Faux ALORS
HTTPJauge("")
HTTPRequête("")
HTTPDonneRésultat(HTTPRésultat)
TT1=Vrai
// si ici en met ThreadArrête("thrdnom1") alors c'est message d'erreur.
FIN
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5849&post_id=23702