Download et upload internet

- - Dernière réponse : chasseurdedemon
Messages postés
60
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
15 novembre 2010
- 18 juil. 2005 à 20:11
quelqu`un peut me dire comment download et uploader sur internet avec une bare de progression pour savoir on est rendu à combien de %
Afficher la suite 

5 réponses

0
Merci
merde, il y a tu quelqu`un qui est capable de savoir la grosseur du fichier qu`on download ou de le vitesse que l`on download le fichier ou on a downloader combien d`octect

au moins avoir une piste, ça commence à être urgent
0
Merci
Pour avoir la taille total du fichier :

Function ContentLength(URL As String)
Dim strHeader As String

'set protocol to HTTP
Inet1.Protocol = icHTTP

'open URL
On Error Resume Next
Inet1.OpenURL (URL)

' Retrieve the Content-Length
strHeader = Inet1.GetHeader("Content-Length")
ContentLength = strHeader

End Function

'-----------
Pour récup cette taille ( en octets "réel" ) :
LaTaille = ContentLength("http://www.server.com/fichier.exe")

Il faut inet ... ;)
Pour ce qui est de la taille deja download je cherche aussi ;o)
-> une histoire avec inet1.GetChunk je pense ;) ...
0
Merci
J'ai trouvé !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ;)
En english ;o) beurk ...

http://www.planet-source-code.com/xq/ASP/txtCodeId.7335/lngWId.1/qx/vb/scripts/ShowCode.htm

Il reste plus qu'à épucher le code :big) !!
Messages postés
18
Date d'inscription
mercredi 29 janvier 2003
Statut
Membre
Dernière intervention
20 novembre 2009
0
Merci
ALAINXP


salut pour la taille deja download tu as la fonction filelen
donc dans un bouton tu mes

Private Sub Command1_Click()
Form1.Caption = FileLen("c:\fichier.exe")
End Sub

il te le donneras en octet
pour convertir en Mo Go ou Ko tu fais :

Private Sub Command1_Click()
Form1.Caption = Convertiondoctet(FileLen("c:\xp.exe"))
End Sub
Public Function Convertiondoctet(LaValeur As Long) As String
On Error Resume Next
Dim fichier As Single
fichier = LaValeur
If ((fichier / 1024) > 1) Then
fichier = fichier / 1024
Convertiondoctet = Format(fichier, "########.00") & " Ko"
If ((fichier / 1024) > 1) Then
fichier = fichier / 1024
Convertiondoctet = Format(fichier, "########.00") & " Mo"
If ((fichier / 1024) > 1) Then
fichier = fichier / 1024
Convertiondoctet = Format(fichier, "########.00") & " Go"
End If
End If
Else
Convertiondoctet = fichier & " octets"
End If
End Function

voila pour ce ki est de la convertion c ' est pas de moi
voila moi j suis entrain de faire un download accelerator au lien de telecharger a 50/60 Ko/s j suis a 120/130 Ko/s j suis en 1024 mais pour les autre connection c booste aussi
voila pour d autre Question nesitez pas[mailto:alainxp@wanadoo.fr mailto:alainxp@wanadoo.fr]
Messages postés
60
Date d'inscription
mardi 23 décembre 2003
Statut
Membre
Dernière intervention
15 novembre 2010
0
Merci
salut
j'ai créer mon propre navigateur internet
mais la je voudrais l'amélioré 1 peu donc je veux pour cela ajouter mon propre gestionnaire de telechargement , parce que quand je vais sur internet avec mon navigateur et que je clique sur un fichier pour le telecharger et bien c'est le gestionnaire de telechargement de windows qui ce lance alors je voudrais créer le mien qui ce lanceras par default mais je ne c'est absolument pas comment il faut faire alors si quelqu'un peu m'aider svp.

chasseur de demon

---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------La Technologie est aussi simple que la boite qui la contien--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------