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