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