1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
Using netStream As Stream = request.GetRequestStream() _
fileStream As Stream = File.OpenRead(fileName)
' Copie du fichier vers le flux réseau
Dim buffer(4096) As Byte
Dim nRead As Integer = fileStream.Read(buffer, 0, 4096)
While nRead > 0
netStream.Write(buffer, 0, nRead)
nRead = fileStream.Read(buffer, 0, 4096)
End While
End str
Using resp As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
' Traitement de la réponse
...
End Using |
Partager