🚀 go-pugleaf

穐谷（あきや）と申します。

Masaru Kumakawa さんの<34CEF939.E314D879@ny.airnet.ne.jp>から
>　ピクチャボックスなどに表示した画像を、配列（バイト型）に
>  保存したいのですが、何かいい方法はあるのでしょうか。
>
>　細かく説明すると以下の様な事がしたいのですが。
>　１．ピクチャボックスに画像を表示する。
>　２．表示した画像をバイト型の配列に保存する。
>　３．保存したバイト型の配列からピクチャボックスに画像を
>      表示する。
>　といった感じです。

PictureBox.ImageプロパティでPictureオブジェクトを取得して、
そのHandleプロパティに対して、APIのGetDIBitsなどを使えば、
中身が取得できると思います。描画するときは、APIの
StretchDIBitかSetDIBitsToDeviceなどを使います。


------------------------------------------------------------
		差出人:	穐谷 三郎
		E-Mail:	akiya@cmpk.or.jp

こんにちは、熊川です。

> PictureBox.ImageプロパティでPictureオブジェクトを取得して、
> そのHandleプロパティに対して、APIのGetDIBitsなどを使えば、
> 中身が取得できると思います。描画するときは、APIの
> StretchDIBitかSetDIBitsToDeviceなどを使います。

GetDIBitsとSetDIBitsを使用して、成功しました。
ご意見ありがとうございました。

>　ピクチャボックスなどに表示した画像を、配列（バイト型）に保存
>　したいのですが、何かいい方法はあるのでしょうか。
配列に一度保存されないと駄目ならこの方法は使えませんが、
目的が３．であればＳａｖｅＰｉｃｔｕｒｅとＬｏａｄＰｉｃｔｕｒｅを使って
出来るのではないでしょうか？
ただし、保存される形式はＢＭＰになりますが。

>　１．ピクチャボックスに画像を表示する。
１．ピクチャボックスへ画像を表示。

>　２．表示した画像をバイト型の配列に保存する。
バイト型配列ではありませんが、
２．ＳａｖｅＰｉｃｔｕｒｅ Ｐｉｃｔｕｒｅ１．Ｉｍａｇｅ，”ファイル名”

>　３．保存したバイト型の配列からピクチャボックスに画像を表示する。
３．Ｓｅｔ Ｐｉｃｔｕｒｅ１＝ＬｏａｄＰｉｃｔｕｒｅ（”ファイル名”）

-------------------------
koji
koji@up.micropac.co.jp
------------------------

熊川です。こんにちは。

> 配列に一度保存されないと駄目ならこの方法は使えませんが、

実は、WinSockを使って、リモートコンピュータに渡したいんですよ。
で、WinSockのデータ転送はバイト型の配列になっているので、配列
にしたいんですよ。ファイルにしてしまうと、ＦＴＰを使うことに
なるので、相手側にＦＴＰサーバーが必要という欠点が出来てしま
います。

ファイルにするで思い出したのですが、ＢＭＰファイルにしてから、
バイナリーモードで開いて、それを配列という処理をテストしてた
時におきた現象で、ＶＢ５でＢＭＰファイルの配列化を作成してい
たら、途中のバイトが抜ける！？（バイナリエディタでダンプを見
ながら、ステップして調べた）現象が起きていました。その時は１
９０バイト目位で、１バイト読み飛ばしていました。どなたかこの
現象について何か知ってますか？対策法とか。知ってたら教えてく
ださい。

それと、それっておまえのバグだろと思ってしまった方がいるとい
けないので補足ですが、まったく同じコードはＶＢ４で動きます。
読み込ませたＢＭＰファイルも同じなので、コーディングミスはな
いと思っています。

$B$3$s$K$A$O!"(JEDIPS$B$G$9!#(J

