StreamをByte配列に変換する必要があるんですが、私にはこれぐらいしか思いつきませんでした。他にもっと効果的な方法はありますでしょうか？
Public Shared Function ConvertStreamToByteArray(ByVal Stream As Stream) As Byte()
Stream.Position = 0 <-追加しました。これってなくてはいけないみたいです。
Dim sr As New StreamReader(Stream)
Dim Content As String = sr.ReadToEnd()
Dim bytes() As Byte = System.Text.Encoding.Default.GetBytes(Content)
Return bytes
End Function
コメント書き込み