Téléchargement que avec Dll

[Résolu]
Signaler
Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
-
Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
-
Bonjour,
je voudrais savoir comment faire, si cela est possible pour:
Connaitre le poids d'un fichier avant son téléchargement.(venant d'un serveur)
Télécharger le fichier du dit serveur.
Ceci pour voir sa progression, grâce à une progressbar.

Merci de votre aide !

j'utilise l'Api suivante:
... URLDownloadToFile Lib "urlmon" ...
J'ai bien essayez l'API DoFileDownload
Mais je n'obtient rien de probant !
seul celui qui reconnait ses fautes, Progress ..._bar
Galactus le Vrai !

2 réponses

Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
Bon, Je comprend pas trop mais cela c'est mis a fonctionner normalement !
Et voici le "code final":

Public Sub ImportURL(ByVal URL As String, _
ByVal Fichier As String, _
ByVal Ok As Boolean)

Dim ErrCode As Long

If Ok = False Then
' Télécharge le fichier d'information
ErrCode = URLDownloadToFile(0, URL, Fichier, 0, 0)
Else
' Télécharger la mise à jour
ErrCode = DoFileDownload(StrConv(URL, vbUnicode))
End If

If ErrCode = 0 Then
DeleteUrlCacheEntry URL
Else
MsgBox "Le serveur est occuper, " & _
"rééssayez plus tard.", vbInformation, _
"MISE A JOUR IMPOSSIBLE"
End
End If

End Sub

seul celui qui reconnait ses fautes, Progress ..._bar
Galactus le Vrai !
Messages postés
332
Date d'inscription
lundi 29 septembre 2008
Statut
Membre
Dernière intervention
10 avril 2020
1
J'ai omi mon code actuel:
...
With Galactus13
.MonFichier = Soft
.Temps = APP_PATH & "Temp.$$$"
.OnlineFilename = Serveur & Soft
End With

Menu.StatusInfo = "Mise a jour en cours..."""
DoEvents

DoFileDownload StrConv(Serveur & Soft, vbUnicode)
DownloadFile Galactus13.OnlineFilename, Galactus13.Temps



seul celui qui reconnait ses fautes, Progress ..._bar
Galactus le Vrai !