gesamten ordner in ein file stecken???

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von developsoftware.

    also

    ich will eein file machen mit der endung itp. ok das hab ich hingekriegt.aber jetz benutze ich das hier zum speichern von denn daten:

    ImageDatas:

    VB.NET-Quellcode

    1. <Serializable()> _
    2. Public Class ImageDatas
    5. #Region "Declarations"
    7. Private iBackground As Bitmap
    8. Private iLockBackground As Bitmap
    9. Private iResources() As Byte
    11. #End Region
    13. #Region "Properties"
    16. Public Property Background() As Bitmap
    17. Get
    18. Return iBackground
    19. End Get
    20. Set(ByVal value As Bitmap)
    21. iBackground = value
    22. End Set
    23. End Property
    25. Public Property LockBackground() As Bitmap
    26. Get
    27. Return iLockBackground
    28. End Get
    29. Set(ByVal value As Bitmap)
    30. iLockBackground = value
    31. End Set
    32. End Property
    34. Public Property Resources() As Byte()
    35. Get
    36. Return iResources
    37. End Get
    38. Set(ByVal value As Byte())
    39. iResources = value
    40. End Set
    41. End Property
    45. #End Region


    so normalerweise geht das dann so :

    VB.NET-Quellcode

    1. id = New ImageDatas
    3. id.Background = PictureBoxBackground.Image
    4. id.LockBackground = PictureBoxLockbackground.Image
    7. Project.Serialize(ProjectName & ".itp", id)


    das serializieren das ist das hier:

    VB.NET-Quellcode

    1. Sub Serialize(ByVal strPath As String, ByVal myProps As ImageDatas)
    3. ' create a filestream to allow saving the file after it has
    4. ' been serialized in this method
    5. Dim fs As New FileStream(strPath, FileMode.OpenOrCreate)
    7. ' create a new instance of the binary formatter
    8. Dim formatter As New BinaryFormatter
    10. Try
    12. ' save the serialized data to the file path specified
    13. formatter.Serialize(fs, myProps)
    14. fs.Close()
    16. Catch ex As SerializationException
    18. MessageBox.Show(ex.StackTrace, ex.Message, MessageBoxButtons.OK, MessageBoxIcon.Error)
    20. End Try
    22. End Sub
    25. Public Function Deserialize(ByVal strPath As String) As ImageDatas
    27. ' create filestream allowing the user to open an existing file
    28. Dim fs As New FileStream(strPath, FileMode.Open)
    30. ' create a new instance of the Personal Data class
    31. Dim myProps As ImageDatas
    32. myProps = New ImageDatas
    34. Try
    36. ' create a binary formatter
    37. Dim formatter As New BinaryFormatter
    39. ' deserialize the data stored in the specified file and
    40. ' use that data to populate the new instance of the personal data class.
    41. myProps = formatter.Deserialize(fs)
    42. fs.Close()
    44. ' return the deserialized data back to the calling application
    45. Return myProps
    47. Catch ex As SerializationException
    49. MessageBox.Show(ex.StackTrace, ex.Message, MessageBoxButtons.OK, MessageBoxIcon.Error)
    50. Return myProps
    52. End Try
    54. End Function


    so und jetz will ich die resourcen aus einem ordner in mein file speichern.

    nur wie geht das????

    moment, geht es jetzt um Resourcen im Programm oder einen gewöhnlichen Dateiordner? Beim gewöhnlichen Dateiordner halt am besten in die Datei erst nen Index schreiben, und per ReadAllBytes/WriteAllBytes dann die einzelnden Dateien in die eine Datei packen. Auslesen dann anhand des Indexes

    Ist sehr einfach, wie bereits gesagt, entweder Binarywriter und irgendwelche Trennzeichen verwenden, oder vllt. noch besser Base64 und Streamwriter/reader. Lässt sich auch noch mit einem GZIP-Stream kombinieren, dann wär das ganze sogar noch komprimiert.