[R] Téléchargement avec ProgressSet

[sozary]

Bonjour à tous.

But:
Je voudrais télécharger un fichier un peu lourd (ubuntu avec ses 970 Mb), avec la fonction InetGet().

Je voudrais également qu'il soit affiché le % de téléchargement.

Soucis:
Je ne m'y connais pas encore assez, et mon code donne ça:

Code : Tout sélectionner

Global $name="ubuntu.iso"
$download=InetGet("http://releases.ubuntu.com/14.04/ubuntu-14.04-desktop-i386.iso",$name)
ProgressOn($name&" download","Please wait","0%")
$cent=InetGetInfo($download)/100
While InetGetSize($name)<InetGetInfo($download)

    Progressset(InetGetSize($name)/$cent,(InetGetSize($name)/$cent)&"%")
WEnd
ProgressOff()
run($name)

Le fichier se télécharge bien, mais aucune barre de progression n'est affiché.
Merci d'avance pour votre aide

[jguinch]

Le fichier se télécharge bien, mais aucune barre de progression n'est affiché.

Oui, normal. Regarde dans la doc l'exemple de la fonction InetGetInfo.
Pour connaître l'avancement, il faudra faire un règle de 3, en utilisant InetGetSize et InetGetInfo.

[sozary]

une règle de 3? Mais ce que je veux c'est faire une progress barre qui s'implémente de 1% tous les ($BitsTelecharge/($TailleTotalDuFichierSource/100))!

[orax]

Oui, normal. Regarde dans la doc l'exemple de la fonction InetGetInfo.

Et regarde aussi le paramètre "background" de InetGet car par défaut InetGet attend que le fichier soit téléchargé. En d'autres termes, par défaut, l'instruction qui suit InetGet ne sera exécutée qu'après la fin du téléchargement.

[sozary]

Code : Tout sélectionner

#include <InetConstants.au3>
#include <MsgBoxConstants.au3>
Global $name="ubuntu.iso"
$download=InetGet("http://releases.ubuntu.com/14.04/ubuntu-14.04-desktop-i386.iso",$name, $INET_FORCERELOAD ,  $INET_DOWNLOADBACKGROUND )
$cent=InetGetInfo($download,$INET_DOWNLOADSIZE)/100
;ProgressOn($name&" download","Please wait","0%")

do
MsgBox(0,"",InetGetSize($name)/$cent)
    ;Progressset(InetGetSize($name)/$cent,(InetGetSize($name)/$cent)&"%")
Until InetGetInfo($download, $INET_DOWNLOADCOMPLETE)

;ProgressOff()
run($name)

ne marche pas!

[jguinch]

InetGetInfo($download,$INET_DOWNLOADSIZE) doit être dans la boucle

[mikell]

Et c'est $INET_DOWNLOADREAD qu'il faut utiliser

Code : Tout sélectionner

#include <InetConstants.au3>
#include <MsgBoxConstants.au3>

Global $name="autoit-v3-setup.exe"

$file = "https://www.autoitscript.com/cgi-bin/getfile.pl?autoit3/autoit-v3-setup.exe"
ProgressOn($name&" download","Please wait","0%")
$size = InetGetSize($file)
$download = InetGet($file, $name, $INET_FORCERELOAD, $INET_DOWNLOADBACKGROUND )

do
   $pcent = InetGetInfo($download, $INET_DOWNLOADREAD)*100/$size
   ProgressSet($pcent, Round($pcent, 2) & " %")
   Sleep(250)
Until InetGetInfo($download, $INET_DOWNLOADCOMPLETE)

ProgressOff()
 

[sozary]

Oui bon! Sa va hein !! Merci!