[Résolu] Mettre la progression d'un téléchargement sur une progressbar (non FTP finalement)

Hello !

J'ai quelque peu commencé ce sujet sur le sujet de MineServ Creator mais je préfère créer un nouveau sujet pour que tous le monde le voie si il a besoin .
Nous savons qu'avec SZ , il est impossible de télécharger des fichiers en montrant la progression depuis un site classique .
Or , sur plusieurs sujet , on peut lire : "Avec le FTP cela fonctionne" .
Or , je n'ai pas trouver comment le faire ...

Donc ma question est :
Comment montrer la progression d'un téléchargement depuis un FTP ?

EDIT : Finalement , la progression d'un téléchargement classique (sans FTP ou autre base de donné) fonctionne !
Voici la solution de lereparateurdepc :

lereparateurdepc a écrit:re,

Projet SZ 2014 démo.

Il faut simplement éditer le code VB présent dans l'évènement Click du bouton et y mettre l'URL vers ton fichier, le dossier où enregistrer le fichier (attention le nom et l'extension de ce fichier est automatiquement créé en fonction de celui du lien de l'URL) et la ProgressBar qui affichera le téléchargement.

La partie principale du code se trouve dans le premier onglet du projet.

Le lien du projet SZ 2014: http://lereparateurdepc.olympe.in/sz_tmp/FTP_Jem_FOFO_SZ.zip
EDIT 13/12/16 par LRDPC : désolé mais mon hébergeur à fermé.....

Cordialement,
Le réparateur de PC

Cordialement ,

JEREMY60800

re,

Pour s'y retrouver un peut :
https://forumvelersoftware.bbactif.com/t1819p400-mineserv-creator-mise-a-jour-en-cours70#26834

Mon denier message :

