Discussion :

[souhail72]

Bonjour

lorsque je sérialise un fichier, ce dernier ajoute des caractéres bizarre, j'encode en UTF 8

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
 
Private Function WebservicePOSTOLS(ByVal WebURI As String, ByVal ZipFilePath As String) As String
    Dim request As WebRequest = WebRequest.Create(WebURI)
       request.Method = "POST"
    Dim myStreamReader As New System.IO.StreamReader(ZipFilePath)
    Dim byteArray As Byte() = Encoding.UTF8.GetBytes(myStreamReader.ReadToEnd())
    request.ContentType = "application/octet-stream"
    request.ContentLength = byteArray.Length
    Dim dataStream As Stream
    Try
      dataStream = request.GetRequestStream()
    Catch ex As Exception
      Return ("ExceptionError : " + ex.Message)
      Exit Function
    End Try
    dataStream.Write(byteArray, 0, byteArray.Length)
    dataStream.Close()
    Dim response As WebResponse
 
    Try
      response = request.GetResponse()
    Catch ex As Exception
      Return ("ExceptionError : " + ex.Message)
      Exit Function
    End Try
    dataStream = response.GetResponseStream()
    Dim reader As New StreamReader(dataStream)
    Dim responseFromServer As String = reader.ReadToEnd()
    Return responseFromServer
    reader.Close()
    dataStream.Close()
    response.Close()
  End Function

ave vous une idée merci ?

[souhail72]

Trouvé il fallait utiliser un filereader au lieu du streamreader. Merci @ vous