jujuwiwi
Messages postés30Date d'inscriptionlundi 11 mars 2002StatutMembreDernière intervention24 août 2007
-
28 juin 2002 à 10:50
cs_Kike
Messages postés13Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention 1 septembre 2005
-
19 déc. 2003 à 16:51
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_Kike
Messages postés13Date d'inscriptionlundi 16 décembre 2002StatutMembreDernière intervention 1 septembre 2005 19 déc. 2003 à 16:51
pour la progressbar du transfert , voir une autre source ici
la méthode ouvrir un second inet et demander la taille du fichier sur le ftp que l'on est entrain d'envoyer
on récupère ainsi la taille déja émise ...
cs_slayer
Messages postés202Date d'inscriptiondimanche 1 septembre 2002StatutMembreDernière intervention18 mars 2008 19 janv. 2003 à 22:30
peut t'on envoyé le contenu d'un dossier sur le serveur ftp ?
bydavid
Messages postés62Date d'inscriptionsamedi 21 septembre 2002StatutMembreDernière intervention 5 août 2003 24 sept. 2002 à 16:52
MERCI !!!!! Je recherchais cela depuis un moment !!!! MERCI !!!
cs_Mercury
Messages postés329Date d'inscriptionjeudi 3 janvier 2002StatutMembreDernière intervention 7 octobre 2005 2 juil. 2002 à 09:09
jujuwiwi => Merci pour ta réponse et pour l'aide que tu pourras m'apporter.
Aller hop, une bonne note ;-))
@+
Mercury
jujuwiwi
Messages postés30Date d'inscriptionlundi 11 mars 2002StatutMembreDernière intervention24 août 2007 1 juil. 2002 à 20:57
Mercury>>> a mon avis pour pouvoir faire une barre de progression (avec ProgressBar), il faut ce servir de Case 5
Label1.Caption = "Envoie une demande à l'ordinateur hôte."
Mais pour l'instant je ne sais pas comment utiliser les informations renvoyées par Inet, mais je vais regarder car dela me semble intéressant.
@+ bonne prog...
cs_Mercury
Messages postés329Date d'inscriptionjeudi 3 janvier 2002StatutMembreDernière intervention 7 octobre 2005 1 juil. 2002 à 09:29
Merci, ça m'a permit de compléter et de pofinier un prog que j'avais fait.
Par contre, sais-tu comment faire un état de la progression du transfert en cours (barre de progression ou autre) ???
jujuwiwi
Messages postés30Date d'inscriptionlundi 11 mars 2002StatutMembreDernière intervention24 août 2007 30 juin 2002 à 19:50
jack>>> Oui mais de toute façon, enfin je crois, tu ne peut pas avoir un espace dans le nom de session ou l'username...
jujuwiwi
Messages postés30Date d'inscriptionlundi 11 mars 2002StatutMembreDernière intervention24 août 2007 30 juin 2002 à 02:29
Oui je ense l'avoir dit c comme sous dos .
par exemple un dir c la source un espace + la destination
with inet1
avec Inet par ex: .execute 'DIR' & C:/____/____/essais
end with
cs_Jack
Messages postés14006Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 28 juin 2002 à 18:40
Ta précision est correcte, mais à condition que le UserName et le Password ne comportent pas d'espaces !!
jujuwiwi
Messages postés30Date d'inscriptionlundi 11 mars 2002StatutMembreDernière intervention24 août 2007 28 juin 2002 à 16:29
Oui j'ai fait un copier collé de Private Sub Inet1_StateChanged mais c'était à mon avis nécessaire concernant cette fonction.
Mais le code que j'ai mis est une constatation du code existant, et de mon point de vue cela facilite l'utilisation d'inet en regroupant plusieurs choses.
Mais je suis d'accord qu'il y a plusieurs sources qui traite du même sujet mais elles sont quand même souvent differentes, et cela participe à la richesse du site, enfin je pense.
^_^
cs_Lolux
Messages postés159Date d'inscriptionmardi 18 décembre 2001StatutMembreDernière intervention15 septembre 2005 28 juin 2002 à 15:34
ni plus ni moins que la copie conforme d'une source de ce site... avec même un copié collé des commentaires.
C'est vrai que c'est interressant, mais bon... ça entretient un petit bordel qui s'installe sur ce site. Tout le monde veux mettre des sources pour montrer de quoi il est capable ou pour se faire plaisir, mais grâce à cela on a une trentaine de convertisseurs d'euros et tout un tas de créateurs de boites de dialogue, j'en passe et des meilleurs...
Enfin... C'est pas grave ! c'est le week end !
Merci Qd même ! A plouche !
jujuwiwi
Messages postés30Date d'inscriptionlundi 11 mars 2002StatutMembreDernière intervention24 août 2007 28 juin 2002 à 10:50
'pour savoir ou en est le transfert, double cliquer sur inet et coller ce code
'ne pas oublier de mettre un label....
Private Sub Inet1_StateChanged(ByVal State As Integer)
'Informations sur le transfert
Select Case State
Case 1
Label1.Caption = "Recherche l'adresse IP de l'ordinateur hôte."
Case 2
Label1.Caption = "L'adresse IP de l'ordinateur hôte spécifié."
Case 3
Label1.Caption = "En cours de connexion avec l'ordinateur hôte."
Case 4
Label1.Caption = "La connexion avec l'ordinateur hôte est réussie."
Case 5
Label1.Caption = "Envoie une demande à l'ordinateur hôte."
Case 6
Label1.Caption = "La demande a été envoyé avec succès."
Case 7
Label1.Caption = "Reçoit une réponse en provenance de l'ordinateur hôte."
Case 8
Label1.Caption = "reçoit avec succès une réponse en provenance de l'ordinateur hôte."
Case 9
Label1.Caption = "En cours de déconnexion avec l'ordinateur hôte."
Case 10
Label1.Caption = "La déconnexion avec l'ordinateur hôte est réussie."
End Select
If State = 11 Then
mes = MsgBox("Echec de la transmition", vbCritical, "Echec...")
Label1.Caption = ""
End If
If State = 12 Then
mes = MsgBox("Transfert effectué", vbInformation, "Transfert...")
19 déc. 2003 à 16:51
la méthode ouvrir un second inet et demander la taille du fichier sur le ftp que l'on est entrain d'envoyer
on récupère ainsi la taille déja émise ...
19 janv. 2003 à 22:30
24 sept. 2002 à 16:52
2 juil. 2002 à 09:09
Aller hop, une bonne note ;-))
@+
Mercury
1 juil. 2002 à 20:57
Label1.Caption = "Envoie une demande à l'ordinateur hôte."
Mais pour l'instant je ne sais pas comment utiliser les informations renvoyées par Inet, mais je vais regarder car dela me semble intéressant.
@+ bonne prog...
1 juil. 2002 à 09:29
Par contre, sais-tu comment faire un état de la progression du transfert en cours (barre de progression ou autre) ???
30 juin 2002 à 19:50
30 juin 2002 à 02:29
par exemple un dir c la source un espace + la destination
with inet1
avec Inet par ex: .execute 'DIR' & C:/____/____/essais
end with
28 juin 2002 à 18:40
28 juin 2002 à 16:29
Mais le code que j'ai mis est une constatation du code existant, et de mon point de vue cela facilite l'utilisation d'inet en regroupant plusieurs choses.
Mais je suis d'accord qu'il y a plusieurs sources qui traite du même sujet mais elles sont quand même souvent differentes, et cela participe à la richesse du site, enfin je pense.
^_^
28 juin 2002 à 15:34
C'est vrai que c'est interressant, mais bon... ça entretient un petit bordel qui s'installe sur ce site. Tout le monde veux mettre des sources pour montrer de quoi il est capable ou pour se faire plaisir, mais grâce à cela on a une trentaine de convertisseurs d'euros et tout un tas de créateurs de boites de dialogue, j'en passe et des meilleurs...
Enfin... C'est pas grave ! c'est le week end !
Merci Qd même ! A plouche !
28 juin 2002 à 10:50
'ne pas oublier de mettre un label....
Private Sub Inet1_StateChanged(ByVal State As Integer)
'Informations sur le transfert
Select Case State
Case 1
Label1.Caption = "Recherche l'adresse IP de l'ordinateur hôte."
Case 2
Label1.Caption = "L'adresse IP de l'ordinateur hôte spécifié."
Case 3
Label1.Caption = "En cours de connexion avec l'ordinateur hôte."
Case 4
Label1.Caption = "La connexion avec l'ordinateur hôte est réussie."
Case 5
Label1.Caption = "Envoie une demande à l'ordinateur hôte."
Case 6
Label1.Caption = "La demande a été envoyé avec succès."
Case 7
Label1.Caption = "Reçoit une réponse en provenance de l'ordinateur hôte."
Case 8
Label1.Caption = "reçoit avec succès une réponse en provenance de l'ordinateur hôte."
Case 9
Label1.Caption = "En cours de déconnexion avec l'ordinateur hôte."
Case 10
Label1.Caption = "La déconnexion avec l'ordinateur hôte est réussie."
End Select
If State = 11 Then
mes = MsgBox("Echec de la transmition", vbCritical, "Echec...")
Label1.Caption = ""
End If
If State = 12 Then
mes = MsgBox("Transfert effectué", vbInformation, "Transfert...")