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

返信ありがとうございます。

現状はこんな感じで.slkを作っておいてそれを.zipにしています。

  Dim outStream As New java.util.zip.ZipOutputStream(New java.io.FileOutputStream(directry & filename))
　Dim Path As string="ファイル.slk"

  Private Sub putFileToZip(ByVal outStream As java.util.zip.ZipOutputStream, ByVal Path As String)

    Dim size As Integer = CInt(FileLen(Path))
    Dim inStream As New java.io.BufferedInputStream(New java.io.FileInputStream(Path))
    Dim crc As New java.util.zip.CRC32
    Dim buf(size - 1) As SByte
    If inStream.read(buf, 0, size) <> -1 Then
        crc.update(buf, 0, size)
        outStream.write(buf, 0, size)
    End If
    Dim entry As New java.util.zip.ZipEntry(System.IO.Path.GetFileName(Path))
    entry.setMethod(java.util.zip.ZipEntry.DEFLATED)
    entry.setSize(size)
    entry.setCrc(crc.getValue())
    outStream.putNextEntry(entry)

    inStream.close()
    outStream.closeEntry()
    outStream.flush()
  End Sub

=====================================
　　MemoryStreamを使って
   Dim memStream As New System.IO.MemoryStream(System.Text.Encoding.UTF8.GetBytes("文字列"))
　　の後、putFileToZipの中身をどう変更すればいいのかさっぱりで…自分が情けない

GZipStremでは（解凍したら文字化けしてましたが）以下の書き方で出来ました。
ZipOutputStreamだとByteとSByteの違いをどう書けば解決するかがまだ分かっておりません。

	Dim buf(1024) As Byte	' 1Kbytesずつ処理する
	' 出力ストリーム
	Dim outStream As New System.IO.FileStream(outFile, System.IO.FileMode.Create)

	' 圧縮ストリーム
	Dim compStream As New System.IO.Compression.GZipStream(outStream, System.IO.Compression.CompressionMode.Compress)

	Using memStream
		Using outStream
			Using compStream
				Do
					num = memStream.Read(buf, 0, buf.Length)
					If num <= 0 Then Exit Do
					compStream.Write(buf, 0, num)
				Loop
			End Using
		End Using
	End Using