再线求教！！图形处理时 bitmapinfo 的信息怎么获取

Question

多谢帮忙！！！！

Answer 1

var
  bmp: TBitmap;
  BitmapInfo: TBitmapInfo;
  SrcBmHeader: TBitmapInfoHeader;
  ImageSize: DWORD;
begin
  bmp := TBitmap.Create;
  bmp.LoadFromFile('E:\aa.bmp');
  GetDIB(bmp.Handle, 0, BitmapInfo, ImageSize);
  memo1.Lines.Add('Width:' + inttostr(BitmapInfo.bmiHeader.biWidth));
  memo1.Lines.Add('Height:' + inttostr(BitmapInfo.bmiHeader.biHeight));
  memo1.Lines.Add('Compression:' + inttostr(BitmapInfo.bmiHeader.biCompression));
  memo1.Lines.Add('XPelsPerMeter:' + inttostr(BitmapInfo.bmiHeader.biXPelsPerMeter ));
  memo1.Lines.Add('YPelsPerMeter:' + inttostr(BitmapInfo.bmiHeader.biYPelsPerMeter));
  memo1.Lines.Add('biSize:' + inttostr(BitmapInfo.bmiHeader.biSize));
  memo1.Lines.Add('biPlanes:' + inttostr(BitmapInfo.bmiHeader.biPlanes));
  memo1.Lines.Add('biBitCount:' + inttostr(BitmapInfo.bmiHeader.biBitCount));
  memo1.Lines.Add('biSizeImage:' + inttostr(BitmapInfo.bmiHeader.biSizeImage));
  memo1.Lines.Add('biClrUsed:' + inttostr(BitmapInfo.bmiHeader.biClrUsed));
  memo1.Lines.Add('biClrImportant:' + inttostr(BitmapInfo.bmiHeader.biClrImportant));
end;