GetDIBits 的问题.(300分)

我把图象存储到数据库中,位图格式的.我在用GetDIBits把图象转成内存数据块出错.请高手帮忙解决一下哦,急.
以下是我的例子.

DIB := GetDIBits(Bmp.Canvas.Handle, Bmp.Handle, 0, FHeight,
PBuffer,
FBmpInfo, DIB_RGB_COLORS);

if DIB = 0 then
Exit;

看不出有什么不对哦,不知道前面的初始化怎么做的哦.
DIB := GetDIBits(Bmp.Canvas.Handle, Bmp.Handle, 0, FHeight,
PBuffer,
FBmpInfo, DIB_RGB_COLORS);

PBuffer 要先 GetMem 分配内存,内存大小等于 FBmpInfo.bmiHeader.biSizeImage.

多谢,问题已经解决.