imagecreatefrombmp、imagebmp php处理bmp文件

/*格式组成典型的BMP图像文件由四部分组成：
1：位图头文件数据结构，它包含BMP图像文件的类型、显示内容等信息；
2：位图信息数据结构，它包含有BMP图像的宽、高、压缩方法，以及定义颜色等信息；
3：调色板，这个部分是可选的，有些位图需要调色板，有些位图，比如真彩色图（24位的BMP）就不需要调色板；
4：位图数据，这部分的内容根据BMP位图使用的位数不同而不同，在24位图中直接使用RGB，而其他的小于24位的使用调色板中颜色索引值。
*/
function imagebmp(&$im, $filename = '', $bit = 8, $compression = 0)
{
    if (!in_array($bit, array(1, 4, 8, 16, 24, 32)))
    {
        $bit = 8;  //记录每个像素所占计算机字节的位数，默认为8位
    }
    else if ($bit == 32) // todo:32 bit
    {
        $bit = 24;
    }
    $bits = pow(2, $bit); //表示待创建的图像一共由$bits种颜色组成

    // 将图像调整为调色板图像，便于以后绘图,如果是24位BMP位图，那么就不需要这一步
    /*调色板是被保存在一个RGBQUAD结构的数组中，该结构指出了每一种颜色的红、绿、蓝的分量值。
     *位数组中的每一个索引都对应于一个调色板项（即一个RGBQUAD结构），应用程序将根据这种对
     *应关系，将像素索引值转换为像素RGB值（真实的像素颜色）
     * */
    imagetruecolortopalette($im, true, $bits);
    $width  = imagesx($im);
    $height = imagesy($im);
    $colors_num = imagecolorstotal($im); //返回的一般都是256
    // 颜色索引
    $rgb_quad = '';
    if ($bit <= 8)//仅针对1,4,8位BMP位图建立颜色索引
    {

        for ($i = 0; $i < $colors_num; $i ++)
        {
            $colors = imagecolorsforindex($im, $i);//每一幅图的索引表都是不一样的！
            $rgb_quad .= chr($colors['blue']) . chr($colors['green']) . chr($colors['red']) . "\0";
        }

        // 位图数据
        $bmp_data = '';

        // 非压缩,即对RGB值不进行压缩，读取时顺序为BGR，高位在前，低位在后
        if ($compression == 0 || $bit < 8)
        {
            $compression = 0;

            // 每行字节数必须为4的倍数，补齐。
            $extra = '';
            $padding = 32 - ( $width * $bit ) % 32 ;
            if ($padding % 32 != 0)
            {
                $extra = str_repeat("\0", $padding);
            }

            for ($j = $height - 1; $j >= 0; $j --)
            {
                $i = 0;
                while ($i < $width)
                {
                    $bin = 0;
                    $limit = $width - $i < 8 / $bit ? (8 / $bit - $width + $i) * $bit : 0;

                    for ($k = 8 - $bit; $k >= $limit; $k -= $bit)
                    {
                        $index = imagecolorat($im, $i, $j);
                        $bin |= $index << $k;
                        $i ++;
                    }

                    $bmp_data .= chr($bin);
                }

                $bmp_data .= $extra;
            }
        }
        // RLE8 压缩
        else if ($compression == 1 && $bit == 8)
        {
            for ($j = $height - 1; $j >= 0; $j --)
            {
                $last_index = "\0";
                $same_num   = 0;
                for ($i = 0; $i <= $width; $i ++)
                {
                    $index = imagecolorat($im, $i, $j);
                    if ($index !== $last_index || $same_num > 255)
                    {
                        if ($same_num != 0)
                        {
                            $bmp_data .= chr($same_num) . chr($last_index);
                        }

                        $last_index = $index;
                        $same_num = 1;
                    }
                    else
                    {
                    $same_num ++;
                    }
                }

                $bmp_data .= "\0\0";
            }

            $bmp_data .= "\0\1";
        }
        $size_quad = strlen($rgb_quad);
        $size_data = strlen($bmp_data);
    }
    else
    {
    // 每行字节数必须为4的倍数，补齐。
        $extra = '';
        $padding = 4 - ($width * ($bit / 8)) % 4;
        if ($padding % 4 != 0)
        {
            $extra = str_repeat("\0", $padding);
        }
        // 位图数据
        $bmp_data = '';
        for ($j = $height - 1; $j >= 0; $j --)
        {
            for ($i = 0; $i < $width; $i ++)
            {
                $index  = imagecolorat($im, $i, $j);
                $colors = imagecolorsforindex($im, $index);
                if ($bit == 16)
                {
                    $bin = 0 << $bit;

                    $bin |= ($colors['red'] >> 3) << 10;
                    $bin |= ($colors['green'] >> 3) << 5;
                    $bin |= $colors['blue'] >> 3;

                    $bmp_data .= pack("v", $bin);
                }
                else
                {
                    $bmp_data .= pack("c*", $colors['blue'], $colors['green'], $colors['red']);
                }

                // todo: 32bit;
            }
            $bmp_data .= $extra;
        }
        $size_quad = 0;
        $size_data = strlen($bmp_data);
        $colors_num = 0;
    }

    // 位图文件头
    $file_header = "BM" . pack("V3", 54 + $size_quad + $size_data, 0, 54 + $size_quad);

    // 位图信息头
    $info_header = pack("V3v2V*", 0x28, $width, $height, 1, $bit, $compression, $size_data, 0, 0, $colors_num, 0);

    // 写入文件
    if ($filename != '')
    {
        $fp = fopen($filename, "wb");
        fwrite($fp, $file_header);
        fwrite($fp, $info_header);
        if($rgb_quad!=='')
        fwrite($fp, $rgb_quad);
        fwrite($fp, $bmp_data);
        fclose($fp);
        return true;
    }

    // 浏览器输出
    header("Content-Type: image/bmp");
    echo $file_header . $info_header;
    echo $rgb_quad;
    echo $bmp_data;
    return true;
}  

