bmp24位转bmp16 （888转565）

<?php

$im = imagecreatefrombmp("111.bmp");
//调用bmp转换方法
imagebmp_custom($im, "e111.bmp", 16);
//释放与 image 关联的内存
imagedestroy($im);
/*
$im = imagecreatefrombmp("222.bmp");
//调用bmp转换方法
imagebmp_custom($im, "a222.bmp",16);
//释放与 image 关联的内存
imagedestroy($im);

$im = imagecreatefrombmp("333.bmp");
//调用bmp转换方法
imagebmp_custom($im, "a333.bmp",16);
//释放与 image 关联的内存
imagedestroy($im);
*/


/**
 *
 * 格式组成典型的BMP图像文件由四部分组成：
 * 1：位图头文件数据结构，它包含BMP图像文件的类型、显示内容等信息；
 * 2：位图信息数据结构，它包含有BMP图像的宽、高、压缩方法，以及定义颜色等信息；
 * 3：调色板，这个部分是可选的，有些位图需要调色板，有些位图，比如真彩色图（24位的BMP）就不需要调色板；
 * 4：位图数据，这部分的内容根据BMP位图使用的位数不同而不同，在24位图中直接使用RGB，而其他的小于24位的使用调色板中颜色索引值。
 * @param object $im bmp文件内容
 * @param string $filename 转换后文件保存名称
 * @param int $bit 位深度
 * @param int $compression 是否压缩
 * @return bool
 */
function imagebmp_custom(&$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 --)
            for ($j = 0; $j < $height; $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 = 0; $j < $height; $j++) #        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 = (((($colors['red'] >> 3) & 0x1f) << 11) | ((($colors['green'] >> 2) & 0x3f) << 5) | (($colors['blue'] >> 3) & 0x1f));
#                    $bin = 0 << $bit;
#                    $bin |= ($colors['red'] >> 3) << 11;
#                    $bin |= ($colors['green'] >> 2) << 5;
#                    $bin |= $colors['blue'] >> 3;

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

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

                // 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);
    #$file_header = "BM" . pack("VvvV", 54 + $size_quad + $size_data, 0, 0, 54 + $size_quad);
    #file_header = "BM" . pack("V3", 54 + 12345 + $size_quad + $size_data, 0, 54 + $size_quad);
    #$file_header = "BM" . pack("VvvV", 54 + 12 + $size_quad + $size_data, 0, 0, 54 + $size_quad + 12);


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


    $rgb_quad = pack('C*', 0, 0xf8, 0, 0, 0xe0, 0x07, 0, 0, 0x1f, 0, 0, 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;*/
}

function imagecreatefrombmp($file)
{
    global $CurrentBit, $echoMode;
    $f = fopen($file, "r");
    $Header = fread($f, 2);
    if ($Header == "BM") {
        $Size = freaddword($f);
        $Reserved1 = freadword($f);
        $Reserved2 = freadword($f);
        $FirstByteOfImage = freaddword($f);
        $SizeBITMAPINFOHEADER = freaddword($f);
        $Width = freaddword($f);
        $Height = freaddword($f);
        $biPlanes = freadword($f);
        $biBitCount = freadword($f);
        $RLECompression = freaddword($f);
        $WidthxHeight = freaddword($f);
        $biXPelsPerMeter = freaddword($f);
        $biYPelsPerMeter = freaddword($f);
        $NumberOfPalettesUsed = freaddword($f);
        $NumberOfImportantColors = freaddword($f);
        if ($biBitCount < 24) {
            $img = imagecreate($Width, $Height);
            $Colors = pow(2, $biBitCount);
            for ($p = 0; $p < $Colors; $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);
                        imagesetpixel($img, $x, $y, $Palette[$C]);
                    }
                    if ($CurrentBit != 0) {
                        freadbyte($f);
                    }
                    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) and ($suffix == 1)) break;
                if (feof($f)) break;
                while (!(($prefix == 0) and ($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) //$BI_RLE4
        {
            $y = $Height;
            $pocetb = 0;
            /*while(!feof($f))
            echo freadbyte($f)."_".freadbyte($f)."<BR>";*/
            while (true) {
//break;
                $y--;
                $prefix = freadbyte($f);
                $suffix = freadbyte($f);
                $pocetb += 2;
                $echoit = false;
                if ($echoit) echo "Prefix: $prefix Suffix: $suffix<BR>";
                if (($prefix == 0) and ($suffix == 1)) break;
                if (feof($f)) break;
                while (!(($prefix == 0) and ($suffix == 0))) {
                    if ($prefix == 0) {
                        $pocet = $suffix;
                        $CurrentBit = 0;
                        for ($h = 0; $h < $pocet; $h++)
                            $Data .= chr(freadbits($f, 4));
                        if ($CurrentBit != 0) freadbits($f, 4);
                        $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 == 24) {
            $img = imagecreatetruecolor($Width, $Height);
            $Zbytek = $Width % 4;
            for ($y = $Height - 1; $y >= 0; $y--) {
                for ($x = 0; $x < $Width; $x++) {
                    $B = freadbyte($f);
                    $G = freadbyte($f);
                    $R = 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 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;
}