[R] Telechargement avec progressbar

[silvere]

Bonjour
Je voudrais sa voir si il est possible de mettre une progress bar en rapport avec la fonction InetGet.
Merci d'avance

[lesolutionneur]

Oui, je suis sur touch mais rapidemment :

Code : Tout sélectionner

$total_size = Inetgetinfo($le_handle_de_ton_inetget, 1);chope la taille du fichier
While not inetgetinfo($le_handle_de_ton_inetget, 2)
$current_dl = inetgetinfo($le_handle_de_ton_inetget, 0)
$current_dl = int($current_dl /  $total_size * 100)
Guictrlsetdata($le_handle_de_ton_inetget, $current_dl)
 

J'ai pas testé mais ça devrait marcher, j'ai déjà fait un pogramme qui faisait ce genre de truc.

Ps: oublie pas de vérifier si le téléchargement échoue.

Édit: ah oui, n'oublie pas de mettre ton inetget en mode background (une option) pour éviter qu'il ne reste bloqué dessus.

[silvere]

Je le met ou mon inetget, dans la boucle ou avant ?

[lesolutionneur]

Avant la boucle (au tout debut du code), et tu dois lui donner l'option "background"--> cherche dans l'aide d'autoit pour savoir comment.

Si ton problème est résolu, [..]--> [R]

[silvere]

Je me suis tromper ?

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>

Global $Form1 = GUICreate("Form1", 210, 62, 303, 192)
Global $Progress1 = GUICtrlCreateProgress(8, 8, 193, 41)
GUISetState(@SW_SHOW)

$lien_fichier = "http://www.exemple.fr/teste.zip"
$total_size = InetGetInfo($lien_fichier, 1);chope la taille du fichier
InetGet($lien_fichier, @ScriptDir & "\teste.zip", 1, 1)
While Not InetGetInfo($lien_fichier, 2)
    $current_dl = InetGetInfo($lien_fichier, 0)
    GUICtrlSetData($Progress1, $current_dl / $total_size * 100)
WEnd

[silvere]

Après des recherche j'ai fait sa :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>

Global $Form1 = GUICreate("Form1", 210, 62, 303, 192)
Global $Progress1 = GUICtrlCreateProgress(8, 8, 193, 41)
GUISetState(@SW_SHOW)

$lien_fichier = "http://www.exemple.fr/teste.zip"
$telechargement = InetGet($lien_fichier, @ScriptDir & "\teste.zip", 1, 1)
$taille_fichier = InetGetInfo($lien_fichier, 1)


While Not InetGetInfo($telechargement, 2)
    $taille_telecharger = InetGetInfo($telechargement, 0)
    GUICtrlSetData($Progress1, $taille_telecharger / $taille_telecharger * 100)
WEnd

Sa marche mais il reste pas mal de temps sur le 100%

[lesolutionneur]

Salut, pour la progresse bar, elle restera à 100% tant que tu ne lui demandes pas de se mettre à 0 ou autre chose.

Et surtout, n'oublie pas de vérifier si le téléchargement marche !
(parce que si tu fais des actions sur le fichier ou je ne sais quoi, tu auras une panoplie d'erreurs...)

[silvere]

elle restera à 100% tant que tu ne lui demandes pas de se mettre à 0 ou autre chose.

Non ! Au départ elle est a 0% après elle augmente et elle se stop sur 100% pendant plus longtemps que pour aller de 0 a 99%
Tu comprends ?

[lesolutionneur]

Euh, non, c'est normal que ça mette du temps pour arriver à 100%: c'est que le fichier n'est pas instantané à se télécharger.

(ou alors, c'est que je n'ai pas compris ce que tu demandais...)

[silvere]

Nan laisse tombé
Merci, [R]ésolut