ab.com コミュニティ

元のビットマップがLoadImageやCreateCompatibleBitmapで作成しているからだと思います。
bmBitsは，CreateBitmapやCreateBitmapIndirectで作成し（そこでビットマップへのポインタを指定し）たときしか使えなかった気がします。
それ以外の方法でビットマップを作るとビットマップのメモリはシステムが管理するのでユーザにはこうして見せてくれないというのではないでしょうか。

なお，CreateCompatibleBitmapの引数にメモリデバイスコンテキストであるhCpyDCを渡すのは良くないです。
http://msdn.microsoft.com/library/ja/jpgdi/html/_win32_createcompatiblebitmap.asp
またメモリDCから互換ビットマップを作ればSelectObjectの必要がないということは，記述されていません。
またそこでhDCをReleaseDCによって返しても問題ないです。
メモリDCを作るための情報を得るためだけに使われており，
作ってしまえばメモリDCは元のDCがReleaseDCされても問題無いはずです。

動作確認等は行っていません！！！
APIを見ただけの印象でお答えします。（赤字の部分）

[quote]
hDC=GetDC(hMainWnd)
hCpyDC=CreateCompatibleDC(hDC)
hCpyBmp=CreateCompatibleBitmap(h[color=red]Cpy[/color]DC,200,200)
[color=red]//[/color]SelectObject(hCpyDC,hCpyBmp) [color=red]//hCpyDCで作成すると必要ない[/color]
hOrgDC=CreateCompatibleDC(hDC)
hOrgBmp=LoadImage(GetModuleHandle(0),XXX_BMP1,IMAGE_BITMAP,200,200,LR_DEFAULTCOLOR)
SelectObject(hOrgDC,hOrgBmp)
ReleaseDC(hMainWnd,hDC) [color=red]//※hDCを開放すると、hDCで作成したビットマップは使えない！[/color]
[/quote]

依存関係のあるオブジェクトは、生成した順番が新しい物から開放してください。
メモリーリークや不思議な動きをする原因になります。

' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

Dim hOrgDC			As HDC
Dim hOrgBmp			As HBITMAP

Dim hCpyDC			As HDC
Dim hCpyBmp			As HBITMAP

'GetObject関数で取得する情報を格納するための変数
Dim OrgBitmap		As BITMAP
Dim OrgBits			As BytePtr

Dim CpyBitmap		As BITMAP
Dim CpyBits			As BytePtr

Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
	Dim hDC		As HDC
	Dim i As Long,j As Long

	hDC=GetDC(hMainWnd)
	hCpyDC=CreateCompatibleDC(hDC)
	hCpyBmp=CreateCompatibleBitmap(hDC,200,200)
	SelectObject(hCpyDC,hCpyBmp)
	hOrgDC=CreateCompatibleDC(hDC)
	hOrgBmp=LoadImage(GetModuleHandle(0),XXX_BMP1,IMAGE_BITMAP,200,200,LR_DEFAULTCOLOR)
	SelectObject(hOrgDC,hOrgBmp)
	ReleaseDC(hMainWnd,hDC)

	GetObject(hOrgBmp,SizeOf(BITMAP),OrgBitmap)
	OrgBits=OrgBitmap.bmBits'bit配列の先頭アドレスをBytePtr型変数に格納

	GetObject(hCpyBmp,SizeOf(BITMAP),CpyBitmap)
	CpyBits=CpyBitmap.bmBits'bit配列の先頭アドレスをBytePtr型変数に格納

	/*デバッグ時にここの部分でエラーが発生
	For i=0 To 199
		For j=0 To 199
			SetByte(CpyBits+i*200+j,GetByte(OrgBits+i*200+j))
		Next
	Next
	*/
	'代わりにGetObjectで取得したbit配列の先頭アドレスを表示
	MessageBox(hMainWnd,Hex$(OrgBits),"",MB_OK)
End Sub

イグトランス様、早速のご返事ありがとうございます。
具体的なコードを出していなかったのでここに掲載します。
まず先頭で次のグローバル変数を定義しています。
[code]' TODO: この位置にグローバルな変数、構造体、定数、関数を定義します。

Dim hOrgDC As HDC
Dim hOrgBmp As HBITMAP

