Hi,
die einfachste und transparenteste Lösung ist aus meiner Sicht die Nutzung eines Zip-Archives.
… wie macht man das?
Erzeuge ein Zip-Archive und füge dort die Dateien / ByteStream o.ä ein.
Brauche ich da nicht einen Filestream und irgendwie eine Index-Datei, die mir verrät wo ich die entsprechende Datei finde, wenn ich nicht die gesamte Datei scannen möchte?
Du kannst über die Entries-Eigenschaft des Archives, die eine Liste des Inhaltes bereitstellt, das gewünschte Element (Datei / Bild o.ä.) finden.
Früher konnte man unter Delphi mal Records in einer Datei speichern.
Mit dem Zip-Archiv kannst Du dasselbe erreichen.
Dein Link verweist auf die Möglichkeit, unverwaltete Objekte in Strukturen zu kopieren. Dieser Weg unterstützt nach meiner Meinung nicht das Ziel, was Du skizziert hast.
ein schönes Beispiel wäre hilfreich
Hier mal eine kleine Demo einer Konsolenanwendung in VB.NET:
Imports IO = System.IO
Imports Comp = System.IO.Compression ' Referenz auf System.IO.Compression
Imports System.Text
Module Module1
Sub Main()
Try
Dim c As New Demo
c.Execute()
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
Console.WriteLine("weiter mit Taste")
Console.ReadKey()
End Sub
Friend Class Demo
Friend Sub Execute()
' Stream erzeugen
Dim zipStream As New IO.MemoryStream
' neues Zip-Archiv erzeugen
Dim archive As Comp.ZipArchive = CreateZipArchive(zipStream)
' Dateien dem Archiv hinzufügen
For i = 1 To 10
Dim str As String = $"Text {i}"
Dim bytes As Byte() = Encoding.Default.GetBytes(str)
AddBytesToArchive(archive, str, bytes)
Next
' Archiv schließen und neu zum Lesen öffnen
archive = CloseReopenArchive(archive, zipStream)
' Dateien im Archiv anzeigen
For Each name In GetItemNames(archive)
Console.WriteLine(name)
Next
' Archiv als Datei ablegen
SaveZipStream(zipStream, "c:\temp\x.zip")
End Sub
Private Function CreateZipArchive(stream As IO.Stream) As Comp.ZipArchive
Dim archive As New Comp.ZipArchive(stream, Comp.ZipArchiveMode.Create, True)
Return archive
End Function
Private Sub AddBytesToArchive(archiv As Comp.ZipArchive, name As String, b As Byte())
Dim entry As Comp.ZipArchiveEntry = archiv.CreateEntry(name)
'entry.
Using writer As IO.BinaryWriter = New IO.BinaryWriter(entry.Open())
writer.Write(b, 0, b.Length)
End Using
End Sub
Private Function CloseReopenArchive(archiv As Comp.ZipArchive, stream As IO.Stream) As Comp.ZipArchive
archiv.Dispose()
Return New Comp.ZipArchive(stream, Comp.ZipArchiveMode.Read, True)
End Function
Private Iterator Function GetItemNames(archive As Comp.ZipArchive) As IEnumerable(Of String)
For Each item As Comp.ZipArchiveEntry In archive.Entries
Yield item.Name
Next
End Function
Private Sub SaveZipStream(zipStream As IO.Stream, path As String)
zipStream.Position = 0
Using writer As IO.FileStream = New IO.FileStream(path, IO.FileMode.Create)
zipStream.CopyTo(writer)
End Using
End Sub
End Class
End Module
--
Viele Grüsse
Peter Fleischer (ehem. MVP)
Meine Homepage mit Tipps und Tricks
