Téléchargement avec Visual Basic .Net
cs_julien__
Messages postés
53
Date d'inscription
vendredi 2 janvier 2004
Statut
Membre
Dernière intervention
1 décembre 2008
-
10 sept. 2004 à 03:53
C3B12 Messages postés 1 Date d'inscription vendredi 31 janvier 2003 Statut Membre Dernière intervention 15 septembre 2004 - 15 sept. 2004 à 00:02
C3B12 Messages postés 1 Date d'inscription vendredi 31 janvier 2003 Statut Membre Dernière intervention 15 septembre 2004 - 15 sept. 2004 à 00:02
A voir également:
- Téléchargement avec Visual Basic .Net
- Visual basic 2005 - Conseils pratiques -Visual Basic / VB.NET
- .Net reflector - Conseils pratiques -C# / .NET
- If visual basic - Conseils pratiques -Visual Basic / VB.NET
- Visual basic sleep ✓ - Forum Visual Basic
- Servant téléchargement direct ✓ - Forum PHP
1 réponse
C3B12
Messages postés
1
Date d'inscription
vendredi 31 janvier 2003
Statut
Membre
Dernière intervention
15 septembre 2004
15 sept. 2004 à 00:02
15 sept. 2004 à 00:02
Voici un exemple de code:
Dim hwrRequête As HttpWebRequest
Dim hwrRéponse As HttpWebResponse
Dim hwrFlux As Stream
Dim fsrFlux As FileStream
Dim octTampon(999) As Byte
Dim intLecture As Integer
fsrFlux = New FileStream(m_strFichierCible, FileMode.Create)
hwrRequête = CType(WebRequest.Create(m_strURL), HttpWebRequest)
hwrRéponse = CType(hwrRequête.GetResponse, HttpWebResponse)
hwrFlux = hwrRequête.GetResponse.GetResponseStream
'lit le flux téléchargé Ko par Ko
Do
intLecture = hwrFlux.Read(octTampon, 0, 1000)
'Ecrit les octets lus dans le buffer
fsrFlux.Write(octTampon, 0, intLecture)
Loop Until intLecture = 0
If Not hwrFlux Is Nothing Then hwrFlux.Close()
If Not fsrFlux Is Nothing Then fsrFlux.Close()
Dim hwrRequête As HttpWebRequest
Dim hwrRéponse As HttpWebResponse
Dim hwrFlux As Stream
Dim fsrFlux As FileStream
Dim octTampon(999) As Byte
Dim intLecture As Integer
fsrFlux = New FileStream(m_strFichierCible, FileMode.Create)
hwrRequête = CType(WebRequest.Create(m_strURL), HttpWebRequest)
hwrRéponse = CType(hwrRequête.GetResponse, HttpWebResponse)
hwrFlux = hwrRequête.GetResponse.GetResponseStream
'lit le flux téléchargé Ko par Ko
Do
intLecture = hwrFlux.Read(octTampon, 0, 1000)
'Ecrit les octets lus dans le buffer
fsrFlux.Write(octTampon, 0, intLecture)
Loop Until intLecture = 0
If Not hwrFlux Is Nothing Then hwrFlux.Close()
If Not fsrFlux Is Nothing Then fsrFlux.Close()