Dim hCpyDC As HDC
Dim hCpyBmp As HBITMAP

'GetObject関数で取得する情報を格納するための変数
Dim OrgBitmap As BITMAP
Dim OrgBits As BytePtr

Dim CpyBitmap As BITMAP
Dim CpyBits As BytePtr[/code]
そしてウィンドウ生成時に次の処理を行っています。
[code]Sub MainWnd_Create(ByRef CreateStruct As CREATESTRUCT)
Dim hDC As HDC
Dim i As Long,j As Long

hDC=GetDC(hMainWnd)
hCpyDC=CreateCompatibleDC(hDC)
hCpyBmp=CreateCompatibleBitmap(hDC,200,200)
SelectObject(hCpyDC,hCpyBmp)
hOrgDC=CreateCompatibleDC(hDC)
hOrgBmp=LoadImage(GetModuleHandle(0),XXX_BMP1,IMAGE_BITMAP,200,200,LR_DEFAULTCOLOR)
SelectObject(hOrgDC,hOrgBmp)
ReleaseDC(hMainWnd,hDC)

GetObject(hOrgBmp,SizeOf(BITMAP),OrgBitmap)
OrgBits=OrgBitmap.bmBits'bit配列の先頭アドレスをBytePtr型変数に格納

GetObject(hCpyBmp,SizeOf(BITMAP),CpyBitmap)
CpyBits=CpyBitmap.bmBits'bit配列の先頭アドレスをBytePtr型変数に格納

/*デバッグ時にここの部分でエラーが発生
For i=0 To 199
For j=0 To 199
SetByte(CpyBits+i*200+j,GetByte(OrgBits+i*200+j))
Next
Next
*/
'代わりにGetObjectで取得したbit配列の先頭アドレスを表示
MessageBox(hMainWnd,Hex$(OrgBits),"",MB_OK)
End Sub[/code]
このプログラムを実行したところ、表示されるアドレスが常に0でした。
つまり先ほど質問した内容の[b]1[/b]の時点でうまくいっていないようです。

このプログラムの間違いを教えてください。よろしくお願い致します。

> 1.コピー元ビット配列のアドレスを調べる
> 2.コピー先ビット配列のアドレスを調べる
> 3.コピー元ビット配列にアクセスする
> 4.コピー先ビット配列に書き込む
Windowsが内部でやっていることはおそらくこうでしょう。

GetObjectすればBITMAP構造体のbmBitsには内部のビットマップへのポインタが入っています。

しかし，一体なぜ3がうまくいかないと言うのでしょうか。
どういうコードを書いて，どうなったからそうだと結論付けたというのを是非書いてください。
実は別のことがうまくいっていなかったということがあるかもしれませんよ。

Dim hOrgDC    As HDC
Dim hOrgBmp  As HBITMAP

Dim hCpyDC    As HDC
Dim hCpyBmp  As HBITMAP

学校の文化祭も終わり、部活を引退したところで久しぶりの投稿です。

BitBlt関数がメモリ内デバイスコンテキストのビットマップのビット配列を別のデバイスコンテキストのビットマップのビット配列にコピーするメカニズムが知りたくなっていろいろ調べたのですが、結局きちんと解説されているページが見つからなかったのでここで質問させていただきます。具体的には

[code]Dim hOrgDC As HDC
Dim hOrgBmp As HBITMAP[/code]

をコピー元メモリ内デバイスコンテキストとビットマップのハンドルとして、

[code]Dim hCpyDC As HDC
Dim hCpyBmp As HBITMAP[/code]

にコピーすることを考えています。

自分なりに考えてみたのですが、
[list]1.コピー元ビット配列のアドレスを調べる
2.コピー先ビット配列のアドレスを調べる
3.コピー元ビット配列にアクセスする
4.コピー先ビット配列に書き込む[/list]
という方向で考えています。現在は[b]3[/b]がうまくいかないので、おそらく[b]1[/b]から失敗しているのではないかと思います。

というわけで、デバイスコンテキストのハンドルからそのデバイスコンテキストに関連付けられたビットマップの、ビット配列のアドレスを取得する方法を教えてください。

長くてわかりにくい質問で申し訳ございません...