ENVOI DE FICHIER PAR UNE REQUÊTE POST EN MULTIPART/FORM-DATA ("SIMLULATION" D'UN FORMULAIRE WEB CONTENANT UN FICHIER À ENVOYER)

' La requête se fait avec un HttpWebRequest, et on créé les données par la class que j'ai créé qui s'appel MultipartFormDataBodyCreator.
'
' Propriété et procédures publiques de MultipartFormDataBodyCreator:
'
' Public Sub Add(Name as String, _                         ' Le nom du champs à ajouter
'                Value as String, _                        ' La valeur 
'                Optional IsFileField as Bollean = False") ' Si il s'agit d'un fichier, mettre IsFileField = true
'                                                          ' et Value = le chemin du fichier
'
' Public Property Boundary as String  ' Le Boundary à utiliser (sert à délimiter les champs dans la requête) 
'
' Public Function Create() as Byte()  ' Retourne les données à envoyer sous forme d'un tableau de byte
'
'
' Pour envoyer la requête présenté juste au dessus, il faut donc faire comme ceci:


Private Sub SendFile()

    Try

        Dim bodyCreator As New MultipartFormDataBodyCreater ' La classe que j'ai créé et que je présente plus loins
        Dim File as String = "C:\Image.jpg" ' Le fichier à envoyer

        ' Création des données à envoyer
        ' --------------------
        bodyCreator.Fields.Add("uploadtype", "on")
        bodyCreator.Fields.Add("fileupload", File, True)   ' C'est le fichier
        bodyCreator.Fields.Add("MAX_FILE_SIZE", "3145728")
        bodyCreator.Fields.Add("refer", "http://site.com/")
        bodyCreator.Fields.Add("brand", "")
        bodyCreator.Fields.Add("optsize", "320x320")
    
        Dim body() as Byte = bodyCreator.Create ' Les données à envoyer sous forme de tableau de Byte
        Dim boundary as String = bodyCreater.Boundary ' Le boudary délimitant les champs. Utile pour créer la requête
 
        ' Création de la requête
        ' ------------------------
        Dim Request as HttpWebRequest = HttpWebRequest.Create("http://site.com")
        Request.Method = "POST"
        Request.UserAgent = "Mozilla/5.0 (Windows; U; Windows NT 5.1; fr; rv:1.8.0.7) Gecko/20060909 Firefox/1.5.0.7"
        Request.KeepAlive = True
        Request.ServicePoint.Expect100Continue = False   ' Important si le serveur ne gère pas les Expect
        Request.Referer = "http://site.com/"
        Request.ContentType = "multipart/form-data; boundary=" & boundary ' Ajouter le boundary après le Content-Type
        Request.ContentLength = body.Length
 
        ' Ecriture des données
        ' ------------------------------------
        Dim writer As Stream = Request.GetRequestStream
        writer.Write(body, 0, body.Length)
        writer.Close()

        ' Réponse
        ' -----------------
        Dim response = Request.GetResponse()
        Dim reader As New IO.StreamReader(response.GetResponseStream())
        Dim ResponseBody = reader.ReadToEnd
        reader.Close()
        Response.Close()

        Console.WriteLine(ResponseBody) ' Le réponse du serveur

    Catch ex As Exception
        Console.WriteLine(ex.ToString)
    End Try
End Sub

Public Class MultipartFormDataBodyCreator

    ' Le Boundary délimitant chaque élément (Field) dans le corps du message
    ' On y met une valeure constante, mais normalement il faudrait s'assurer que cette
    ' chaine de caractère n'existe pas ailleur dans les données à envoyer (si c'est le cas, l'envois va planter)
    Public Property Boundary() As String
        Get
            Return _Boundary
        End Get
        Set(ByVal value As String)
            _Boundary = value
        End Set
    End Property
    Private _Boundary As String = "-----------------768299458641184676334"

    ' Les éléments à inclure dans le corps du message, tous défini par une paire Nom/Valeur
    ' Une propriété IsFileField as Bollean définie si c'est le champs du fichier à envoyer 
    ' (dans quel cas Value contiendra le chemin du fichier à envoyer)
    Public Property Fields() As FieldList
        Get
            Return _Fields
        End Get
        Set(ByVal value As FieldList)
            _Fields = value
        End Set
    End Property
    Private _Fields As New FieldList

    ' Création d'un tableau de bytes contenant toutes les données à envoyer durant le request
    Public Function Create() As Byte()

        Dim encoding As New System.Text.ASCIIEncoding() ' Pour convertir le text en bytes
        Dim body(-1) As Byte ' Le contenu final

        ' Parcourir tous les champs pour créer le body
        For Each Field As Field In _Fields
            Dim sb As New System.Text.StringBuilder ' Pour créer les champs texte
            Dim FieldAsBytes() As Byte ' Le champs à ajouter au body en bytes

            ' Ajouter ce qui est commun aux champs FILE et les autres, c'est à dire une 
            ' ligne avec le bundary puis la disposition et le nom du champ sur une autre ligne
            sb.AppendLine("--" & Boundary)  ' Le bundary précédé de "--"
            sb.Append("Content-Disposition: form-data; name=""" & Field.Name & """") ' La disposition et le nom du champs (sans finir la ligne!)

            ' La suite dépend si c'est un fichier ou non
            If Field.IsFileField Then ' C'est un fichier

                ' Ajouter le nom du fichier sur la meme ligne que le nom du champ
                ' Sur les lignes suivantes, le type de contenu et 1 ligne vide (puis viendra le fichier)
                sb.AppendLine("; filename=""" & System.IO.Path.GetFileName(Field.Value) & """")
                sb.AppendLine("Content-Type: image/jpeg" & vbCrLf)
                FieldAsBytes = encoding.GetBytes(sb.ToString) ' Le 1er bout du champ codé en bytes

                ' On ajoute le contenu du fichier fichier au tableau FieldAsBytes
                Dim FileBytes() As Byte = IO.File.ReadAllBytes(Field.Value) ' Le contenu du fichier
                Array.Resize(FieldAsBytes, FieldAsBytes.Length + FileBytes.Length) ' Agrandir FieldAsBytes
                Array.Copy(FileBytes, 0, FieldAsBytes, sb.Length, FileBytes.Length) ' Ajouter le contenu du fichier

                ' Ajouter un vbcrlf pour finir le champ
                Array.Resize(FieldAsBytes, FieldAsBytes.Length + 2)
                Array.Copy(encoding.GetBytes(vbCrLf), 0, FieldAsBytes, FieldAsBytes.Length - 2, 2)
            Else

                ' C'est un élément du formulaire autre qu'un fichier
                sb.AppendLine("") ' Finir la ligne précédente
                sb.AppendLine(vbCrLf & Field.Value) ' Une ligne vide et la valeur
                FieldAsBytes = encoding.GetBytes(sb.ToString) ' Créer un tableau de Byte

            End If

            ' Ajouter la nouvelle entrée dans le body
            Dim CurrentBodySize As Integer = body.Length
            Array.Resize(body, body.Length + FieldAsBytes.Length)   ' Agrandir le body
            Array.Copy(FieldAsBytes, 0, body, body.Length - FieldAsBytes.Length, FieldAsBytes.Length) ' Copier FieldAsBytes à la fin du body
        Next
        ' A la fin on ajoute le bundary et "--"
        Dim EndLine() As Byte = encoding.GetBytes("--" & Boundary & "--" & vbCrLf)
        Array.Resize(body, body.Length + EndLine.Length)
        Array.Copy(EndLine, 0, body, body.Length - EndLine.Length, EndLine.Length)

        Return body
    End Function

End Class
Public Class FieldList
    Inherits Generic.List(Of Field)

    ' Cette class éritée d'une collection générique List(Of Field) est créé juste pour ajouter les 2 procédures suivantes:
    Public Overloads Sub Add(ByVal Name As String, ByVal Value As String, Optional ByVal IsFileField As Boolean = False)
        MyBase.Add(New Field(Name, Value, IsFileField))
    End Sub
    Public Overloads Sub Insert(ByVal Index As Integer, ByVal Name As String, ByVal Value As String, Optional ByVal IsFileField As Boolean = False)
        MyBase.Insert(Index, New Field(Name, Value, IsFileField))
    End Sub
End Class
Public Class Field
    ' Représente un champs de formulaire
    Public IsFileField As Boolean = False
    Public Name As String = ""
    Public Value As String = ""
    Public Sub New()

    End Sub
    Public Sub New(ByVal Name As String, ByVal Value As String, Optional ByVal IsFileField As Boolean = False)
        Me.Name = Name
        Me.Value = Value
        Me.IsFileField = IsFileField
    End Sub
End Class