急急,都问两次了，众大侠救兄弟一救！！？（关于bmp处理）

[thermometer]

用TBitMap对象load了一个硬盘中的bmp文件，现在想得到该bmp的BITMAPINFOHEADER，怎么做？

[musicwind]

详细见 WindowsApi GetDIBits

[wonderxin]

BITMAPINFOHEADER?

[thermometer]

为什么GetDIBits调用失败， 我的代码
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
bmp:tbitmap;
binfo:TBitmapInfo;
pbuf:pchar;
buf:array of char;
begin
bmp:=Tbitmap.Create;
bmp.LoadFromFile('c:\2.bmp');
image1.Picture.Bitmap:=bmp;
setlength(buf,(bmp.Height*bmp.Width*3)); //先假设是24bit的bmp
bmp.HandleType:=bmDIB;
pbuf:=@buf;
i:=getdibits(form1.Handle, bmp.Handle,0,bmp.Height,pbuf,binfo,DIB_RGB_COLORS);
showmessage(inttostr(i));

end;
结果i=0，帮帮我？

[shxiaoxiao]

好像还需要给binfo:TBitmapInfo用SizeOf指定内存空间的

[thermometer]

不管用，高手都来指点一下，我会加分的。

[thermometer]

555555

[无果和尚]

用GetDIBSizes得到SIZE
用GetDIB来得到HEADINFO。

[无果和尚]

GetDIB会自动转化成DIB格式的。具体参见DELPHI HELP

[thermometer]

我想知道我的代码问什么调用API失败？8-<

[pipai]

看delphi目录下的source\vcl\graphics.pas中的TBitmap.ReadStream和TBitmap.ReadDIB实现，你会大有收获的

[pipai]

提醒：要养成看delphi提供的source和demos的习惯

[thermometer]

我已经解决了，用
var DS: TDIBSection;
然后
GetObject(bmp.Handle, SizeOf(DS), @DS);
就可以了。

[thermometer]