Discussion :

[dwlapp]

Bonjour,

J'ai créé un logiciel WinForm que j'ai connecté à une base de données en ligne sur un hébergeur.
Dans ce logiciel, j'ai créer un module, une bibliothèque de fichier.

J'aimerais depuis ce module envoyer des fichiers PDF, Word etc. sur mon hébergeur en ligne.

Puis ensuite de les ouvrir mais ça je devrais y arriver avec des liens sans soucis.

Le problème c'est comment envoyer un fichier sur mon hébergeur ?

J'ai créé un bouton OpenFileDialog ensuite j'arrive à récupérer le chemin du fichier mais je ne vois pas comment l'envoyer. J'ai réussi en asp mais en WinForm je ne trouve pas.

Une personne l'a déjà fait ?

[jopopmk]

Salut,

as-tu essayé la méthode UploadFile de la classe WebClient ?

[dwlapp]

Ok je vais essayer de me pencher la dessus et je te tiens au courant si j'ai réussi.

[dwlapp]

J'ai fait ceci pour le moment mais sans succès

Code :

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

1
2
3
4
  Dim lieu_fichier As String = "http://***/***/bibliotheque/fichier/"
            Dim fichier As String = OpenFileDialog1.FileName
            Dim myWebClient As New WebClient()
            Dim responseArray As Byte() = myWebClient.UploadFile(lieu_fichier, fichier)

Erreur :

Une exception non gérée du type 'System.Net.WebException' s'est produite dans System.dll

Informations supplémentaires : Le serveur distant a retourné une erreur : (405) Méthode non autorisée.

[dwlapp]

Sinon en ftp ?
Parce que la c'est évidement que j'ai pas d'autorisation sans identifiant et mot de passe..

Si une personne connait le moyen

[dwlapp]

Oui c'est une bonne idée !

Du coup j'ai fait en ftp :

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
            Dim envoie As Boolean = FtpUpload(New Uri("ftp://****"),
                     New NetworkCredential("utilisateur", "pass"),
                     New FileInfo(OpenFileDialog1.FileName))
 
    Public Shared Function FtpUpload(ByVal uri As Uri, ByVal credentials As NetworkCredential, ByVal fileInfo As FileInfo) As Boolean
        Dim request As FtpWebRequest = DirectCast(FtpWebRequest.Create(Path.Combine(uri.AbsoluteUri, fileInfo.Name)), FtpWebRequest)
        request.Method = WebRequestMethods.Ftp.UploadFile
        request.Credentials = credentials
        request.UseBinary = True
        request.KeepAlive = False
        request.UsePassive = True
        Dim buffer As Byte() = New Byte(2047) {}
        Using stream As Stream = request.GetRequestStream()
            Using fs As FileStream = File.OpenRead(fileInfo.FullName)
                Dim block As Integer
                While ((block = fs.Read(buffer, 0, buffer.Length)) > 0)
                    stream.Write(buffer, 0, block)
                End While
            End Using
        End Using
        Return (True)
    End Function

Merci

[jopopmk]

Tu peux associer un credential à ton WebClient pour l'authentification
En HTTP tu peux tenter de préciser la méthode d'envoi (POST) avec la variante UploadFile(string, string, string).
En FTP, si tu utilises cette fonction, il faudra préciser la méthode "STORE".

Ah, et pour le premier paramètre je me demande s'il ne faut pas passer l'URI de la ressource à créer, pas seulement le répertoire
(ex. "http://monserveur.fr/monfolder/newfile.ext" et pas juste "http://monserveur.fr/monfolder/"), à vérifier.

edit : pour ajouter un credential à ta requête, tu peux faire comac :

Code :

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

monWebClient.Credentials = new System.Net.NetworkCredential(user, pass);