Discussion :

[HULK]

Bonjour, j'utilise un bout de code pour transferer un fichier sur un server FTP que j'ai trouvé sur ce site à cette adresse :

http://vb.developpez.com/faq/?page=Reseau#envoiFTP

voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim HwndConnect AsLong
Dim HwndOpen AsLong
HwndOpen = InternetOpen("SiteWeb", 0, vbNullString, vbNullString, 0)
HwndConnect = InternetConnect(HwndOpen, "ftpperso.free.fr", 21, "mon login", _
"mon mot de passe", 1, 0, 0)
FtpSetCurrentDirectory(HwndConnect, "images")
FtpPutFile(HwndConnect, "C:\Documents and Settings\msergent\Mes documents\Mes images\barre.jpg", "barre.jpg", &H0, 0)
InternetCloseHandle(HwndConnect)
InternetCloseHandle(HwndOpen)

je n'ai aucune erreur mais quand je vais voir dans mon dossier images sur mon server ftp je n'ai pas le fichier barre.jpg, pourquoi ??

[abelman]

Re

Change tous tes As long en As Integer.

Long en VB6 = Integer en VB.NET

long en VB.NET c'est un Entier 64 bits et les fonctions Win32 pour la plupart ne connaissent pas le 64 bits

[HULK]

ca fonctionne toujours pas, je n'ai pas mon fichier barre.jpg dans mon dossier images sur mon espace free

[gerald2545]

peut-être aura tu plus d'infos sur ton problème si tu étudies les communications entre ton PC et le serveur ftp avec un outil du type ethereal.
Si ton problème n'est pas résolu avant lundi, je peux t'envoyer une classe permettant de faire les manips ftp courantes...et qui fonctionne chez moi

[HULK]

bah en fait je viens de m'apercevoir que j'ai oublié une info sur la ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
HwndOpen = InternetOpen("SiteWeb", 0, vbNullString, vbNullString, 0)

j'avais pas mis mon site ! enfin je suppose que je dois mettre l'adresse de mon site alors j'ai mis :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
HwndOpen = InternetOpen(<a href="http://manuel.sergent.free.fr" target="_blank">http://manuel.sergent.free.fr</a>, 0, vbNullString, vbNullString, 0)

mais sur cette ligne j'ai l'erreur suivante :

Un appel à la fonction PInvoke 'TEST!TEST.Form1::InternetOpen' a déséquilibré la pile. Cela peut se produire, car la signature PInvoke managée ne correspond pas à la signature cible non managée. Vérifiez que la convention d'appel et les paramètres de la signature PInvoke correspondent à la signature non managée cible.

Alors là ! Si quelqu'un à une explication ou sais ce que ca veut dire, il est le bienvenu ! Merci

[HULK]

ah bah c'est bon j'ai tout remis en integer et ca marche ! merci !

euhh par contre elle est ou maintenant la balise résolu ??

[abelman]

ah bah c'est bon j'ai tout remis en integer et ca marche ! merci !

euhh par contre elle est ou maintenant la balise résolu ??

Sur ton message initial, dans le menu Outils de la discussion

[toniolol]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
HwndOpen = InternetOpen("http://manuel.sergent.free.fr", 0, vbNullString, vbNullString, 0)

Salut,
tout ça m'interesse fortement car la classe ftp de microsoft que j'utilise n'est pas assez stable...
Par contre j'ai remplacé le "http://manuel.sergent.free.fr" par "www.google.fr" et ça fonctionne.
Apparement il faut juste une adresse web valide pour tester la connection, quelqu'un peut-il confirmer cette hypothèse ?
Comment transformer ça pour utiliser cette API pour des transferts FTP sur PPC via wifi sans connection internet ?
Merci d'avance.