UNE CLASSE POUR GÉREZ LES REQUETTES POST SUR SERVEUR HTTP [.NET 2.0]

Commentaire de bizmoute le 28/10/2008 15:34:53

Parfois il arrive qu'on ne désire pas enregistrer un fichier sur le disque avant de l'envoyer, alors voici une évolution suggérée :
   ''' <summary>
   ''' Transmet un fichier dans le formulaire de la requette POST.
   ''' </summary>
   ''' <param name="Name">Clef.</param>
   ''' <param name="FileName">Chemin vers le fichier à transmettre
   ''' ou nom du fichier.</param>
   ''' <param name="ContentType">type mime du fichier à transmettre.</param>
   Private Sub AddFileBoundaryHeader( _
            ByVal Name As String, _
            ByVal FileName As String, _
            Optional ByVal ContentType As String = "application/octet-stream")
      Dim BBuff As String
      BBuff = "--" & _boundary & vbCrLf
      BBuff &= "Content-Disposition: form-data; name=""" & Name & """; filename=""" & FileName & """" & vbCrLf
      BBuff &= "Content-Type: " & ContentType & vbCrLf
      BBuff &= vbCrLf

      Dim Buff As Byte()
      Buff = Text.Encoding.UTF8.GetBytes(BBuff)
      _Request.Write(Buff, 0, Buff.Length)
   End Sub

   ''' <summary>
   ''' Transmet un fichier dans le formulaire de la requette POST.
   ''' </summary>
   ''' <param name="Name">Clef.</param>
   ''' <param name="FilePath">Chemin vers le fichier à transmettre.</param>
   ''' <param name="ContentType">type mime du fichier à transmettre.</param>
   Public Sub AddFile(ByVal Name As String, _
                      ByVal FilePath As String, _
                      Optional ByVal ContentType As String = "application/octet-stream")
      Dim BBuff As String
      Dim Buff As Byte()
      AddFileBoundaryHeader(Name, FilePath, ContentType)

      Buff = System.IO.File.ReadAllBytes(FilePath)
      _Request.Write(Buff, 0, Buff.Length)
      BBuff = vbCrLf
      Buff = Text.Encoding.UTF8.GetBytes(BBuff)
      _Request.Write(Buff, 0, Buff.Length)
   End Sub

   ''' <summary>
   ''' Transmet un fichier dans le formulaire de la requette POST.
   ''' </summary>
   ''' <param name="Name">Clef.</param>
   ''' <param name="FileName">Nom du fichier à transmettre.</param>
   ''' <param name="MemStream">Stream à envoyer</param>
   ''' <param name="ContentType">type mime du fichier à transmettre.</param>
   Public Sub AddFile(ByVal Name As String, _
                      ByVal FileName As String, _
                      ByVal MemStream As System.IO.MemoryStream, _
                      Optional ByVal ContentType As String = "application/octet-stream")
      Dim BBuff As String
      AddFileBoundaryHeader(Name, FileName, ContentType)

      Dim Buff(CInt(MemStream.Length)) As Byte
      MemStream.Read(Buff, 0, CInt(MemStream.Length))

      _Request.Write(Buff, 0, Buff.Length)
      BBuff = vbCrLf
      Buff = Text.Encoding.UTF8.GetBytes(BBuff)
      _Request.Write(Buff, 0, Buff.Length)
   End Sub

Commentaire de bizmoute le 29/10/2008 15:07:16

Correction suggérée : Utiliser System.Text.Encoding.Default plutôt que UTF8 pour éviter les problèmes avec les accents.