Progressbar avec FTP

**jolona** · 30/11/2013, 18h56

Bonjour,

j'utilise ce code pour faire un upload et download de fichier sur un serveur FTP securisé:

download :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Public Function downloadFTP(ByVal Cheminfile As String, ByVal URL As String, ByVal bk As String, ByVal pw As String, ByVal Er As String) As String
        Form1.ProgressBar1.Value = 0
 
        Dim requ As FtpWebRequest = Nothing
        Dim resp As FtpWebResponse = Nothing
        Dim respStrm As Stream = Nothing
        Dim fileStrm As FileStream = Nothing
        Dim filename As String
 
        Try
            requ = CType(WebRequest.Create(URL), FtpWebRequest)
            Application.DoEvents()
            requ.Credentials = New NetworkCredential(bk, pw)
 
            requ.Method = WebRequestMethods.Ftp.DownloadFile
            resp = CType(requ.GetResponse(), FtpWebResponse)
            respStrm = resp.GetResponseStream()
 
            filename = Path.GetFileName(requ.RequestUri.LocalPath)
 
            fileStrm = File.Create(Cheminfile & "\" & filename)
            Dim buff(1024) As Byte
            Dim bytesread As Integer = 0
 
            While (True)
                bytesread = respStrm.Read(buff, 0, buff.Length)
                Form1.ProgressBar1.Maximum = 100
                Form1.ProgressBar1.Value += 20
                If (bytesread = 0) Then Exit While
                fileStrm.Write(buff, 0, bytesread)
            End While
            Er = "Download de "
 
        Catch ex As UriFormatException
 
            Er = ex.Message
 
        Catch ex As WebException
            Er = ex.Message
 
        Catch ex As IOException
            Er = ex.Message
        Finally
            If respStrm IsNot Nothing Then respStrm.Close()
            If fileStrm IsNot Nothing Then fileStrm.Close()
        End Try
 
        Return Er
 
 
    End Function

er upload

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Public Function uploadFTP(ByVal filename As String, ByVal URL As String, ByVal bk As String, ByVal pw As String, ByRef Er As String) As String
 
        Dim requ As FtpWebRequest = Nothing
        Dim resp As FtpWebResponse = Nothing
        Dim requStrm As Stream = Nothing
        Dim fileStrm As FileStream = Nothing
        Try
 
            requ = CType(WebRequest.Create(URL), FtpWebRequest)
            requ.Credentials = New NetworkCredential(bk, pw)
 
            requ.Method = WebRequestMethods.Ftp.UploadFile
            requ.Timeout = System.Threading.Timeout.Infinite
            requ.Proxy = Nothing
            requStrm = requ.GetRequestStream()
            Dim buff(2048) As Byte
            Dim bytesRead As Integer = 0
 
            fileStrm = File.OpenRead(filename)
            Do While (True)
                bytesRead = fileStrm.Read(buff, 0, buff.Length)
                If (bytesRead = 0) Then Exit Do
                requStrm.Write(buff, 0, bytesRead)
            Loop
            requStrm.Close()
            resp = CType(requ.GetResponse(), FtpWebResponse)
            Er = "Upload de "
        Catch ex As UriFormatException
            Er = ex.Message
        Catch ex As IOException
            Er = ex.Message
        Catch ex As WebException
            Er = ex.Message
        Finally
            If resp IsNot Nothing Then resp.Close()
            If fileStrm IsNot Nothing Then fileStrm.Close()
            If requStrm IsNot Nothing Then requStrm.Close()
        End Try
        Return Er
    End Function

je voudrais mettre un progressbar pour voir la progression mais je galère, je travail sur le while et rien n'a faire je n'arrive pas a coder la barre...

pouvez-vous m'aider merci

**wallace1** · 30/11/2013, 20h11

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
Public Function uploadFTP(ByVal filename As String, ByVal URL As String, ByVal bk As String, ByVal pw As String, ByRef Er As String) As String
 
        Dim requ As FtpWebRequest = Nothing
        Dim resp As FtpWebResponse = Nothing
        Dim requStrm As Stream = Nothing
        Dim fileStrm As FileStream = Nothing
   Try
 
        Dim requ As FtpWebRequest = Nothing
        Dim resp As FtpWebResponse = Nothing
        Dim requStrm As Stream = Nothing
        Dim fileStrm As FileStream = Nothing
        Try
                    requ = CType(WebRequest.Create(URL), FtpWebRequest)
                    requ.Credentials = New NetworkCredential(bk, pw)
 
                    requ.Method = WebRequestMethods.Ftp.UploadFile
                    requ.Timeout = System.Threading.Timeout.Infinite
                    requ.Proxy = Nothing
                    Dim requStrm As Stream = requ.GetRequestStream()
                    Dim fs As New FileStream(tmpfi, FileMode.Open)
                    Dim bytesRead As Integer = 0
                    Dim bytesSoFar As Long = 0
                    Dim buffer4 As Byte() = New Byte(2048) {}
                    While (MisMatchData(bytesRead, fs.Read(buffer4, 0, buffer4.Length))) <> 0
 
                            bytesSoFar += bytesRead
                            requStrm.Write(buffer4, 0, bytesRead)
                            Bgw.ReportProgress((bytesSoFar * 100) / fi.Length, "Uploading file : ...")
                    End While
                    fs.Close()
                    resp = CType(requ.GetResponse(), FtpWebResponse)
        Catch ex As UriFormatException
            Er = ex.Message
        Catch ex As IOException
            Er = ex.Message
        Catch ex As WebException
            Er = ex.Message
        Finally
            If resp IsNot Nothing Then resp.Close()
            If fileStrm IsNot Nothing Then fileStrm.Close()
            If requStrm IsNot Nothing Then requStrm.Close()
        End Try
        Return Er
    End Function
 
    Public Function MisMatchData(Of T)(ByRef target As T, ByVal value As T) As T
        target = value
        Return value
    End Function
 
    Private Sub Bgw_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles Bgw.ProgressChanged
          If Not e.progresspercentage > 100
                Me.ProgressBar1.Value = e.ProgressPercentage
                Me.text = e.userstate.tostring
            End If
    End Sub

Voilà pour te permettre la gestion d'une barre de progression lors de l'Upload mais si tu recherches bien sur ce forum j'ai déjà posté 1 exemple très bien détaillé sur le sujet.

NB 1 : n'oublies surtout pas de paramétré ton BackgroundWorker de facon qu'il accepte la gestion de la progression : WorkerReportsProgress=True

NB 2: je n'ai pas débogué car je viens de rafistoler ton code sans EDI ...donc il est probable qu'il s'y soit glissé des incohérences ou erreurs mais l'idée est là !

NB 3: ATtention à bien gérer également l'annulation lorsque tu te situes dans le parcours des bytes dans While et MisMatchData().

A+

**wallace1** · 30/11/2013, 20h24

Des liens qui contiennent des infos très intéressants ici :

http://www.developpez.net/forums/d13...-gros-fichier/

et là :

http://www.developpez.net/forums/d13...non-bloquante/

PS : me semblait bien que j'avais récemment rédigé un bon exemple ...

A+

**jolona** · 01/12/2013, 00h29

Merci bien je vais me pencher dessus et reviendrais vers toi...

**jolona** · 01/12/2013, 17h35

je pige pas le fonctionnement... par contre je n'utilise pas de BackgroundWorker et je n'ai jamais utiliser cette fonction... j'utilise des Application.DoEvents() pour ne pas figer l'appli pendant le while... si je comprend bien le BackgroundWorker permet de gérer les pauses durant le fonctionnement...

les fichiers que j'uploade ou download ne fond que 500 ko max pour les photos et 5mo max pour une base SQL..

en fait si j'arrive a determiner la taille du fichier sur le serveur je pourrais boucler en fonction, non?

**wallace1** · 01/12/2013, 19h26

Envoyé par tijote

je pige pas le fonctionnement... par contre je n'utilise pas de BackgroundWorker et je n'ai jamais utiliser cette fonction... j'utilise des Application.DoEvents() pour ne pas figer l'appli pendant le while... si je comprend bien le BackgroundWorker permet de gérer les pauses durant le fonctionnement...

les fichiers que j'uploade ou download ne fond que 500 ko max pour les photos et 5mo max pour une base SQL..

en fait si j'arrive a determiner la taille du fichier sur le serveur je pourrais boucler en fonction, non?

Bonjour tijote,

Ce n'est pas faute d'avoir essayé de te renseigner sur ce composant (qui n'est pas une fonction !) !
De plus si tu dis utiliser des Application.DoEvents pour ne pas geler ton appli et que tu crois que le composant BackgroundWorker ne sert qu'à faire des pauses alors je ne vois pas ce que tu veux qu'on essaye de t'expliquer ????

Le composant BGW permet de faire des opérations de type asynchrones et de gérer ainsi les opérations de mises à jour d'interface (généralement une Progression), l'annulation du prosessus, .... la gestion des erreurs/d'annulation en fin de processus ...and so on........!

Ce que tu ne comprends pas ce n'est pas que le composant BGW mais le fonctionnement de l'upload de data sur un serveur ........

On ne boucle certainement pas sur ce qui se situe côté serveur....o_O

Je pense que c'est de ce côté là qu'il faut que tu creuses.... reviens nous voir quand tu auras saisis le principe du flux de lecture et du flux d'écriture lors de l'hébergement des datas côté serveur.

A+

Progressbar avec FTP

VB.NET

Vue hybride

Discussions similaires

Partager

Partager