Discussion :

[Selve]

Bonjour à tous

J'utilise ceci pour télécharger un fichier zip (tirage du loto)

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
Private Function Telecharge(Nom As String) As Boolean
     Dim U As String = Url & Nom
     Using Wc As New Net.WebClient
         Try
             Wc.DownloadFile(U, Doc & Nom)
             Return True
         Catch ex As Exception
             Messages.Add(U)
             Messages.Add("Erreur " & Nom & " " & Prenom & " " & My.Computer.Info.ToString & Environment.NewLine _
                          & My.Computer.Info.OSFullName)
             MessageBox.Show("Il y a eu un problème au téléchargement" & Environment.NewLine _
                                 & "le fichier " & Nom & Environment.NewLine & "n'a pas été téléchargé")
             Return False
         End Try
     End Using

Depuis quelques jours , la taille du fichier est mauvais , il manque des lignes

La taille du fichier téléchargé est de 126 976 octets et si je télécharge avec Edge la taille du fichier est 131 072 octets

Quelle peut en être la raison ??

[Miska59]

bonjour, vous pouvez faire ceci pour voir la taille du fichier zip.

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
 
Dim sw As New Stopwatch()
 
Public Sub DownloadFile(ByVal urlAddress As String, ByVal location As String)
    Using webClient As New WebClient()
        AddHandler webClient.DownloadFileCompleted, AddressOf Completed
        AddHandler webClient.DownloadProgressChanged, AddressOf ProgressChanged
        sw.Start()
        Try
            webClient.DownloadFileAsync(new Uri(urlAddress), Path.Combine(location, GetNames(urlAddress))
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Using
End Sub
 
Private Sub ProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs)
    labelSpeed.Text = String.Format("{0} kb/s", (e.BytesReceived / 1024 / sw.Elapsed.TotalSeconds).ToString("0.00"))
    progressBar.Value = e.ProgressPercentage
    labelPerc.Text = e.ProgressPercentage.ToString() & "%"
    labelDownloaded.Text = String.Format("{0} MB's / {1} MB's", (e.BytesReceived / 1024 / 1024).ToString("0.00"), (e.TotalBytesToReceive / 1024 / 1024).ToString("0.00"))
End Sub
 
Private Sub Completed(sender As Object, e As AsyncCompletedEventArgs)
    sw.Reset()
 
    If e.Cancelled = True Then
        MessageBox.Show("Le téléchargement a été annulé.")
    Else
        MessageBox.Show("Téléchargement terminé!")
    End If
End Sub
 
Private Function GetFileName(ByVal URLS As String) As String
        Return URLS.Substring(URLS.LastIndexOf("/") + 1)
    End Function
end sub

[Selve]

Bonjour,

merci pour ce retour

cette fonction marchait bien jusqu'au 24/07/2024 ,il n'y avait pas de problème mais depuis cette date il me manque des lignes

J'aimerais plutôt en connaitre la raison

[Miska59]

cette fonction marchait bien jusqu'au 24/07/2024 ,il n'y avait pas de problème mais depuis cette date il me manque des lignes

es ce que vous avez des messages erreurs? il vous manque quel ligne? je comprend pas ce que vous voulez dire quel ligne?

[Selve]

Chaque ligne correspond à un tirage du loto de la FDjeux

Les tirages s'arrêtent le mercredi 20/07/2024.

Quand on télécharge avec Edge tous les tirages sont là (jusqu'au 05/08/2024) donc il manque les tirages du 24 au 05/08

Pas de message d'erreur, Ca fait le même chose pour Euro-million et Keno

Un des utilisateurs a téléphoné à la FDjeux et ils ne comprennent pas

Je ne comprends pas ce qu'il se passe

[Selve]

Je me permets de revenir sur le sujet



L'image de gauche est téléchargée avec Edge , celle de droite avec VB.net ,le même jour évidemment

[Miska59]

je viens faire un essayer du lien ça fonctionne trés bien que vous avez à gauche avec Edge.

le lien en image :


le lien : https://www.sto.api.fdj.fr/anonymous...c-2c963f66afp6
le nom du fichier un zip a la fin : loto_201911.zip

le résultat du fichier zip :

[Selve]

Ben c'est exactement de ça que je parle : ca marche bien avec Edge mais pas avec VB.Net

Avec VB.net ça s'arrête le 24/08/2024 sans message d'erreur

[Miska59]

Bonsoir Selve, voici en vb.net que ça fonctionne le fichier loto.zip


le fichier du loto aujourd’hui :


voici mon code :

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
Public Class Form1
    Private wc As New WebClient
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        TextBox1.Clear()
        TextBox1.Paste()
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim folder As New FolderBrowserDialog With {
           .Description = "Veuillez sélectionner une destination !",
           .ShowNewFolderButton = True,
           .RootFolder = Environment.SpecialFolder.Desktop}
        If folder.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox3.Text = folder.SelectedPath
        Else : Exit Sub
        End If
    End Sub
 
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        If String.IsNullOrEmpty(TextBox1.Text) Then
            MsgBox("Veuillez entrer un URL", MsgBoxStyle.Exclamation, "Erreur")
        ElseIf String.IsNullOrEmpty(TextBox2.Text) Then
            MsgBox("Veuillez entrer un nom du fichier.", MsgBoxStyle.Exclamation, "Erreur")
        ElseIf String.IsNullOrEmpty(TextBox3.Text) Then
            MsgBox("Veuillez entrer une destination.", MsgBoxStyle.Exclamation, "Erreur")
        Else
            wc = New WebClient()
            AddHandler wc.DownloadFileCompleted, AddressOf Completed
            AddHandler wc.DownloadProgressChanged, AddressOf ProgressChanged
            Try
                wc.DownloadFileAsync(New Uri(TextBox1.Text), Path.Combine(TextBox3.Text, TextBox2.Text))
            Catch ex As Exception
                wc.CancelAsync()
                MsgBox(ex.ToString, MsgBoxStyle.Critical, "Erreur")
            End Try
        End If
    End Sub
 
    Private Sub Completed(sender As Object, e As AsyncCompletedEventArgs)
        If e.Cancelled = True Then
            MessageBox.Show("Le téléchargement a été annulé.")
        Else
            MessageBox.Show("Téléchargement terminé!")
           Progressbar1.value = 0
        End If
    End Sub
 
    Private Sub ProgressChanged(sender As Object, e As DownloadProgressChangedEventArgs)
        Progressbar1.value = e.ProgressPercentage
        Label1.Text = String.Format("{0} MB's / {1} MB's", (e.BytesReceived / 1024 / 1024).ToString("0.00"), (e.TotalBytesToReceive / 1024 / 1024).ToString("0.00"))
    End Sub
End Class

cordialement,

[Selve]

Merci,
en fait ils ont créé un nouveau lien de téléchargement, tout en gardant l'ancien lien avec le nouveau lien ma fonction marche marche

Résolu