Discussion :

[mastronic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[meziantou]

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

Il y a les classes BinaryReader et BinaryWriter.

[Pacane]

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...)

[meziantou]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

[mastronic]

Grand Merci meziantou pour la piste.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

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
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

[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

[KooKiz]

Il y a beaucoup plus simple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mastronic]

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

L'écriture est plus simple lol


Merci KooKiz

[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 vbnet :

Sélectionner tout - Visualiser dans une fenêtre à part

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?))

[meziantou]

MU fait bien une redirection selon le type de compte (free ou premium). Donc tu télécharges la page de redirection.

[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)

[meziantou]

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