| |
▼みそじのおじさん さん：
続いて解析２です。
HPのソースですが。すみません見つけたもののぱっと見で使えそうだったので、
参考資料として載せました。API詳しそうでしたから。
とにかく、解析してみますね。もしかしたら違うところがあるかもしれませんが。
仕事柄からか画像データ解析が多いんです＾＾；
因みにこのソース見ている限り、24ビット形式(ビットマップ)にしかだめそうです。
確かJPEGとBITMAPのヘッダーサイズは異なっていたはずです。
'GetObjectのAPIは画面に貼り付けられたBITMAPのヘッダーサイズを指定してヘッダー情報構造体に値を取得しています。
Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" (ByVal hObject As Long, ByVal nCount As Long, lpObject As Any) As Long
'GetBitmapBitsのAPIは画面に貼り付けられたBitmapデータつまりバイナリデータを配列に入れてますね。因みにByValは値の送り側、付いて無いのは戻り値として定義されています。このように覚えると見やすくなるかもです。
Private Declare Function GetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
'SetBitmapBitsのAPIは逆にBitmapデータつまりバイナリデータの配列から該当のピクチャボックスに設定します。
Private Declare Function SetBitmapBits Lib "gdi32" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
Private Type BITMAP 'BITMAP構造体
bmType As Long 'タイプ
bmWidth As Long '横サイズ
bmHeight As Long '縦サイズ
bmWidthBytes As Long '横サイズのバイト単位
bmPlanes As Integer 'プレーン数
bmBitsPixel As Integer '1ピクセルあたりのバイト数（bmp形式なので１バイトです。当然なのですけどね。ビットマップは未圧縮なのですから）
bmBits As Long 'ポインタ
End Type
Dim Img() As Byte 'ピクセルデータ保存用
Private Sub UserForm_Click()
Dim bmp As BITMAP, x As Long, y As Long
'ビットマップのヘッダー情報取得
GetObject Image1.Picture.Handle, Len(bmp), bmp 'ビットマップ情報取得
'ここでビットマップのバイナリデータサイズ分のサイズを二次元配列で再定義
ReDim Img(bmp.bmWidthBytes - 1, bmp.bmHeight - 1) '配列サイズ変更
'ビットマップのサイズ分バイナリデータをImgの二次元配列にセット
GetBitmapBits Image1.Picture.Handle, bmp.bmWidthBytes * bmp.bmHeight, Img(0, 0) '画像取込
'ビットマップ縦サイズのループ
For y = 0 To bmp.bmHeight - 1
'ビットマップ横サイズのループ
For x = 0 To bmp.bmWidthBytes - 1
Img(x, y) = Not Img(x, y) '反転処理
Next
Next
'１バイトずつバイナリデータを反転した後にピクチャボックスにセット
SetBitmapBits Image1.Picture.Handle, bmp.bmWidthBytes * bmp.bmHeight, Img(0, 0) '画像書込
End Sub
|
|
VBWASURETA
- 08/3/12(水) 2:49 -
