Donwload de fichier via http://

Version imprimable

14/04/2010, 12h35
mastronic

Donwload de fichier via http://
Bonjour,

j'écris une application me permettant de mettre à jours des fichiers (exécutable etc.. ) de façon automatique, et transparent pour l'utilisateur.

je passe par des Webservice pour detecté les fichiers qui doivent être mis à jours ( la n'est pas le problème) .. celui ci me retourne, en autre, le fichier x.exe à mettre à jours.

Ensuite, je désire charger via l' url: http://site/repertoire/x.exe le fichier x.exe

j'utilisé le code suivant
Code:

1 2 3 4 5 Dim client As WebClient = New WebClient Try Dim data As Stream = client.OpenRead(url) Dim reader As StreamReader = New StreamReader(data)
La fonction StreamReader n'est pas approprié pour charger des fichiers binaires. ( il encode en UFT8 .. Le fichier n'a pas d'encodage particulier --> fichier de donné )

Je n'arrive pas à voir sur internet la solution.
Quelle fonction utilisé ?

Merci pour votre aide
Thierry
14/04/2010, 13h46
meziantou

Citation:

La fonction StreamReader n'est pas approprié pour charger des fichiers binaires

Il y a les classes BinaryReader et BinaryWriter.
14/04/2010, 13h51
Pacane

Citation:

Il y a les classes BinaryReader et BinaryWriter.

Cela permet de lire et écrire n'importe quel flux de données?
(J'ai un problème semblable, je veux télécharger un .rar de façon silencieuse...)
14/04/2010, 13h54
meziantou
Code:

1 2 3 Dim data As Stream = client.OpenRead(url) Dim reader As BinaryReader = New BinaryReader(data)
Citation:

Cela permet de lire et écrire n'importe quel flux de données?

Oui
Si tu à déjà un objet de type Stream tu peux utiliser le binaryReader et le binaryWriter.

Grand Merci meziantou pour la piste.

Code:

1
2
3
 
Dim data As Stream = client.OpenRead(url)
Dim reader As BinaryReader = New BinaryReader(data)

par contre , la méthode BinaryReader.ReadToEnd() n'existe pas.
La méthode serais de lire par partie: reader.ReadBytes(1024) ' 1024 octets ici

Voici ma fonction (fonctionnel, mais certainement que l'on peut la simplifier.)
si ca peut aider Pacane ou d'autre personne.

Code:

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
34
35
36
37
38
39
40
41
42
43
44
45
 
    ''' <summary>
    '''   chargement de fichier en mode binaire via une URL sous le protocol http
    ''' </summary>
    ''' <param name="url">Url spécifié en tand que string pour le chargement des données </param>
    ''' <param name="file">Chemain et fichier local de destination</param> 
    Function DownloadHttpModeBinary(ByVal url As String, ByVal file As String) As Boolean
        DownloadHttpModeBinary = False
 
 
        Dim client As WebClient = New WebClient
        Try
            ' Ouverture de la source pour Lecture de Flux de donnée
            Dim data As Stream = client.OpenRead(url)
            Dim reader As BinaryReader = New BinaryReader(data, New ASCIIEncoding())
 
            ' Ouverture du Fichier pour Ecriture de flux de donnée
            Dim oWriteBinStream As Stream = IO.File.Open(file, FileMode.Create)
            Dim oWriteBinOutput As BinaryWriter = New BinaryWriter(oWriteBinStream)
 
            Dim DownloadData() As Byte
            ' Lecture du flux de donnée
 
            Do
                DownloadData = reader.ReadBytes(1024)           ' charge au maximum 1024 octets
                ' si DownloadData.Length = 0 donc plus de donnée  (fin du flux)
                If DownloadData.Length > 0 Then
                    oWriteBinOutput.Write(DownloadData)
                End If
            Loop While DownloadData.Length > 0
 
            ' Fermeture du Fichier de sortie
            oWriteBinOutput.Close()
            oWriteBinStream.Close()
 
            ' Fermeture de la source 
            reader.Close()
            client.Dispose()
 
            DownloadHttpModeBinary = True
        Catch ex As Exception
            DownloadHttpModeBinary = False
        End Try
 
    End Function

Pacane, as tu msn ? tu lit ton archive en rar pour ensuite la décompresser ?
Tu utilise une dll pour la décompression ?

Nous fessons le même dev :)

Thierry

Thierry

14/04/2010, 15h07
meziantou

Pour faire ce que tu fais, il n'y a pas besoin de BinaryReader ni Writer. Tu peux utiliser directement le stream obtenu avec File.Open

Il y a beaucoup plus simple :
Code:

1 2 Dim client As WebClient = New WebClient client.DownloadFile(url, file)

14/04/2010, 16h32
mastronic

oh oui, ça marche :p j'ai honte :p

L'écriture est plus simple lol :D

Merci KooKiz
14/04/2010, 19h40
Pacane
En fait, j'ai un compte de megaupload et j'ai uploadé des .rar de mes backups, et je veux télécharger mes multiples .rar... J'ai utilisé :
Code:

1 2 Dim client As WebClient = New WebClient client.DownloadFile(url, file)
Et j'obtiens une page .html comme fichier... (pourtant quand je met le url dans mon navigateur on me propose de télécharger le fichier .rar directement (ou bien est-ce une redirection?))
14/04/2010, 19h42
meziantou

MU fait bien une redirection selon le type de compte (free ou premium). Donc tu télécharges la page de redirection.
15/04/2010, 02h28
Pacane

Et j'imagine que l'URL de téléchargement doit être dans cette page de redirection téléchargée..? (désolé, je ne peux pas vérifier en ce moment, c'est pour ça que je demande, si jamais quelqu'un sait)
15/04/2010, 11h37
meziantou

Regarde par là
http://www.codeproject.com/KB/IP/htt..._response.aspx