lereparateurdepc a écrit:
En fait il y a 2 types (de ce que j'ai vu sur le web) le FTP pure avec des requêtes FTP
et le WebClient qui il me semble fait aussi du FTP.
Là, j'ai trouvé un truc simple basé sur le WebClient mais PAS en FTP, en bête http.

La Form complète en VB :

Code:

Imports System.IO
Imports System.Net
Imports System.ComponentModel

Public Class Form1

    Private _destPath = "D:\"

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If Not Directory.Exists(_destPath) Then Directory.CreateDirectory(_destPath)
        DownloadFileEx()
    End Sub

    Private Sub DownloadFileEx()
        Dim client As New WebClient()
        AddHandler client.DownloadProgressChanged, AddressOf DownloadFileEx_DownloadProgressChanged
        AddHandler client.DownloadFileCompleted, AddressOf DownloadFileEx_DownloadFileCompleted

        Dim item = "http://192.168.1.2/VB.rar"
        Dim fiName As New FileInfo(New Uri(item).AbsolutePath)
        client.DownloadFileAsync(New Uri(item), _destPath & "\" & fiName.Name)
    End Sub

    Private Sub DownloadFileEx_DownloadProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs)
        ProgressBar1.Value = e.ProgressPercentage
    End Sub

    Private Sub DownloadFileEx_DownloadFileCompleted(sender As Object, e As AsyncCompletedEventArgs)
        If e.Error IsNot Nothing Then
            MsgBox(e.Error.ToString)
        End If
        MsgBox("Download Completed !")

        'C'est ici la fin du téléchargement !
        'Donc c'est ici qu'on décompresse les fichiers Zip et pas ailleurs.
        'Si tu ne veux pas que ta partie UI gèle pendant la décompression de ton gros fichier alors il faut créer un autre thread que tu appelleras ici !
    End Sub
End Class


Je vais adapter ça pour SZ 2014.

Cordialement,
Le réparateur de PC

Désolé je n'ai pas eu ne notifications de nouveau sujets ??????

Cordialement,
Le réparateur de PC

Re ,

OK ...
J'attend ton adaptation  !

Cordialement ,

JEREMY60800

re,

Le truc c'est que je ne vois pas trop comment adapter pour que l'utilisateur n'ai pratiquement rien à faire.... Un peut comme un plugin en fait mais manuel !

Je vaux faire : Sélection de l'URL (OK) du DOSSIER de destination (OK, le nom du fichier sera le nom présent sur le serveur web) et de la ProgressBar ( AIH pour le moment)

Pour faire simple, je travaille sous VS et dès que j'arrive à le ligne d'appel :

Code:

DownloadFileEx("http://192.168.1.2/VB.rar", "D:\", ProgressBar1)

Je passe sous SZ 2014. Mais le problème c'est que j'ai 2 évènement en dehors de la fonction appelée :
Un pour la progression et l'autre pour la fin du téléchargement avec gestion des erreurs.

Actuellement, je suis là :

Code:

DownloadFileEx("http://192.168.1.2/VB.rar", "D:\")

mais il faut passer dans le code VB pur modifier le PB et les actions sur la fin du téléchargement; pas génial en tout cas, ce n'est pas l'optique SZ....

Cordialement,
Le réparateur de PC

Re ,

Ah ok ...
Mais pourquoi ne pas faire de plugin si tu galére autant ?

Sinon , j'ai le temps  Je bosse la génération en ce moment ....

Cordialement ,

JEREMY60800

re,

Car faire un plugin ne se fait pas comme ça....... ça prend pas mal de temps... que je n'ai pas forcément en tout cas pas en ce moment désolé mais c'est une idée intéressante pour un plugin !

Cordialement,
Le réparateur de PC

Re ,

Non c'est pas grave ...
Juste faut que je trouve une solution ....

Cordialement ,

JEREMY60800

re,

Désolé mais il va falloir attendre le plugin en bêta peut-être pour la fin du WE n'ayant pas ma carte Intel Galileo gen 2 en rupture de stock un peut partout... (pas avant mi-juillet stock usine).
Le seul soucis de ce plugin, c'est qu'il lui faut un contrôle pour le concepteur de fenêtres; chose que je n'ai jamais faite !

Cordialement,
Le réparateur de PC

Re ,

Pourquoi un contrôle ? Je suit pas tous ...
Ce qui m’intéresse , c'est juste télécharger avec un lien prédéfini , ce n'est pas l'utilisateur qui définie le lien ...

Après si tu veux faire un contrôle genre "progressbar downloading" , là je comprend ...

Cordialement ,

JEREMY60800

re,

En gros, pour faire la progression de la progressbar, il faut utiliser un évènement du WebClient, celui qui gère la progression en récupérant le paramètre "e".
Sans faire de contrôle, impossible d'utiliser cet évènement sans passer par du VB.
Avec un plugin, tu crée un évènement (comme le clic du bouton) et tu y met dedans l'action pour faire avancer ta PB. Mais comme il y a une petite subtilité pour la progression, ceci sera transparent pour l'utilisateur.

Je veux que ça reste simple d'utilisation.

Cordialement,
Le réparateur de PC

re,

Pour le plugin ail..... Je n'ai pas d'exemples type avec un contrôle pour le concepteur

Pour les bout de code que j'ai trouvé sur le Web, bah impossible de les faire tourner chez moi avec mon nas.

La solution c'est que je te passe un projet SZ 2014 fonctionnel mais où je ne peut pas te garantir son fonctionnement du point de vue FTP.

Ma dernière question : actuellement, le téléchargement se fait comment ? en FTP ou autre ?

Cordialement,
Le réparateur de PC

Re ,
OK !
Le téléchargement se fait en FTP mais si sans FTP sa fonctionne je peut adapter facilement  !

Cordialement ,

JEREMY60800

re,

Projet SZ 2014 démo.

Il faut simplement éditer le code VB présent dans l'évènement Click du bouton et y mettre l'URL vers ton fichier, le dossier où enregistrer le fichier (attention le nom et l'extension de ce fichier est automatiquement créé en fonction de celui du lien de l'URL) et la ProgressBar qui affichera le téléchargement.

La partie principale du code se trouve dans le premier onglet du projet.

Le lien du projet SZ 2014: http://lereparateurdepc.olympe.in/sz_tmp/FTP_Jem_FOFO_SZ.zip
EDIT le 13/12/16 : désolé mais mon hébergeur à fermé......

Cordialement,
Le réparateur de PC

Hello ,

Cela fonctionne avec le FTP ou pas ? Car sans FTP , cela affiche seulement que quand le fichier est télécharger ... (En cours de téléchargement : pas de progression / Fin du téléchargement : 100% directement)

Cordialement ,

JEREMY60800

re,

AHHH mince, j'ai eu ce problème mais là, avec ce code je ne l'avais plus....

Du coup, je n'ai plus d'idées

Cordialement,
Le réparateur de PC

Re ,

En faite j'ai essayer depuis un autre site et sa fonctionne !
Milles merci !

JEREMY60800

re,

Pas de soucis en espérant que ce ne soit pas trop dur à utiliser pour ton soft ......

Cordialement,
Le réparateur de PC

Re ,

Le code dans le load est obliger d'être dans le load ?

Cordialement ,

JEREMY60800

re,

Dans mon projet démo, il n'y a pas d'évènement Load...... juste click
Si c'est de celui-là que tu parle, non pas obligé tu le met où tu veux...

Cordialement,
Le réparateur de PC

Re ,

Non ya un code dans le load de la fenêtre ... , enfin dans le premier onglet ...

Cordialement ,

JEREMY60800

re,

OUI ce code est la fonction principale !!!!!!
Le petit bout de code que tu as dans l'évènement Click n'est que l'appel de cette fonction.

Le code principal est composé de la fonction de traitement, l'évènement de progression et l'évènement de fin.

Cordialement,
Le réparateur de PC

Re ,

OK ! Ce sujet est résolu !

Cordialement ,

JEREMY60800

Hey !

Je me permet de ré-ouvrir ce sujet car je n'arrive plus à mettre la main sur ton code @lereparateurdepc ...

Pourrais tu me l'écrire ? (et pas de fichier exemple car tes sous SZ 2014 et moi 2012  )

Merci !

Cordialement ,

Jeremy60800

re,

Malheureusement, mon hébergeur gratuit à fermé...... donc plus de lien

Code à mettre dans le premier onglet :

Code:

 'Module FuncDownload

    Dim WithEvents client As New System.Net.WebClient()
    Dim PrivProgress As ProgressBar

    Public Sub DownloadFileEx(ByVal URL As String, ByVal FileDir As String, ByVal Progress As ProgressBar)
        PrivProgress = Progress
        Dim fiName As New System.IO.FileInfo(New Uri(URL).AbsolutePath)
        client.DownloadFileAsync(New Uri(URL), FileDir & "\" & fiName.Name)
    End Sub

    Private Sub DownloadFileEx_DownloadProgressChanged(sender As Object, e As System.Net.DownloadProgressChangedEventArgs) Handles client.DownloadProgressChanged
        PrivProgress.Value = e.ProgressPercentage
    End Sub

    Private Sub DownloadFileEx_DownloadFileCompleted(sender As Object, e As System.ComponentModel.AsyncCompletedEventArgs) Handles client.DownloadFileCompleted
        'If e.Error IsNot Nothing Then
            'MsgBox(e.Error.ToString)
        'Else
            'MsgBox("Téléchargement terminé !")
        'End If
    End Sub
'End Module


Code de l'action déclencheur (un bouton dans mon cas) :

Code:

'FuncDownload.DownloadFileEx("http://192.168.1.2/VB.rar", "D:\", ProgressBar1)
DownloadFileEx("http://192.168.1.2/VB.rar", "D:\", ProgressBar1)


En espérant que ça t'aide.....

Bonne soirée

Cordialement,
Le réparateur de PC

Re ,

Merci

Cordialement ,

Jeremy60800