C# と VB.NET の質問掲示板

ZipArchiveでもできるとは気づきませんでした。

自分でも書いてみたのですが
以下のところまではできたのですが、
最後にファイルをどのようにして出力して良いか分かりません
どのようにすれば良いですか？

        Using stream As MemoryStream = New MemoryStream

            Using writer As New BinaryWriter(stream)

                writer.Write(123)       

            End Using

            Using aaa As New ZipArchive(stream)

            End Using

        End Using

> バイナリファイルを出力する際に一部だけzipバイナリを混ぜたいのなら、MemoryStreamをつくるまでもなく、FileStreamを元にZipArchiveクラスを作ってやれば十分ですが。

これはどのようにすれば良いですか？
以下のようにしてみましたがうまくいきませんでした

        Using stream As Stream = New FileStream("D:\aaa.zip", FileMode.Create)

            Using archive As New ZipArchive(stream, ZipArchiveMode.Update)

                Using writer As New BinaryWriter(stream)


                    writer.Write(1)


                End Using

            End Using

        End Using

例えば、以下のようにすると、バイナリデータを格納したzipファイルを生成することには成功しました。


        Using stream As Stream = New FileStream("D:\aaa.zip", FileMode.Create)

            Using archive As New ZipArchive(stream, ZipArchiveMode.Create)

                Dim readmeEntry As ZipArchiveEntry = archive.CreateEntry("sss.txt")

                Using writer As New BinaryWriter(readmeEntry.Open)

                    writer.Write(1)

                End Using

            End Using

        End Using

一方で、バイナリデータの一部にこのzipデータを埋め込みたい場合にはどうしたら良いですか？

以下のようにしてもエラーが出てうまくいきませんでした。


        Using stream As Stream = New FileStream("D:\aaa.zip", FileMode.Create)


            Using writer As New BinaryWriter(stream)

                writer.Write(1)

            End Using


            Using archive As New ZipArchive(stream, ZipArchiveMode.Create)

                Dim readmeEntry As ZipArchiveEntry = archive.CreateEntry("sss.txt")

                Using writer As New BinaryWriter(readmeEntry.Open)

                    writer.Write(1)

                End Using

            End Using




            Using writer As New BinaryWriter(stream)

                writer.Write(1)

            End Using

        End Using

ん？　最終的には
> バイナリファイルを出力する時に、バイナリの一部をZipやLZH、RARなどの
> 圧縮形式に変換して保存したいと考えています。
ですよね？
ZipArchiveは途中まで書き込んだFileStreamに対してもちゃんとその途中から書き込んでくれるはずですよ。

Dim fs As New FileStream(...)
fs.Write(data, 0, data.Length)
Dim bw As New BinaryWRiter(fs)
bw.Write(...)
bw.Flush()
Using zip As New ZipArchive(fs, ZipArchiveMode.Create, True)
    ' CreateEntryしてOpenしてBinaryWriter作って
    writer.Write(...)
End Using
fs.Dispsoe()

まあバイト配列が欲しいのなら、FileStreamの代わりにMemoryStreamを使って
一通り出力が終わった後で.ToArray()すればいいですが。

ありがとうございます。

ファイルの圧縮の方はうまくいきました。

> 「ファイルが必要なのだけど、ファイルを介した方法がサポートされていないように思える」
> ではなかったのでしょうか。


ただ、この方法だと、バイナリデータの圧縮されたデータだけでなく、
Zipのヘッダー情報など不必要な情報も含んでしまいます。

また、バイナリは一つしかないのに
zipファイル内に格納されたファイル名も指定する必要があるため
更に不必要な情報が増えてしまいます。

こちらが必要としているのは
バイナリの圧縮データそのものだけで、
ヘッダーなどがないZipのデータ部分だけを取得できればと思いました。

つまり、バイナリデータのサイズをできるだけ下げたいので不要な情報を削りたいという意図です。

ただ、ヘッダー有りでもHDDを介するよりかは良いのでこれはこれで良いのですが。




あと、ファイルの読み込みにかんしてですが、
以下のようにしても、
Do While reader.BaseStream.Position < reader.BaseStream.Length
でエラーが出てしまいます。

どうすれば、ファイルの最後に到達したかを判定することができますか？

        Using stream As Stream = New FileStream("D:\aaa3.zip", FileMode.Open)

            Using a As New ZipArchive(stream, ZipArchiveMode.Read)

                For Each e1 As ZipArchiveEntry In a.Entries

                    Using reader As New BinaryReader(e1.Open)

                        Do While reader.BaseStream.Position < reader.BaseStream.Length

                            Dim ggg2 = reader.ReadInt32

                        Loop

                    End Using

                Next e1

            End Using

        End Using

そういうことでしたか
DeflateStreamはかなり使えそうですね
ありがとうございます。

あと、読み込みの方はどのようにすれば良いでしょうか？
                        Do While reader.BaseStream.Position < reader.BaseStream.Length

はどのように修正すれば良いですか？

        Using stream As Stream = New FileStream("D:\aaa3.zip", FileMode.Open)

            Using a As New ZipArchive(stream, ZipArchiveMode.Read)

                For Each e1 As ZipArchiveEntry In a.Entries

                    Using reader As New BinaryReader(e1.Open)

                        Do While reader.BaseStream.Position < reader.BaseStream.Length

                            Dim ggg2 = reader.ReadInt32

                        Loop

                    End Using

                Next e1

            End Using

        End Using