BinaryWriter.Write Method Writes an unsigned byte to the current stream and advances the stream position by one byte.
Imports System
Imports System.IO
Public Class BinaryRW
Shared Sub Main()
Dim i As Integer = 0
Dim writeArray(10) As Byte
Dim binWriter As New BinaryWriter(New MemoryStream())
Dim binReader As New BinaryReader(binWriter.BaseStream)
Try
For i = 0 To writeArray.Length - 1
binWriter.Write(i)
Next i
binReader.BaseStream.Position = 0
For i = 0 To writeArray.Length - 1
If binReader.ReadByte() <> writeArray(i) Then
Console.WriteLine("Error writing the data.")
Return
End If
Next i
Catch ex As EndOfStreamException
Console.WriteLine("Error writing the data: {0}", ex.GetType().Name)
End Try
End Sub
End Class
Related examples in the same category