StreamRésolu

Question

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

renocmoa · Accepted Answer

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

Stream

1 réponse

Votre réponse

Discussions similaires