> GetDIBits$B$H(JSetDIBits$B$r;HMQ$7$F!"@.8y$7$^$7$?!#(J

$B!!;d$K!"(JGetDIBits$B$H(JSetDIBits$B$N;HMQJ}K!$r65$($F$$$?$@$1$^$;$s$+!)(J
$B!!;d$b2hA|$NG[Ns2=$r;n$_$F$$$k$N$G$9$,!"$J$+$J$+$&$^$/$$$-$^$;$s!#(J

$B!!$I$&$+!"$h$m$7$/$*$M$,$$$7$^$9!#(J

こんにちは、熊川です。

> 　私に、GetDIBitsとSetDIBitsの使用方法を教えていただけませんか？
> 　私も画像の配列化を試みているのですが、なかなかうまくいきません。

　参考になるかは解りませんが、コードを乗せておきます。
  適当にちぎってはってください。

-- 定義部 --
Declare Function GetDIBits Lib "GDI32.DLL" _
  (ByVal aHDC As Long, ByVal hBitmap As Long, _
  ByVal nStartScan As Long, ByVal nNumScans As Long, _
  lpBits As RGB, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long
Declare Function SetDIBits Lib "GDI32.DLL" _
  (ByVal hdc As Long, ByVal hBitmap As Long, _
  ByVal nStartScan As Long, ByVal nNumScans As Long, _
  lpBits As RGB, lpBI As BITMAPINFO, ByVal wUsage As Long) As Long

Type BITMAPINFOHEADER
    biSize As Long
    biWidth As Long
    biHeight As Long
    biPlanes As Integer
    biBitCount As Integer
    biCompression As Long
    biSizeImage As Long
    biXPelsPerMeter As Long
    biYPelsPerMeter As Long
    biClrUsed As Long
    biClrImportant As Long
End Type

Type RGBQUAD
    rgbBlue As Byte
    rgbGreen As Byte
    rgbRed As Byte
    rgbReserved As Byte
End Type

Type BITMAPINFO
    bmiHeader As BITMAPINFOHEADER
    bmiColors As RGBQUAD
End Type

Type RGB
    Red         As Byte
    Green       As Byte
    Blue        As Byte
End Type

Global glHDC            As Long
Global glBitmap         As Long
Global glStartScan      As Long
Global glNumScans       As Long
Global glBits()         As RGB
Global uBI              As BITMAPINFO
Global glUsage          As Long

Public Const DIB_RGB_COLORS = 0
Public Const DIB_PAL_COLORS = 1
Public Const BI_RGB = 0&

== 実行部 --
    Dim lRtn            As Long
    Dim i               As Long

    ' ScaleModeの変更
    Form1.ScaleMode = 3
    Picture1.ScaleMode = 3
    ' 情報の定義
    uBI.bmiHeader.biSize = 40
    uBI.bmiHeader.biWidth = Picture1.ScaleWidth
    uBI.bmiHeader.biHeight = Picture1.ScaleHeight
    uBI.bmiHeader.biPlanes = 1
    uBI.bmiHeader.biBitCount = 24
    uBI.bmiHeader.biCompression = BI_RGB
    uBI.bmiHeader.biSizeImage = _
        ((Picture1.Width + 3) \ 4) * 4 * Picture1.Height * 3
    uBI.bmiHeader.biXPelsPerMeter = 0
    uBI.bmiHeader.biYPelsPerMeter = 0
    uBI.bmiHeader.biClrUsed = 0
    uBI.bmiHeader.biClrImportant = 0
    ' 配列の再定義
    ReDim glBits(uBI.bmiHeader.biSizeImage)
    ' 画像情報取り出し
    lRtn = GetDIBits(Picture1.hdc, Picture1.Image, 0, _
        Picture1.ScaleHeight, glBits(0), uBI, DIB_RGB_COLORS)
    ' ScaleModeを元に戻す
    Picture1.ScaleMode = 1
    Form1.ScaleMode = 1

    ' 画像情報を戻す
    Picture2.Width = Picture1.Width
    Picture2.Height = Picture1.Height
    lRtn = SetDIBits(Picture2.hdc, Picture2.Image, 0, _
        Picture2.Height, glBits(0), uBI, DIB_RGB_COLORS)
    Picture2.Refresh