[VB.NET] Transfert sur server FTP

Version imprimable

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:

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 ??

21/04/2006, 16h23
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
21/04/2006, 16h49
HULK

ca fonctionne toujours pas, je n'ai pas mon fichier barre.jpg dans mon dossier images sur mon espace free
21/04/2006, 19h31
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
21/04/2006, 21h24
HULK
bah en fait je viens de m'apercevoir que j'ai oublié une info sur la ligne :
Code:

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:

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 :

Citation:

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
21/04/2006, 21h54
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 ?? :lol:
25/04/2006, 14h27
abelman

Citation:

Envoyé par 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 ?? :lol:

Sur ton message initial, dans le menu Outils de la discussion
25/04/2006, 16h04
toniolol
Citation:
Envoyé par HULK

Code:

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.