GetObjectAPI获取位图信息的问题

[littleM]

使用GetObjectAPI获取位图信息：
GetObjectAPI Bitmaphandle, Len(bm), bm 'bm为Private Type BITMAP
调试的时候发现，bm的数据结构获得的信息中bmBits =0，这是为什么，本来以为这是位图内存中的地址。请问，如果要得到位图数据的地址怎么办。谢谢！！！

附BITMAP的结构：
Private Type BITMAP
bmType As Long
bmWidth As Long
bmHeight As Long
bmWidthBytes As Long
bmPlanes As Integer
bmBitsPixel As Integer
bmBits As Long
End Type

[zyl910]

看看GetObjectAPI的返回值

[since1990]

帮你 up

[littleM]

调试的时候发现：
Bitmaphandle= 335877371
GetObjectAPI返回24

能说明什么呢，请教！

[zyl910]

Bitmaphandle=? '你的代码

[zyl910]

哦

是bmBits，那结果是对的

bmBits是表示位图数据的地址

对于HBITMAP，bmBits=0（实际上位于系统内存——&H80000000~&HFFFFFFFF）
对于DIBSection，bmBits=DIB位图数据的地址

[littleM]

那就是说，我不应该使用CreateCompatibleBitmap创建位图？
应该创建DIBSection？
then how?

[zyl910]

你需要bmBits干什么？

[littleM]

昨天晚上没有一直留守阵地：（
我希望达到的目的是：拷屏，然后直接读取内存，存储到数据库中，然后从数据库中读取，在显示出来。中间不想通过文件进行中转。
你看有什么好的思路吗？

[zyl910]

HBITMAP的数据位于系统内存
由于应用程序不能访问系统内存
所以bmBits被屏蔽


可以使用GetBitmapBits得到位图数据




GetBitmapBits

VB声明
Declare Function GetBitmapBits Lib "gdi32" Alias "GetBitmapBits" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
说明
将来自位图的二进制位复制到一个缓冲区
返回值
Long，如执行成功，返回位图中的字节数量；零表示失败。会设置GetLastError
参数表
参数 类型及说明
hBitmap Long，位图的句柄
dwCount Long，欲复制的字节数。如设为零，表示取得位图中的字节数
lpBits Any，指向容纳位图位的一个缓冲区的指针。注意事先将缓冲区至少初始化成dwCount个字节
注解
虽然这个函数能正常工作，但强烈建议使用与设备无关的位图（GetDIBits）




SetBitmapBits

VB声明
Declare Function SetBitmapBits Lib "gdi32" Alias "SetBitmapBits" (ByVal hBitmap As Long, ByVal dwCount As Long, lpBits As Any) As Long
说明
将来自缓冲区的二进制位复制到一幅位图
返回值
Long，执行成功则返回字节数量，零表示失败
参数表
参数 类型及说明
hBitmap Long，位图的句柄
dwCount Long，欲复制的字节数量
lpBits Any，指向一个缓冲区的指针。这个缓冲区包含了为位图正确格式化的位图位
注解
在Win32中，应使用与设备无关位图

[since1990]

帮你 up