Mega Code Archive

 

Categories / VB.Net / File Directory

 

BinaryReader ReadBytes reads the specified number of bytes

Imports System Imports System.IO Public Class BinaryRW     Shared Sub Main()         Const upperBound As Integer = 1000         Dim dataArray(upperBound) As Byte         Dim randomGenerator As New Random         randomGenerator.NextBytes(dataArray)         Dim binWriter As New BinaryWriter(New MemoryStream())         binWriter.Write(dataArray)         Dim binReader As New BinaryReader(binWriter.BaseStream)         binReader.BaseStream.Position = 0         Dim verifyArray() As Byte = binReader.ReadBytes(dataArray.Length)         If verifyArray.Length <> dataArray.Length Then             Console.WriteLine("Error writing the data.")             Return         End If         For i As Integer = 0 To upperBound             If verifyArray(i) <> dataArray(i) Then                 Console.WriteLine("Error writing the data.")                 Return             End If         Next i     End Sub End Class