[VB6] Probleme avec la fonction inet1.getchunk(1024)

Probleme avec la fonction inet1.getchunk(1024) [VB6] - VB/VBA/VBS - Programmation

Marsh Posté le 27-09-2006 à 11:33:46    

Bonjour,
 
J'essaye d'ajouter une barre de progression à un transfert ftp par inet mais la propri"té getchunk me retourne rien.
 
Savez vous d'ou provient ce probleme ?
 

Code :
  1. Inet1.Execute , "size /" & fic_source 'demande la taille du fichier a telecharger
  2.  
  3. Do Until Inet1.StillExecuting = False 'boucle pendant le traitement de inet
  4. DoEvents
  5. Loop
  6.  
  7. taille = Inet1.GetChunk(1024) 'recuperation de la taille dans taille


 
En sortie, j'ai taille=""
 
Merci
 
Johnson

Reply

Marsh Posté le 27-09-2006 à 11:33:46   

Reply

Marsh Posté le 03-10-2006 à 17:36:17    

J'ai continuer à avancer voici ce que jai actuellement :
 
 
C'est la derniere version :  

Code :
  1. Dim taille As Variant
  2. Dim pourcent As Integer
  3. Dim fic_source, fic_destination As String
  4.  
  5.  
  6. fic_source = "c:\2.bmp" 'fichier a uploader"
  7. fic_destination = "fichier" 'fichier de destination"
  8. pb.Min = 0
  9. pb.Max = FileLen(fic_source)
  10. With Inet1
  11. .protocol = icFTP 'declaration protocole
  12. .URL = "ftp://81.249.XXX.XX" 'le ftp
  13. .username = "*****"
  14. .password = "*****"
  15. End With
  16.  
  17.  
  18. Inet1.Execute , "put " & fic_source & " /" & fic_destination 'envoie du
  19. fichier
  20.  
  21.  
  22. Inet2.URL = Inet1.URL 'initialise inet2 : mm url
  23. Inet2.username = Inet1.username 'initialise inet2 : mm username
  24. Inet2.password = Inet1.password 'initialise inet2 : mm password
  25. Inet2.protocol = Inet1.protocol 'initialise inet2 : mm protocol
  26.  
  27.  
  28. Do Until Inet1.StillExecuting = False 'boucle pendant le traitement de
  29. inet1
  30. On Error Resume Next
  31.    If Inet2.StillExecuting = False Then 'si inet2 n'est pas actif
  32.  
  33.  
  34.        Inet2.Execute , "size /" & fic_destination 'demande la taille
  35. du fichier sur le ftp
  36.        Do Until Inet2.StillExecuting = False 'boucle pendant le
  37. demande inet2
  38.        DoEvents
  39.        Loop
  40.  
  41.  
  42.        taille = Inet2.GetChunk(1024) 'recuperation du size dans taille
  43.        Do Until Inet2.StillExecuting = False 'boucle pendant le
  44. demande inet2
  45.        DoEvents
  46.        Loop
  47.  
  48.  
  49.       'affichage de la progressbar
  50.  
  51.  
  52.       pb.Value = taille 'affichage de l'avancement de pb
  53.       pourcent = (pb.Value / pb.Max) * 100 'calcul du pourcentage
  54. reçu
  55.       Label1.Caption = pourcent & "%" 'affichage du % du
  56. telechargement
  57.  
  58.  
  59.    End If
  60. Loop


 
La barre de progression ainsi que le label de pourcentage ne fonctionne  
pas! Enfin ils fonctionnent que a la fin du transfert, jai ma barre de  
progressiona  fond et 100% pour le label.  
Il est coincé dans une boucle pendant le transfert .....
 


Message édité par johnson951 le 03-10-2006 à 17:37:53
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed