Discussion :

[Serge85]

Bonjour à tous,
je débute dans la programmation logicielle avec visual studio 2010. Je suis en plein développement d'un programme de téléchargement sur internet et quant je clique sur le bouton Download j'ai ce message qui apparaît et vu mon niveau je n'arrive pas à comprendre:
http://img15.hostingpics.net/pics/665687Capture.jpg .
Amis programmeurs, aidez-moi s'il vous plaît.

tout le code source:

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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
Imports System.Net
Public Class Form1
 
    Private WithEvents httpclient As New WebClient
 
    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
        SaveFileDialog1.ShowDialog()
        TextBox2.Text = SaveFileDialog1.FileName
    End Sub
 
    Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownload.Click
        httpclient = New WebClient
        Dim download As String = TextBox1.Text
        Dim save As String = TextBox2.Text
        httpclient.DownloadFileAsync(New Uri(download), save)
        lblCurrentStart.Text = "Current Status: Downloading..."
    End Sub
 
 
    Private Sub httpclient_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles httpclient.DownloadProgressChanged
        ProgressBar1.Maximum = e.TotalBytesToReceive
        ProgressBar1.Value = e.BytesReceived
        lblDownloadStart.Text = "Download Status: " & e.ProgressPercentage & "%"
 
        If e.ProgressPercentage = 100 Then
            lblCurrentStart.Text = "Current Status: Finished"
        End If
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ProgressBar1.Style = ProgressBarStyle.Blocks
        lblCurrentStart.Text = "Current Status: Waiting"
    End Sub
 
    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        httpclient.CancelAsync()
    End Sub
 
    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
 
    End Sub
 
    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
 
    End Sub
 
    Private Sub lblCurrentStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lblCurrentStart.Click
 
    End Sub
 
    Private Sub PictureBox5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox5.Click
        httpclient = New WebClient
        Dim download As String = TextBox1.Text
        Dim save As String = TextBox2.Text
        httpclient.DownloadFileAsync(New Uri(download), save)
        lblCurrentStart.Text = "Current Status: Downloading..."
    End Sub
 
    Private Sub PictureBox4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox4.Click
        httpclient.CancelAsync()
    End Sub
 
    Private Sub PictureBox3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox3.Click
        SaveFileDialog1.ShowDialog()
    End Sub
 
    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Dim f As New Form1
        f.Show()
    End Sub
 
    Private Sub PictureBox7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox7.Click
        Form6.Show()
    End Sub
 
    Private Sub FichierToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub AideToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
 
    End Sub
 
    Private Sub Label7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label7.Click
 
    End Sub
 
    Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
        TextBox1.Text = Nothing
        TextBox2.Text = Nothing
        ProgressBar1.Minimum = 0
    End Sub
 
    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
 
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
 
    End Sub
End Class

Merci davance

[Graffito]

IL y a des chances que e.BytesReceived soit égal à -1 parce que le fichier à télécharger n'est pas trouvé sur le serveur.

[Serge85]

Salut et merci de m'éclaire, je suppose que vous faîtes allusion à ça:

[Graffito]

Oups, Je me suis trompé de ligne :
Si le fichier est lu dans un site FTP, l'erreur vient du fait que, contrairement à HTTP, FTP ne renvoie pas dans e.TotalBytesToReceive le nombre d'octets à recevoir.

[Serge85]

bonjour,
et encore merci pour tout mais comment résoudre ce problème?

[Graffito]

Peut-être ainsi :

Code :

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

1
2
ProgressBar1.Maximum = 100
ProgressBar1.Value = e.ProgressPercentage

sans garantie