ftp via winsock

Bonjour J'ai suivi quelque tutos sur le net pour faire du ftp via winsock et mon code se bloque sur cette partie :

a savoir que le bloc de code suivant se trouve dans FTP_dataArrival , que il y'a 2 winsocks FTP et FTPUP ( je ne sais pas a quoi ça sert mais c'était dans un des tutos ) et que la variable coderecu est la valeur que renvoi le ftp

Je ne mets pas le debut de l'évennement car il contient mot de passe et cie et de tout façon tous ce qui est au dessus fonctionne ...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

If coderecu = 227 Then Label3.Caption = "connecté au ftp" ''''''''''''''''''''''''''''''''''' ' Calcul du port de reception ' ''''''''''''''''''''''''''''''''''' Dim Temp As Variant, FtpDataRemotePort As Variant Temp = Split(txtrecu, ")") Temp = Split(Temp(0), "(") Temp = Split(Temp(1), ",") FtpDataRemotePort = CLng(Temp(4)) * 256 + CLng(Temp(5)) '''''''''''''''''''''''''''''' ' Fin du calcul ' ''''''''''''''''''''''''''''''   'on met le fichier dans une variable Dim Buffer As Variant Open "C:\heps.txt" For Binary Access Read Lock Read Write As #1 Buffer = Input(LOF(1), #1) Close #1   FTPUP.Connect "Knight-Server.Ath.Cx", FtpDataRemotePort   Label3.Caption = FtpDataRemotePort   FTP.SendData "STOR" & "fichier.exe"     If coderecu = 150 Then 'le serveur accepte la connection FTPUP.SendData Buffer & vbCrLf 'Voila, le serveur recoit le fichier   Label3.Caption = "Torrent Envoyé" End If

---

Il est difficile de deviner où ton code se bloque, mais je peux te donner des précisions sur FTP

En FTP on utilise deux connections, la premiere sur le PORT 21 sert à l'échange des messages de protocole, la deuxieme sert au transfert des Données , et pour cela , le port est géré soit par toi, soit par le serveur.
Apparement dans ton code, c'est le serveur qui a pris l'initiave de la détermination du port (Tu as du lui envoyer au préalable une commande PASV et le serveur te reponds par le n° du Port qu'il a choisi)
Tes lignes

Code:

---

1 2 3 4

Temp = Split(txtrecu, ")") Temp = Split(Temp(0), "(") Temp = Split(Temp(1), ",") FtpDataRemotePort = CLng(Temp(4)) * 256 + CLng(Temp(5))

---

te permettent d'avoir cette information

les lignes en dessous te permettent de lire le contenu du fichier que tu vas envoyer

Code:

---

1 2 3 4

Dim Buffer As Variant Open "C:\heps.txt" For Binary Access Read Lock Read Write As #1 Buffer = Input(LOF(1), #1) Close #1

---

elles auraient aussi bien pu se trouver bien avant meme que tu commence la liaison , mais pourquoi pas ici. pas de problème

Ensuite tu ouvres la seconde liaison, (le serveur s'attend à t'y voir arriver)

Code:

---

FTPUP.Connect "Knight-Server.Ath.Cx", FtpDataRemotePort

---

Maintenant , sur la premiere liaison , tu lui envoies une ligne de protocole, lui disant que tu vas lui envoyer les datas du fichier qu'il devra stocker sous le nom de "fichier.exe"

Code:

---

FTP.SendData "STOR" & "fichier.exe"

---

(je crois que tu as oublié un blanc apres le STOR)

Si le serveur a bien tout pigé il te renvoie une ligne de protocole commencant par 150, en cas de difficulé le numero sera différent (exemple, le serveur FTP n'a pas été configuré pour le UpLoad)

Mainenant tout est en place pour le transfert des données proprement dit

Code:

---

FTPUP.SendData Buffer & vbCrLf

---

Il te manque la fermeture du canal des données pour prévenir le serveur quand tu as tout envoyé

Code:

---

FTUP.Close

---

Voila , j'espere que ces explications te permettront de trouver ou est le problème