/**
 * 類似GD庫打開圖片, 打開bmp格式圖片
 * $file : 圖片路徑
 * 注意事项：不能读取1位和4位BMP图像，16位BMP图像显示有问题
*/  

function imagecreatefrombmp($file)
{
    static $CurrentBit;
    static $echoMode=false;//仅针对4位的图片
    $f = fopen($file,"r");
    $Header = fread($f,2);
    if($Header == "BM")
    {
        $Size = freaddword($f);// 位图文件的大小，以字节为单位（3-6字节）
        $Reserved1 = freadword($f);// 位图文件保留字，必须为0(7-8字节）
        $Reserved2 = freadword($f);// 位图文件保留字，必须为0(9-10字节）
        $FirstByteOfImage = freaddword($f);// 位图数据的起始位置，以相对于位图
            //（11-14字节）文件头的偏移量表示，以字节为单位
        $SizeBITMAPINFOHEADER = freaddword($f);// 本结构所占用字节数（15-18字节）
        $Width = freaddword($f);// 位图的宽度，以像素为单位（19-22字节）
        $Height = freaddword($f);// 位图的高度，以像素为单位（23-26字节）
        $biPlanes = freadword($f);// 目标设备的级别，必须为1(27-28字节）
        $biBitCount = freadword($f);// 每个像素所需的位数，必须是1（双色），（29-30字节）
            // 4(16色），8(256色）16(高彩色)或24（真彩色）之一
        $RLECompression = freaddword($f);// 位图压缩类型，必须是 0（不压缩），（31-34字节）
            // 1(BI_RLE8压缩类型）或2(BI_RLE4压缩类型）之一
        $WidthxHeight = freaddword($f);// 位图的大小，以字节为单位（35-38字节）
        $biXPelsPerMeter = freaddword($f);// 位图水平分辨率，每米像素数（39-42字节）
        $biYPelsPerMeter = freaddword($f);// 位图垂直分辨率，每米像素数（43-46字节)
        $NumberOfPalettesUsed = freaddword($f);// 位图实际使用的颜色表中的颜色数（47-50字节）
        $NumberOfImportantColors = freaddword($f);// 位图显示过程中重要的颜色数（51-54字节）
        /*
         * 位图数据记录了位图的每一个像素值，记录顺序是在扫描行内是从左到右，扫描行之间是从下到上。位图的一个像素值所占的字节数：
         * 当biBitCount=1时，8个像素占1个字节；
         * 当biBitCount=4时，2个像素占1个字节；
         * 当biBitCount=8时，1个像素占1个字节；
         * 当biBitCount=24时，1个像素占3个字节；
         * Windows规定一个扫描行所占的字节数必须是
         * 4的倍数（即以long为单位），不足的以0填充，
         */
        if($biBitCount < 16)//1位和4位图像仍不能读取。
        {
            $img = imagecreate($Width, $Height);
            //读取颜色索引表，这个只在24位以下BMP图片中才需要
            $Colors = pow(2, $biBitCount);
            for($p=0; $p<$Colors; $p++)
            {//$p代表索引值
                $B = freadbyte($f);
                $G = freadbyte($f);
                $R = freadbyte($f);
                $Reserved = freadbyte($f);
                $Palette[] = imagecolorallocate($img, $R, $G, $B);
            }
            if($RLECompression == 0)
            {
                $Zbytek = (4-ceil(($Width/(8/$biBitCount)))%4)%4;
                for($y=$Height-1; $y>=0; $y--)
                {
                    $CurrentBit = 0;
                    for($x=0; $x<$Width; $x++)
                    {
                        $C = freadbits($f, $biBitCount,$echoMode);
                        //从索引表里找到相应的RGB颜色代码去填充图像该点的颜色
                        imagesetpixel($img, $x, $y, $Palette[$C]);
                    }
                    for($g=0; $g<$Zbytek; $g++)
                    {
                        freadbyte($f);
                    }
                }
            }
        }
        if($RLECompression == 1) //$BI_RLE8
        {
            $y = $Height;
            $pocetb = 0;
            while(true)
            {
                $y--;
                $prefix = freadbyte($f);
                $suffix = freadbyte($f);
                $pocetb += 2;
                $echoit = false;
                if($echoit)
                {
                    echo "Prefix: $prefix Suffix: $suffix<BR>";
                }
                if(($prefix == 0) && ($suffix == 1))
                {
                    break;
                }
                if(feof($f))
                {
                    break;
                }
                while(!(($prefix == 0) && ($suffix == 0)))
                {
                    if($prefix==0)
                    {
                        $pocet = $suffix;
                        $Data .= fread($f,$pocet);
                        $pocetb += $pocet;
                        if($pocetb%2 == 1)
                        {
                            freadbyte($f);
                            $pocetb++;
                        }
                    }
                    if($prefix > 0)
                    {
                        $pocet = $prefix;
                        for($r=0; $r<$pocet; $r++)
                        {
                            $Data.=chr($suffix);
                        }
                    }
                    $prefix = freadbyte($f);
                    $suffix = freadbyte($f);
                    $pocetb += 2;
                    if($echoit)
                    {
                        echo "Prefix: $prefix Suffix: $suffix<BR>";
                    }
                }
                for($x=0; $x<strlen($Data); $x++)
                {
                    imagesetpixel($img,$x,$y,$Palette[ord($Data[$x])]);
                }
                $Data="";
            }
        }
        if($RLECompression == 2)
        {
            $y = $Height;
            $pocetb = 0;
            while(true)
            {
                $y--;
                $prefix = freadbyte($f);
                $suffix = freadbyte($f);
                $pocetb += 2;
                $echoit = false;
                if($echoit)
                {
                    echo "Prefix: $prefix Suffix: $suffix<BR>";
                }
                if(($prefix == 0) && ($suffix==1))
                {
                    break;
                }
                if(feof($f))
                {
                    break;
                }
                while(!(($prefix == 0) && ($suffix == 0)))
                {
                    if($prefix == 0)
                    {
                        $pocet = $suffix;
                        $CurrentBit = 0;
                        for($h=0; $h<$pocet; $h++)
                        {
                            $Data.=chr(freadbits($f,4,$echoMode));
                        }
                        if($CurrentBit != 0)
                        {
                            freadbits($f,4,$echoMode);//不知道这里的代码对不对
                        }
                        $pocetb += ceil(($pocet/2));
                        if($pocetb%2 == 1)
                        {
                            freadbyte($f);
                            $pocetb++;
                        }
                    }
                    if($prefix > 0)
                    {
                        $pocet = $prefix;
                        $i = 0;
                        for($r=0; $r<$pocet; $r++)
                        {
                            if($i%2 == 0)
                            {
                                $Data .= chr($suffix%16);
                            }
                            else
                            {
                                $Data .= chr(floor($suffix/16));
                            }
                            $i++;
                        }
                    }
                    $prefix = freadbyte($f);
                    $suffix = freadbyte($f);
                    $pocetb += 2;
                    if($echoit)
                    {
                        echo "Prefix: $prefix Suffix: $suffix<BR>";
                    }
                }
                for($x=0; $x<strlen($Data); $x++)
                {
                    imagesetpixel($img, $x, $y, $Palette[ord($Data[$x])]);
                }
                $Data="";
            }
        }
        if($biBitCount >= 16)
        {
            $img = imagecreatetruecolor($Width, $Height);
            $Zbytek = $Width%4;//微软规定每行必须是4的倍数，所以不足4的字节全部用0填充。
            for($y=$Height-1; $y>=0; $y--)
            {
                for($x=0; $x<$Width; $x++)
                {
                    if($biBitCount == 16){
                        $t1 = freadbyte($f);
                        $t2 = freadbyte($f);//freadbyte($f);freadbyte($f);
                        $B = $t1 >> 3 & 0x1f;
                        $G = ((( $t1 & 0x07 ) << 3)&0xff | (( $t2 & 0xe0 ) >> 5)&0xff) & 0xff;
                        $R = $t2 & 0x3e;
                    }else{
                        $B = freadbyte($f);
                        $G = freadbyte($f);
                        $R = freadbyte($f);
                    }
                    if($biBitCount == 32)freadbyte($f);
                    $color = imagecolorexact($img, $R, $G, $B);
                    if($color==-1)
                    {
                        $color=imagecolorallocate($img, $R, $G, $B);
                    }
                    imagesetpixel($img, $x, $y, $color);
                }
                for($z=0; $z<$Zbytek; $z++)
                {
                    freadbyte($f);
                }
            }
        }
        return $img;
    }
    fclose($f);
}  

function freadbyte($f)
{
    return ord(fread($f, 1));
}
function freadbits($f, $biBitCount,&$echoMode='')
{   $str='';
    if($biBitCount==4){
        if($echoMode==false){
            $echoMode=true;
            $str = freadbyte($f);
            fseek($f, -1,SEEK_CUR);
            $str = $str >> 4;
            return $str & 0x0f;
        }else{
            $str = freadbyte($f);
            $echoMode = false;
            return $str & 0x0f;
        }
    }
    if($biBitCount == 8){
        $str=freadbyte($f);
        return $str & 0xff;
    }
}  

function freadword($f)
{
    $b1 = freadbyte($f);
    $b2 = freadbyte($f);
    return $b2*256 + $b1;
}  

function freaddword($f)
{
    $b1 = freadword($f);
    $b2 = freadword($f);
    return $b2*65536 + $b1;
}