Discussion :

[valleyman]

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 :

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

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

[Delbeke]

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 :

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

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 :

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

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 :

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

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 :

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

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 :

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

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 :

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

FTUP.Close

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