Filestream / BinaryFormatter / ByteArray aufsplitten

  • VB.NET

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ErfinderDesRades.

    Filestream / BinaryFormatter / ByteArray aufsplitten

    Hallo!

    Ich hab hier ein paar Funktionen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Shared Sub FileSerialize(ByVal File As String, ByVal Obj As Object, Optional ByVal Compress As Boolean = True, Optional ByVal EncryptKey As String = Nothing)
    2. Using s As New FileStream(File, FileMode.Create, FileAccess.ReadWrite)
    3. StreamSerialize(s, Obj, Compress, EncryptKey)
    4. s.Close()
    5. End Using
    6. End Sub
    8. Private Shared Sub StreamSerialize(ByRef s As Stream, ByVal Obj As Object, Optional ByVal Compress As Boolean = True, Optional ByVal EncryptKey As String = Nothing)
    9. Dim b As New Formatters.Binary.BinaryFormatter
    10. If Compress = True Then
    11. 'we want to compress this object to a byte array
    12. Obj = New CompressedObject(Compression.CompressByte(ByteArrSerialize(Obj)))
    13. End If
    14. If EncryptKey <> "" Then
    15. Obj = New EncryptedObject(Encryption.EncryptByte(ByteArrSerialize(Obj), EncryptKey))
    16. End If
    17. b.Serialize(s, Obj)
    18. End Sub
    20. Public Shared Function CompressByte(ByVal byteSource() As Byte) As Byte()
    21. ' Create a GZipStream object and memory stream object to store compressed stream
    22. Dim objMemStream As New MemoryStream()
    23. Dim objGZipStream As New GZipStream(objMemStream, CompressionMode.Compress, True)
    24. objGZipStream.Write(byteSource, 0, byteSource.Length)
    25. objGZipStream.Dispose()
    26. objMemStream.Position = 0
    27. ' Write compressed memory stream into byte array
    28. Dim buffer(CInt(objMemStream.Length)) As Byte
    29. objMemStream.Read(buffer, 0, buffer.Length)
    30. objMemStream.Dispose()
    31. Return buffer
    32. End Function
    34. Private Shared Function ByteArrSerialize(ByVal Obj As Object) As Byte()
    35. Using MS As New MemoryStream
    36. Dim BF As New Formatters.Binary.BinaryFormatter
    37. BF.Serialize(MS, Obj)
    38. ByteArrSerialize = MS.ToArray
    39. MS.Close()
    40. End Using
    41. End Function
    43. <Serializable()>
    44. Private Class CompressedObject
    45. Public CompressedObject As Byte()
    46. Public Sub New(ByVal CompressedObject As Byte())
    47. Me.CompressedObject = CompressedObject
    48. End Sub
    49. End Class
    51. <Serializable()>
    52. Private Class EncryptedObject
    53. Public EncryptedObject As Byte()
    54. Public Sub New(ByVal EncryptedObject As Byte())
    55. Me.EncryptedObject = EncryptedObject
    56. End Sub
    57. End Class



    Diese serialisieren für mich ein DataTable welches dann in eine Datei gespeichert werden soll..mit Compression!

    Leider ist das DataTable so groß das ich eine System.OutOfMemoryException bekomme. (ca. 4GB)

    Wie kann ich den Stream oder das ByteArray aufsplitten das er mir mehrere Dateien erstellt?

    Ach ja, umstellen auf 64Bit hat nichts gebracht..naja, er hängt jetzt nicht bei 3,7GB sondern erst bei 4,5GB.
    System RAM: 16GB
    Auslagerungsdatei: 2GB

Facebook
Telefonspende