Imports System.IO
Imports System.IO.Compression
 
Public Class frmBinaryReaderTester
 
   Dim file As String = Path.GetFullPath("..\..\Blabla.txt")
 
   Private Sub AnyMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) _
         Handles ReloadToolStripMenuItem.Click, SaveToolStripMenuItem.Click, _
         TestToolStripMenuItem.Click
      Dim uBound = 999999
      Dim sw = Stopwatch.StartNew
      Dim msg = "geschrieben"
      Select Case True
         Case sender Is ReloadToolStripMenuItem
            msg = "gelesen"
            Using strm = New FileStream(file, FileMode.Open), rd = New _
              BinaryReader(strm)
               DataItem.ResetCreation()
               Dim dti As DataItem = Nothing
               Try 'wir wissen ja nicht, wie lang der Film werden wird
                  For n = 0 To Integer.MaxValue
                     Dim dtiCompare = DataItem.CreateDataItem
                     dti = New DataItem
                     For i = 0 To dti.Singles.Length - 1
                        dti.Singles(i) = rd.ReadSingle
                        If dti.Singles(i) <> dtiCompare.Singles(i) Then _
                          Throw New Exception("Transmission-Errror detected")
                     Next
                     For i = 0 To dti.Bools.Length - 1
                        dti.Bools(i) = rd.ReadBoolean
                        If dti.Bools(i) <> dtiCompare.Bools(i) Then Throw _
                          New Exception("Transmission-Errror detected")
                     Next
                  Next
               Catch ex As EndOfStreamException
                  With New DataItem
                     If Not (dti.Singles.SequenceEqual(.Singles) AndAlso _
                       dti.Bools.SequenceEqual(.Bools)) Then Throw New _
                       Exception("Transmission-Errror detected")
                  End With
               End Try
            End Using
         Case sender Is SaveToolStripMenuItem
            Using strm = New FileStream(file, FileMode.Create), wr = New _
              BinaryWriter(strm)
               DataItem.ResetCreation()
               For n = 0 To uBound
                  Dim dti = DataItem.CreateDataItem
                  For Each sng In dti.Singles
                     wr.Write(sng)
                  Next
                  For Each bl In dti.Bools
                     wr.Write(bl)
                  Next
               Next
            End Using
         Case sender Is TestToolStripMenuItem
      End Select
      Console.WriteLine(String.Concat(sw.ElapsedMilliseconds, " ms ", msg))
   End Sub
 
   Public Class DataItem
      Private Shared Rnd As New Random(999)
      Public Shared Sub ResetCreation()
         Rnd = New Random(999)
      End Sub
      Public Shared Function CreateDataItem() As DataItem
         Dim retVal = New DataItem
         For i = 0 To 7
            retVal.Singles(i) = Rnd.Next / 100.0F
         Next
         For i = 0 To 9
            retVal.Bools(i) = CBool(Rnd.Next And 1)
         Next
         Return retVal
      End Function
      Public Singles(7) As Single, Bools(9) As Boolean
   End Class
 
End Class

(Rechtschreibfehler urheberrechtlich geschützt)

Beitrag wurde zuletzt am 27.02.14 um 23:22:28 editiert.