taille du buffer

Version imprimable

25/11/2010, 11h06
DeveloppeurWeb

taille du buffer

Bonjour
Je veux mettre un fichier dans un buffer pour savoir sa taille (buffer.Length)
ça marche trés bien , mais apparemment , quand j'ai des fichiers de grandes tailles ça se bloque

Code:

Dim buffer As Byte() = New Byte(2047) {}

J'ai pensé à augmenter la taille de 2047 à qq chose de plus grand
Est ce quil y une méthode pour savoir la taille à mettre pour ne pas tomber dans des cas ou la taille du bueffer est petite?
Merci
25/11/2010, 11h15
NokyDaOne

Pourquoi tiens-tu à faire cela ? Sache qu'un FileStream est déjà une array de byte en mémoire. Faire ce que tu veux faire ne servirait qu'à diminuer les performances de ton programme.
25/11/2010, 11h30
Bluedeep

Citation:

Envoyé par DeveloppeurWeb

Bonjour
Je veux mettre un fichier dans un buffer pour savoir sa taille (buffer.Length)

Comme le dit NokyDaOne, on ne voit pas bien la finalité ici. En effet, si tu veux manipuler un fichier par lecture en mémoire, tu as la classe FileStream qui fait cela très bien.
Donc quel est le besoin fonctionnel ici qui ne permet pas d'utiliser cette classe ?

Si c'est juste pour connaitre la taille du fichier, aucun besoin de l'ouvrir, il suffit d'utilser la classe FileInfo qui expose une propriété Length.

Bref, merci de préciser le besoin.

J'accède à mon fichier depuis une URL, donc j'ai fais ce code là pour connaitre la taille du fichier et en plus de l'attacher à un mail

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 Dim strFilepath As String
        strFilepath = vURL
        Dim vUri As New Uri(strFilepath)
        Dim myRequest As HttpWebRequest
        myRequest = WebRequest.Create(vUri)
        myRequest.KeepAlive = False
        Dim req As WebRequest
        req = WebRequest.Create(vUri)
        Dim myResponse As WebResponse
        myResponse = req.GetResponse
        Dim fStream As Stream
        fStream = myResponse.GetResponseStream
        Dim memStream As New MemoryStream
        Dim buffer As Byte() = New Byte(2047) {}
        Dim bytesRead As Integer
        bytesRead = 0
        Do
            bytesRead = fStream.Read(buffer, 0, buffer.Length)
            memStream.Write(buffer, 0, bytesRead)
        Loop While (bytesRead <> 0)
        fStream.Close()
        fStream.Dispose()
        buffer = memStream.ToArray

25/11/2010, 16h03
NokyDaOne

Ha ok tu verux copier des streams. Sachant que l'un est un stream reseau, n'espère pas connaitre sa taille (meme si ya moyen ya des serveurs ou des clients qui disent n'importe quoi, donc on ne peut pas s'y fier)

par contre quand read te renvoit zero tu peux raisonablement t'arreter
(ou alors regarde si t'as pas un end of file ou une exception levee)

je me demande si tu ne ferais pas mieux d'utiliser 4095 à la place de 2047 (mais c'est plus une croyance qu'un savoir)