petit problème avec Inet (Composant)

Question

Bonjour &#224; tous,


J'avais t&#233;l&#233;charg&#233; ici sur le site un exemple avec le composant Inet, tout fonctionnait bien except&#233; lorsque je voulais arr&#234;ter le projet (soit par le bouton Stop ou le X de la fen&#234;tre).  &#192; ce moment l&#224; le projet gelait et j'&#233;tais oblig&#233; d'arr&#234;ter le processus de VB6 &#224; l'aide de Ctrl+Alt+Del...   J'ai donc d&#233;cid&#233; de faire mon propre projet &#224; partir de z&#233;ro.  Tout fonctionnait tr&#232;s bien.  Je pouvait me connecter/d&#233;connecter &#224; un site ftp et aussi uploader/downloader des fichiers.  J'ai continu&#233; &#224; programmer et maintenant j'ai le m&#234;me probl&#232;me que dans l'exemple.  Je n'avais pas fait de backup alors j'ai recommenc&#233; le projet encore une fois et je ne fait que me connecter et d&#233;connecter et lorsque je ferme le projet &#231;a g&#232;le.  J'utilise  Serv-U comme serveur FTP.  Quelqu'un aurait une id&#233;e pourquoi &#231;a g&#232;le lorsque j'arr&#234;te mon projet alors que &#231;a marchait avant... ??

Voici: ce que mon code fait.
Private Sub cmdConnect_Click()
  Inet1.Protocol = icFTP 'declaration protocole
  Inet1.URL = "ftp://USER:PASSWORD@ftp.site.ca" 'Url inet1
  Label1.Caption = "Connected"
  Do Until Inet1.StillExecuting = False 'boucle pendant inet actif
    DoEvents
  Loop
  Inet1.Execute , "cd 810"
  Do Until Inet1.StillExecuting = False 'boucle pendant inet actif
    DoEvents
  Loop
  Label1.Caption = "cd 810"
End Sub


Private Sub cmdDisconnect_Click()
  Inet1.Execute , "close"
  Do Until Inet1.StillExecuting = False 'boucle pendant inet actif
    DoEvents
  Loop
  Label1.Caption = "Disconnect"
End Sub


Private Sub Inet1_StateChanged(ByVal State As Integer)
  Select Case State
  Case icError ' 11
    ' En cas d'erreur, renvoie ResponseCode et ResponseInfo
    MsgBox Inet1.ResponseCode & ":" & Inet1.ResponseInfo
  End Select
End Sub

cs_Jack · Answer

Salut
Je n'ai pas rencontr&#233; ce probl&#232;me, mais surement d&#251; &#224; une boucle sans fin et sans DoEvent.
V&#233;rifie si quelque part tu n'aurais pas un Do-Loop qui bouclerait ou un For-Next dont la variable serait d&#233;clar&#233;e en Public et dont la valeur serait modifi&#233;e ailleurs dans le m&#234;me programme.

Eventuellement, si tu restes dans un de tes "Do Until" :
- D&#233;finis en Public ArretProgramme As Boolean dans un module
- Dans ton Form_QueryUnload, ajoute ArretProgramme = True puis quelques DoEvents ou/et un Inet1.Cancel
- Dans chaque boucle Do-Loop en rapport &#224; une attente de ton iNet1 :
Do Until Inet1.StillExecuting = False Or ArretProgramme 'boucle pendant inet actif
    DoEvents
Loop
If ArretProgramme Then Exit Sub/Function

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

BlackAngel2 · Answer

Bon, j'ai m&#234;me diminu&#233; mon code.  Le code ci-dessous est tout ce que contient mon programme.  Je l'ai simplifi&#233; au maximum, il ne reste que les 11 lignes de codes que tu vois ci-dessous.  Il n'y a aucune boucle sans puisque je vois dans mon label "connected" lorsque je veux me connecter et "disconnected" lorsque je veux me d&#233;connecter c'est donc que j'ai r&#233;ussi a passer la boucle Do Until Inet1.StillExecuting = False.  Sur le serveur FTP je vois que je suis connect&#233; et je vois lorsque je me d&#233;connect aussi donc le code fonctionne bien.  C'est le processus VB6 qui reste gel&#233;, et c'est forc&#233;ment &#224; cause du controle Inet puisque si je n'utilise pas les boutons connect et disconnect et bien je peux fermer le programme sans probl&#232;me.  D'autres id&#233;es ???

