24位真彩色转为256灰度图

/*************************************************************************
*
* 函数名称:
*  ConvertToGrayScale()
*
* 参数:
*  LPSTR lpDIB - ???ò??DIB????????
* 
* 返回值:
*  BOOL - 成功返回TRUE,否则FALSE
*
* 说明:
*  将24位真彩色转为256灰度图像
************************************************************************/
BOOL WINAPI ConvertToGrayScale(LPSTR lpDIB) 
{

LPSTR lpDIBBits;                //指针DIB像素的指针
LPSTR lpNewDIBBits;            //指向DIB灰度图像(新图像)的开始处像素的指针
        LONG lLineBytes;
unsigned char * lpSrc;          //指向原图像像素点的指针
unsigned char * lpdest;        //指向目标图像的像素点的指针

        unsigned  char *ired,*igreen,*iblue;

        long lWidth;                    //图像的宽度和高度
long lHeight;

long i,j;          //循环变量

lWidth = ::DIBWidth(lpDIB);  //DIB宽度
lHeight = ::DIBHeight(lpDIB); //DIB 高