int GetDIBits(
  HDC hdc,           // handle to DC
  HBITMAP hbmp,      // handle to bitmap
  UINT uStartScan,   // first scan line to set
  UINT cScanLines,   // number of scan lines to copy
  LPVOID lpvBits,    // array for bitmap bits
  LPBITMAPINFO lpbi, // bitmap data buffer
  UINT uUsage        // RGB or palette index
);
 

 
DECLARE INTEGER GetDIBits IN gdi32;
    INTEGER   hdc,;
    INTEGER   hbmp,;
    INTEGER   uStartScan,;
    INTEGER   cScanLines,;
    INTEGER   lpvBits,;
    STRING  @ lpbi,;
    INTEGER   uUsage