[GD]生成bmp格式的图片(imagebmp)

GD库里没有生成bmp图片的函数，所以自己写了一个，这个函数尚有一个压缩算法没有写，不过已经够用了。需要的同学可以看看。
int imagebmp ( resource image [, string filename [, int $bit [, int compression]]] )
$im: 图像资源
$filename: 如果要另存为文件，请指定文件名，为空则直接在浏览器输出
$bit: 图像质量(1、4、8、16、24、32位)
$compression: 压缩方式，0为不压缩，1使用RLE8压缩算法进行压缩
注意：这个函数仍然需要GD库的支持。
Demo:
$im = imagecreatefrompng("test.png");
imagebmp($im);
imagedestroy($im);
Source:
/**
* 创建bmp格式图片
*
* @author: legend(
[email protected]
)
* @link:
http://www.ugia.cn/?p=96

* @description: create Bitmap-File with GD library
* @version: 0.1
*
* @param resource $im          图像资源
* @param string   $filename    如果要另存为文件，请指定文件名，为空则直接在浏览器输出
* @param integer  $bit         图像质量(1、4、8、16、24、32位)
* @param integer  $compression 压缩方式，0为不压缩，1使用RLE8压缩算法进行压缩
*
* @return integer
*/
function imagebmp(&$im, $filename = '', $bit = 8, $compression = 0)
{
    if (!in_array($bit, array(1, 4, 8, 16, 24, 32)))
    {
        $bit = 8;
    }
    else if ($bit == 32) // todo:32 bit
    {
        $bit = 24;
    }
  
    $bits = pow(2, $bit);
   
    // 调整调色板
    imagetruecolortopalette($im, true, $bits);
    $width  = imagesx($im);
    $height = imagesy($im);
    $colors_num = imagecolorstotal($im);
   
    if ($bit = 0; $j --)
            {
                $i = 0;
                while ($i = $limit; $k -= $bit)
                    {
                        $index = imagecolorat($im, $i, $j);
                        $bin |= $index = 0; $j --)
            {
                $last_index = "\0";
                $same_num   = 0;
                for ($i = 0; $i  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 > 3) > 3) > 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("test.bmp", "wb");
  
        fwrite($fp, $file_header);
        fwrite($fp, $info_header);
        fwrite($fp, $rgb_quad);
        fwrite($fp, $bmp_data);
        fclose($fp);
  
        return 1;
    }
   
    // 浏览器输出
    header("Content-Type: image/bmp");
    echo $file_header . $info_header;
    echo $rgb_quad;
    echo $bmp_data;
   
    return 1;
}
参考资料：BMP文件格式分析 (出处没有找到…)