imageからbyteの変換方法

[System.IO.MemoryStream] を利用し、ファイルストリーム同様の処理で、バイト配列化が可能です。 ただ、「Image」になってしまうと、下のファイルの形式の情報がなくなってしまうので、MemoryStreamに書き込む形式を指定する必要があります。 Sub Main() 　　Const DEF_FILE As String = "C:\エロ画像.JPG" 　　'ファイルストリームからバイト配列を取得するテスト 　　Dim l_byt1() As Byte = Test_BinaryReader(DEF_FILE) 　　'一度イメージ化し、それをメモリストリームからバイト配列を取得するテスト 　　Dim l_byt2() As Byte = Test_Image(DEF_FILE) End Sub Function Test_BinaryReader(ByVal p_strファイル As String) As Byte() 　　Dim l_bytRet() As Byte 　　'ファイルストリームを取得する 　　Dim l_fsm As New IO.FileStream(p_strファイル, IO.FileMode.Open, IO.FileAccess.Read) 　　'------------------------------------------- 　　'以下より本題 　　'------------------------------------------- 　　'バイト配列変換 　　l_bytRet = StreamToBytes(l_fsm) 　　'ファイルストリームを閉じる 　　l_fsm.Close() 　　'バイト配列の返却 　　Return l_bytRet End Function Function Test_Image(ByVal p_strファイル As String) As Byte() 　　Dim l_bytRet() As Byte 　　'イメージを取得する 　　Dim l_img As Image = CType(New Bitmap(p_strファイル), Image) 　　'------------------------------------------- 　　'以下より本題 　　'------------------------------------------- 　　'メモリストリームのインスタンスを生成 　　Dim l_memストリーム As New IO.MemoryStream() 　　Dim l_形式 As Drawing.Imaging.ImageFormat 　　'メモリストリームに書き込む形式を判定 　　Select Case IO.Path.GetExtension(p_strファイル).ToUpper 　　　　Case "BMP" 　　　　　　l_形式 = Imaging.ImageFormat.Bmp 　　　　Case "JPG" 　　　　　　l_形式 = Imaging.ImageFormat.Jpeg 　　　　Case Else 　　　　　　MsgBox("わからん") 　　　　　　Return l_bytRet 　　End Select 　　'メモリストリームに書き込む 　　l_img.Save(l_memストリーム, l_形式) 　　'バイト配列変換 　　l_bytRet = StreamToBytes(l_memストリーム) 　　Return l_bytRet End Function 'ストリームからバイト配列への変換 Function StreamToBytes(ByRef p_sm As IO.Stream) As Byte() 　　'読込み位置を先頭にする 　　p_sm.Position = 0 　　'一気に読み込む 　　Dim l_br As New IO.BinaryReader(p_sm) 　　Dim l_bytRet() As Byte = l_br.ReadBytes(p_sm.Length) 　　l_br.Close() 　　'バイト配列の返却 　　Return l_bytRet End Function