Private Sub cmdConnect_Click()
  Inet1.Protocol = icFTP 'declaration protocole
  Inet1.URL = "ftp://USER:PASSWORD@ftp.site.ca" 'Url inet1
  Do Until Inet1.StillExecuting = False 'boucle pendant inet actif
    DoEvents
  Loop
Label1.Caption = "Connected"
End Sub 
Private Sub cmdDisconnect_Click()
  Inet1.Execute , "close"
  Do Until Inet1.StillExecuting = False 'boucle pendant inet actif
    DoEvents
  Loop
  Label1.Caption = "Disconnect"
End Sub

cs_Jack · Answer

Ca ne m'avait pas saut&#233; aux yeux, mais la premi&#232;re partie ne suffit pas &#224; &#233;tablir une connexion.
(&#231;a serait vrai avec un Winsock, mais pas avec Inet qui est un composant plus sophistiqu&#233;)
Tu ne fais que d&#233;finir le site, rien d'autre. Normal donc qu'il n'attende pas dans le 1er Do-Loop.
Il ne sera en ex&#233;cution (StillExecuting) que lorsqu'il y aura une action "Execute" avec une commande (genre CD) ou un Get ou Put de fichier.
Donc, avec Inet, il n'y a pas d'&#233;tat 'Connect&#233;' puisqu'il se connecte &#224; chaque commande.
Si tu as besoin d'un Login/Password, vois avec les Inet1.UserName, .Password

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

BlackAngel2 · Answer

bon j'viens de v&#233;rifier ce que tu dis et oui tu as raison.  J'ai un peu trop simplifier mon code... avant j'utilisait ce m&#234;me code, mais je fesais du .execute " cd  /810" et aussi du upload/download.  Mais, le probl&#232;me n'est pas l&#224;, puisque je suis capable d'uploader et de downloader des fichiers sans probl&#232;mes tout marche A1.  Le probl&#232;me est situ&#233; au niveau de l'arr&#234;t du programme.  Pourtant hier, je me connectait, j'utilisait la commande cd, j'uploadais, je downloadais, tout marchait bien et le programme se fermait rapidement.  Maintenant, aussit&#244;t que j'utilise le composant Inet, le programme ne se ferme plus.(J'ai fait un test... il se ferme mais au bout d'1 minute genre... c'est assez long)  Si j'ouvre le programme que je n'appuis sur aucun bouton et que je le ferme, tout va bien et il se ferme rapidement.

Tu as une id&#233;e pourquoi c'est lent lors de la fermeture, alors qu'avant tout &#233;tait correct ?

cs_Jack · Answer

Salut
El&#233;ment nouveau : Il se ferme au bout d'une minute
Cela veut dire que ton INet est en train d'ex&#233;cuter une commande qui n'arrive pas &#224; terme.
Tu peux r&#233;duire ce temps avec le iNet.TimeOut en secondes.
Si tu veux, envoies moi ton code par mail, que je regrade.
Je te le donne dans un message priv&#233;.

Vala
Jack, MVP VB
NB : Je ne r&#233;pondrai pas aux messages priv&#233;s 

Le savoir est la seule mati&#232;re qui s'accroit quand on la partage. (Socrate)

BlackAngel2 · Answer

Hummm, je viens de regarder et la propri&#233;t&#233; .Timeout n'existe pas pour mon contr&#244;le Inet, peut-&#234;tre que je n'ai pas une version assez r&#233;cente...

N&#233;anmoins, apr&#232;s r&#233;flexion, si je fais disconnect et que j'attends 10 minutes avant de fermer le programme.  Il va quand m&#234;me falloir que j'attendes 1 &#224; 3 minutes avant qu'il se ferme alors que le .timeout est d&#233;j&#224; d&#233;pass&#233; th&#233;oriquement....

Petit problème avec Inet (Composant)

6 réponses

Discussions similaires