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