Stream [Résolu]

Signaler
Messages postés
137
Date d'inscription
mardi 7 septembre 2004
Statut
Membre
Dernière intervention
10 mai 2012
-
Messages postés
137
Date d'inscription
mardi 7 septembre 2004
Statut
Membre
Dernière intervention
10 mai 2012
-
Bonjour

je voudrais pouvoir supprimer les 500 premier octet d'un fichier puis utiliser le stream pour en faire une image. J'ai ecrit :

Dim BR
As
New BinaryReader(
New StreamReader(chemin).BaseStream)
BR.BaseStream.Seek(500, SeekOrigin.Begin)

Dim BW
As
New BinaryWriter(File.Open(
"c:\oooo", FileMode.Create))

Dim data()
As
Byte

data = BR.ReadBytes(BR.BaseStream.Length)
BW.Write(data, 0, data.Length)

Me.PictureBox1.Image = Image.FromStream(BW.BaseStream)

ca marche mais comment utiliser le stream de BR sans passer par un fichier image.fromstream(br.basestream) ne marche pas ....

merci

reno

1 réponse

Messages postés
137
Date d'inscription
mardi 7 septembre 2004
Statut
Membre
Dernière intervention
10 mai 2012

Trouvé

Dim BR
As
New BinaryReader(
New StreamReader(chemin).BaseStream)BR.BaseStream.Seek(500, SeekOrigin.Begin)

Dim BW2
As
New BinaryWriter(
New MemoryStream())BW2.Write(BR.ReadBytes(BR.BaseStream.Length))

Me.PictureBox1.Image = Image.FromStream(BW2.BaseStream)

reno