Discussion :

[fredtheman]

Bonjour,

Ça fait deux heures que j'essaie différents trucs trouvés sur Google, mais toujours impossible d'envoyer un simple petit fichier sur les pages perso de Free

Voici le code, avec la ligne problématique...

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
 
Try
  Const MYFILE="myfile.txt"
 
  Dim URL As String = String.Format("/{0}/{1}", "monrep", MYFILE)
  Dim FtpFullFileName As String = "ftp://ftpperso.free.fr" & URL
 
  Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create(FtpFullFileName), System.Net.FtpWebRequest)
  clsRequest.Credentials = New System.Net.NetworkCredential("monlogin","monmdp")
  clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
  clsRequest.Proxy = Nothing
  clsRequest.UseBinary = True
  clsRequest.KeepAlive = False
  clsRequest.UsePassive = True
 
  Dim bFile() As Byte = System.IO.File.ReadAllBytes("C:\" & MYFILE)
 
  'ERREUR ICI
  Dim clsStream As Stream = clsRequest.GetRequestStream()
 
  clsStream.Write(bFile, 0, bFile.Length)
  clsStream.Close()
  clsStream.Dispose()
Catch ex As Exception
  MessageBox.Show(ex.ToString)
End Try

... et voici le message d'erreur:

System.Net.WebException: The underlying connection was closed: The server committed a protocol violation.
at System.Net.FtpWebRequest.SyncRequestCallback(Object obj)
at System.Net.FtpWebRequest.RequestCallback(Object obj)
at System.Net.CommandStream.InvokeRequestCallback(Object obj)
at System.Net.CommandStream.Abort(Exception e)
at System.Net.FtpWebRequest.FinishRequestStage(RequestStage stage)
at System.Net.FtpWebRequest.GetRequestStream()
at WindowsApplication1.Form1.Form1_Object sender, EventArgs e) in C:\Project1\WindowsApplication1\Form1.vb:line 330

Si quelqu'un utilise une appli VB.Net pour envoyer un fichier sur ftpperso.free.fr, je suis intéressé par toute piste.

Merci.

[Pol63]

as tu essayé webclient.uploadfile ?

[fredtheman]

as tu essayé webclient.uploadfile ?

Merci pour ton aide. J'ai finalement trouvé : je passais de mauvais paramètres sur cette ligne:

Code :

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

1
2
 
clsRequest.Credentials = New System.Net.NetworkCredential(MyDict("login"), MyDict("password"))

Si ça peut aider quelqu'un, voici du code qui marche pour uploader un fichier sur les serveurs de pages perso de Free:

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
 
Try
    Const MYFILE = "myfile.txt"
    Const File as String = "C:\Temp\" & MYFILE
    Dim filename As String = "ftp://ftpperso.free.fr/" & MYFILE
 
    Dim client As New WebClient
    client.Credentials = New NetworkCredential("monlogin", "monmdp")
    client.Proxy = Nothing
    client.UploadFile(filename, File)
 
    MsgBox("File uploaded!")
 
Catch ex As Exception
    MsgBox(ex.ToString)
End Try