PictureBoxのBitmapをByte型の配列に入れるには？

解決

やん 2007-10-26 00:37:05 No: 144020

VB2005+SQLServer2005で、Form に貼られている PictureBox の
画像(Bitmai)を、SQLServer の IMAGE 型に更新させる方法を
調べています。
Byte 型の配列から SQLServer に更新させる方法は
なんとなくわかったのですが、 PictureBox の画像を
Byte 型の配列に入れる方法が良くわかりません。
ご存知の方お願いします。

魔界の仮面弁士 2007-10-26 02:29:16 No: 144021

> Form に貼られている PictureBox の画像(Bitmai)を

Bitmai → Bitmap の事だと思いますが、それならば、こんな感じ。

Public Shared Function GetBinary(ByVal bmp As Bitmap) As Byte()
  Using stm As New System.IO.MemoryStream()
    bmp.Save(stm, Imaging.ImageFormat.Bmp)
    stm.Seek(0, IO.SeekOrigin.Begin)
    Return stm.ToArray()
  End Using
End Function

魔界の仮面弁士 2007-10-26 02:34:35 No: 144022

失礼しました。
DB に格納することを考えると、Bmp 形式だと冗長すぎますね。
Png の方が良いかな。

Using stm As New System.IO.MemoryStream()
bmp.Save(stm, Imaging.ImageFormat.Png)
Return stm.ToArray()
End Using

(Seek メソッドも不要だったので、取り除きました)

やん 2007-10-26 20:31:49 No: 144023

魔界の仮面弁士さん、早速ありがとうございます。

バッチリ出来ました。MemoryStream() の使い方も
ちょっとだけ理解出来ました。

ちなみに、Byte 配列から Bitmap 型にするには
こんな感じで良いのでしょうか。
これで一応動いていますが大きいサイズの画像だと
遅くなるかなと思うので、違う方法があると思うのですが・・。

Dim bData As Byte() ' DBに保存した画像データが入っている
PictureBox1.Image = SetBinary(bData)

Public Shared Function SetBinary(ByVal bData As Byte()) As Bitmap
    Dim iCnt As Integer
    Using stm As New System.IO.MemoryStream()
        For iCnt = 0 To bData.Length - 1
            stm.WriteByte(bData(iCnt))
        Next iCnt
        Return New Bitmap(stm, True)
    End Using
End Function

魔界の仮面弁士 2007-10-26 21:18:55 No: 144024

Using stm As New System.IO.MemoryStream(bData)
Return New Bitmap(stm, True)
End Using

やん 2007-10-27 00:14:39 No: 144025

魔界の仮面弁士さん、助かりました。
今後とも宜しくお願いします。