[..] Barre de progression

[Shade]

Bonjour à tous,
Voila je viens de réaliser un script qui me permet de télécharger des fichiers de mon ftp en revanche, j'aimerai avoir une barre de progression car en ce moment je ne vois pas du tout l'avancement.

Pouvez-vous m'aider svp?

Voici mon script :

► Afficher le texte

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)

;Déclaration des variables


$Gestion = GUICreate("Masters VirtualBox", 250, 180, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "quitter")
$telecharger_1 = GUICtrlCreateButton("Télécharger", 160, 52, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent( -1,"telecharge")
$quitter_1 = GUICtrlCreateButton("Quitter", 160, 90, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent( -1,"quitter")
$Group1 = GUICtrlCreateGroup("Choix des masters", 8, 10, 129, 135)
$fichier3 = GUICtrlCreateCheckbox("fichier3", 24, 34, 97, 17)
GUICtrlSetOnEvent( -1,"checkbox")
$fichier2 = GUICtrlCreateCheckbox("fichier2", 24, 74, 97, 17)
GUICtrlSetOnEvent( -1,"checkbox")
$fichier1 = GUICtrlCreateCheckbox("fichier1", 24, 114, 97, 17)
GUICtrlSetOnEvent( -1,"checkbox")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Options = GUICtrlCreateMenu("&Options")
$Telecharger = GUICtrlCreateMenuItem("Télécharger", $Options)
GUICtrlSetOnEvent( -1,"telecharge")
$Quitter = GUICtrlCreateMenuItem("Quitter", $Options)
GUICtrlSetOnEvent( -1,"quitter")
GuiSetState ( )

;Fin des déclarations

;Choix des Masters à télécharger

Func checkbox()
Switch @GUI_CtrlId
Case $fichier3
If _Ischecked($fichier3) then
$a_telecharge[1][0] = "1"
Else
$a_telecharge[1][0] = "0"
EndIf

Case $fichier2
If _Ischecked($fichier2) then
$a_telecharge[2][0] = "1"
Else
$a_telecharge[2][0] = "0"
EndIf

Case $fichier1
If _Ischecked($fichier1) then
$a_telecharge[3][0] = "1"
Else
$a_telecharge[3][0] = "0"
EndIf

EndSwitch

EndFunc

Func telecharge()

$Statut_Checkbox1 = GUICtrlRead($fichier3)
$Statut_Checkbox2 = GUICtrlRead($fichier2)
$Statut_Checkbox3 = GUICtrlRead($fichier1)

If $Statut_Checkbox1 = "1" then
InetGet("ftp://192.168.***.***/fichier/fichier3", "C:\Temp" & "\fichier3", 1, 1)
EndIf

If $Statut_Checkbox2 = "1" then
InetGet("ftp://192.168.***.***/fichier/fichier2", "C:\Temp" & "\fichier2", 1, 1)
EndIf

If $Statut_Checkbox3 = "1" then
InetGet("ftp://192.168.***.***/fichier/fichier1", "C:\Temp" & "\fichier1", 1, 1)
EndIf





MsgBox(64, "téléchargement fichier", "Fin du téléchargement")
ProcessClose("Install_auto.exe")

EndFunc


While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

EndSwitch
WEnd

Func quitter()
Exit
EndFunc

Func _Ischecked($control)
Return BitAND(GUICtrlRead($control), $GUI_CHECKED) = $GUI_CHECKED
EndFunc

;Fin du script

Merci d'avance.

Cordialement.

[PandiPanda]

Avec InetGetSize ( "URL" [, options ] )qui retourne la taille du fichier
Avec InetGetInfo( [ handle [, index ]] ) index à 1 pour vérifier la taille du fichier en cours de téléchargement
Avec GUICtrlCreateProgress ( left, top [, width [, height [, style [, exStyle]]]] )
et GUICtrlSetData ( controlID, data [, default] )

Vous devriez être capable de créer une barre de progression non?

[Shade]

Oui mais ou est ce qu'il faut que je place les fonctions?

[PandiPanda]

Ceci ?

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)

;Déclaration des variables


$Gestion = GUICreate("Masters VirtualBox", 250, 180, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "quitter")
$telecharger_1 = GUICtrlCreateButton("Télécharger", 160, 52, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent( -1,"telecharge")
$quitter_1 = GUICtrlCreateButton("Quitter", 160, 90, 75, 25, $WS_GROUP)
GUICtrlSetOnEvent( -1,"quitter")
$Group1 = GUICtrlCreateGroup("Choix des masters", 8, 10, 129, 135)
$fichier3 = GUICtrlCreateCheckbox("fichier3", 24, 34, 97, 17)
GUICtrlSetOnEvent( -1,"checkbox")
$fichier2 = GUICtrlCreateCheckbox("fichier2", 24, 74, 97, 17)
GUICtrlSetOnEvent( -1,"checkbox")
$fichier1 = GUICtrlCreateCheckbox("fichier1", 24, 114, 97, 17)
GUICtrlSetOnEvent( -1,"checkbox")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Options = GUICtrlCreateMenu("&Options")
$Telecharger = GUICtrlCreateMenuItem("Télécharger", $Options)
GUICtrlSetOnEvent( -1,"telecharge")
$Quitter = GUICtrlCreateMenuItem("Quitter", $Options)
GUICtrlSetOnEvent( -1,"quitter")
GuiSetState ( )

;Fin des déclarations

;Choix des Masters à télécharger

Func checkbox()
    Switch @GUI_CtrlId
        Case $fichier3
            If _Ischecked($fichier3) then
                $a_telecharge[1][0] = "1"
            Else
                $a_telecharge[1][0] = "0"
            EndIf

        Case $fichier2
            If _Ischecked($fichier2) then
                $a_telecharge[2][0] = "1"
            Else
                $a_telecharge[2][0] = "0"
            EndIf

        Case $fichier1
            If _Ischecked($fichier1) then
                $a_telecharge[3][0] = "1"
            Else
                $a_telecharge[3][0] = "0"
            EndIf
    EndSwitch
EndFunc

Func telechargeProgress($ctrlId)
    Local $hDownload,$SizeFile
    $Statut_Checkbox1 = GUICtrlRead($fichier3)
    $Statut_Checkbox2 = GUICtrlRead($fichier2)
    $Statut_Checkbox3 = GUICtrlRead($fichier1)

    If $Statut_Checkbox1 = "1" then
        $SizeFile=InetGetSize("ftp://192.168.***.***/fichier/fichier3")
        $hDownload=InetGet("ftp://192.168.***.***/fichier/fichier3", "C:\Temp" & "\fichier3", 1, 1) 
    EndIf

    If $Statut_Checkbox2 = "1" then
        $SizeFile=InetGetSize("ftp://192.168.***.***/fichier/fichier2")
        $hDownload=InetGet("ftp://192.168.***.***/fichier/fichier2", "C:\Temp" & "\fichier2", 1, 1) 
    EndIf

    If $Statut_Checkbox3 = "1" then
        $SizeFile=InetGetSize("ftp://192.168.***.***/fichier/fichier1")
        $hDownload=InetGet("ftp://192.168.***.***/fichier/fichier1", "C:\Temp" & "\fichier1", 1, 1) 
    EndIf
    Do
        Sleep(250)
        $info=InetGetInfo($hDownload)
        _SetProgress($ctrlId,$SizeFile,$info[1])
    Until $info[2]

    MsgBox(64, "téléchargement fichier", "Fin du téléchargement")
    ProcessClose("Install_auto.exe")

EndFunc

Func _SetProgress($ctrlId,$SizeFile,$sizeDownload)
    GUICtrlSetData($ctrlId,Int(($sizeDownload/$SizeFile)*100))
EndFunc

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func quitter()
    Exit
EndFunc

Func _Ischecked($control)
    Return BitAND(GUICtrlRead($control), $GUI_CHECKED) = $GUI_CHECKED
EndFunc

;Fin du script

Pour telechargeProgress($ctrlId); le ctrlID est celui de la progress Barre
Pour _SetProgress($ctrlId,$SizeFile,$SizeDownload); le ctrlId est celui de la progress Barre,$SizeFile est la taille totale du fichier et $SizeDownload est la taille du fichier en cours de telechargement.

Il ne vous reste qu'a créer une gui pour la barre de progression, et d'y induire le ctrlID.

j'ai fait ceci sans tester, il y'a peut être une erreur, à vérifier, tester ^^

[Shade]

Et la GUI je la crée à la suite du code de la barre de progression?

[PandiPanda]

vous créer la gui, avant le "guiState()" ^.^

► Afficher le texte

je remarque cependant un problème majeur dans votre script ...

cette variable ci "$a_telecharge[x][0]" vous ne la declarer nulle part, ca risque fortement de poser problème ...
je vous inviterai a declarer en Dim $a_telecharge[4][0] en debut de script, sauf si vous n'avez poster qu'une partie de votre code

[Shade]

Auriez-vous un exemple de Gui pour une barre de progression svp?

[PandiPanda]

le fichier d'aide aurai pu vous mettre sur la voie ...
GUICtrlCreateProgress()

[Shade]

Code : Tout sélectionner

$progressbar = GUICtrlCreateProgress(10, 40, 200, 20, $$ctrlId)
GuiSetState ( )

C'est bon comme ça?

[PandiPanda]

ceci vous convient?

► Afficher le texte

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Opt("GUIOnEventMode", 1)

;Déclaration des variables

Dim $a_telecharge[4][1]
#Region ### START Koda GUI section ### Form=
    Global $Gestion = GUICreate("Masters VirtualBox", 251, 188, 192, 124)
    GUISetOnEvent($GUI_EVENT_CLOSE, "quitter")
    Global $Options = GUICtrlCreateMenu("&Options")
    Global $Telecharger = GUICtrlCreateMenuItem("Télécharger", $Options)
    GUICtrlSetOnEvent( -1,"telechargeProgress")
    Global $Quitter = GUICtrlCreateMenuItem("Quitter", $Options)
    GUICtrlSetOnEvent( -1,"quitter")
    Global $telecharger_1 = GUICtrlCreateButton("Télécharger", 160, 52, 75, 25, $WS_GROUP)
    GUICtrlSetOnEvent( -1,"telechargeProgress")
    Global $quitter_1 = GUICtrlCreateButton("Quitter", 160, 90, 75, 25, $WS_GROUP)
    GUICtrlSetOnEvent( -1,"quitter")
    Global $Group1 = GUICtrlCreateGroup("Choix des masters", 8, 10, 129, 135)
    Global $fichier3 = GUICtrlCreateCheckbox("fichier3", 24, 34, 97, 17)
    GUICtrlSetOnEvent( -1,"checkbox")
    Global $fichier2 = GUICtrlCreateCheckbox("fichier2", 24, 74, 97, 17)
    GUICtrlSetOnEvent( -1,"checkbox")
    Global $fichier1 = GUICtrlCreateCheckbox("fichier1", 24, 114, 97, 17)
    GUICtrlSetOnEvent( -1,"checkbox")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    Global $progressbar = GUICtrlCreateProgress(10, 144, 232, 20)
    Global $Gestion_AccelTable[1][2] = [["^!+{5 (PAVE NUM.)}", $Quitter]]
    GUISetAccelerators($Gestion_AccelTable)
    GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Fin des déclarations

;Choix des Masters à télécharger

Func checkbox()
    Switch @GUI_CtrlId
        Case $fichier3
            If _Ischecked($fichier3) then
                $a_telecharge[1][0] = "1"
            Else
                $a_telecharge[1][0] = "0"
            EndIf

        Case $fichier2
            If _Ischecked($fichier2) then
                $a_telecharge[2][0] = "1"
            Else
                $a_telecharge[2][0] = "0"
            EndIf

        Case $fichier1
            If _Ischecked($fichier1) then
                $a_telecharge[3][0] = "1"
            Else
                $a_telecharge[3][0] = "0"
            EndIf
    EndSwitch
EndFunc

Func telechargeProgress()
    Local $hDownload,$SizeFile
    $Statut_Checkbox1 = GUICtrlRead($fichier3)
    $Statut_Checkbox2 = GUICtrlRead($fichier2)
    $Statut_Checkbox3 = GUICtrlRead($fichier1)

    If $Statut_Checkbox1 = "1" then
        $SizeFile=InetGetSize("ftp://192.168.***.***/fichier/fichier3")
        $hDownload=InetGet("ftp://192.168.***.***/fichier/fichier3", "C:\Temp" & "\fichier3", 1, 1)
    EndIf

    If $Statut_Checkbox2 = "1" then
        $SizeFile=InetGetSize("ftp://192.168.***.***/fichier/fichier2")
        $hDownload=InetGet("ftp://192.168.***.***/fichier/fichier2", "C:\Temp" & "\fichier2", 1, 1)
    EndIf

    If $Statut_Checkbox3 = "1" then
        $SizeFile=InetGetSize("ftp://192.168.***.***/fichier/fichier1")
        $hDownload=InetGet("ftp://192.168.***.***/fichier/fichier1", "C:\Temp" & "\fichier1", 1, 1)
    EndIf
    Do
        Sleep(250)
        $info=InetGetInfo($hDownload)
        _SetProgress($progressbar,$SizeFile,$info[1])
    Until $info[2]

    MsgBox(64, "téléchargement fichier", "Fin du téléchargement")
    ProcessClose("Install_auto.exe")

EndFunc

Func _SetProgress($ctrlId,$SizeFile,$SizeDownload)
    GUICtrlSetData($ctrlId,Int(($sizeDownload/$SizeFile)*100))
EndFunc

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

Func quitter()
    Exit
EndFunc

Func _Ischecked($control)
    Return BitAND(GUICtrlRead($control), $GUI_CHECKED) = $GUI_CHECKED
EndFunc

;Fin du script

[Shade]

Le code fonctionne mais la barre de progression devient complète en 1 sec alors que le téléchargement est à 40 Mo sur 2Go???

[PandiPanda]

étrange avec le script que j'ai poster plus haut, je n'ai pas cette erreur la ...

[Shade]

Le fichier sur lequel vous testez votre script il ne fait peut être pas 2Go ou 11Go ?

[PandiPanda]

en effet loin de la haha ^^
vous pouvez mettre une msgbox(0,"",$sizeFile)

comme ceci;

Code : Tout sélectionner

    ...
msgbox(0,"",$sizeFile)
    Do
        Sleep(250)
        $info=InetGetInfo($hDownload)
        _SetProgress($progressbar,$SizeFile,$info[1])
    Until $info[2]
...

et quelle est la valeur renvoyé par la msgBox() ? ^^

il se peux que la taille totale renvoyée soit éronnée ...

[Shade]

Je viens d'inserer le MsgBox il me renvoi exactement la taille de mon fichier "11388669952"

Je ne comprends plus ?

[PandiPanda]

La progresse barre ne fait qu'indiquer ce que nous lui disons, donc il y'a sans doute une erreur quelque part je cherche

Code : Tout sélectionner

Func _SetProgress($ctrlId,$SizeFile,$SizeDownload)
    GUICtrlSetData($ctrlId,Int(($sizeDownload/$SizeFile)*100))
EndFunc

la fonction est bonne ...

hmmm vous pouvez remplacer la msgbox() par un _arraydisplay(InetGetInfo($hDownload)) et ajouter l'include correspondant en haut du script? ^^

et me dire les valeurs ressortie ...

[Shade]

arraydisplay c'est fait mais je rajoute quel include?

[PandiPanda]

#Include <Array.au3>

necessaire pour _ArrayDisplay()

[Shade]

Voici les valeurs qu'ils me renvoient:

Code : Tout sélectionner

[0]|0
[1]|0
[2]|False
[3]|False
[4]|0
[5]|0

[PandiPanda]

Bien donc deja les valeurs concernée sont "correcte" notamment le fait qu"il dise qu'il a pas encore débuter le télechargement et que forcemment il n'a pas fini de télécharger

maintenant vous pouvez enlever le _arrayDisplay()

et mettre ceci a la place de votre boucle do .. until?

Code : Tout sélectionner

    Local $T0=TimerInit()
    Do
        Sleep(250)
        $info=InetGetInfo($hDownload)
        If TimerDiff($T0)> 7000 Then _ArrayDisplay($info)
        _SetProgress($progressbar,$SizeFile,$info[1])
    Until $info[2]

elle me permettra de connaitre les infos après 7 secondes ... ^.^