AnkietyGO/dk-pdf/includes/mpdf60/utils/image_details.php

525 lines
19 KiB
PHP
Executable File

<?php
$orig_srcpath='../tests/tiger.png'; // as specified in your file (could be full URL)
$file = 'http://127.0.0.1/MPDF1.com/common/mpdf/tests/tiger.png'; // Full URL
$fileIsLocal = true; // is the file in the same domain?
//======================================================================
$ppUx = 0;
$type = '';
$data = '';
echo 'File: ' .$orig_srcpath . '<br />';
echo 'Full File URL: ' .$file . '<br />';
if ($orig_srcpath && $fileIsLocal && $check = @fopen($orig_srcpath,"rb")) {
fclose($check);
$file=$orig_srcpath;
$data = file_get_contents($file);
$type = _imageTypeFromString($data);
echo 'File accessed using fopen on $orig_srcpath' . '<br />';
}
if (!$data && $check = @fopen($file,"rb")) {
fclose($check);
$data = file_get_contents($file);
$type = _imageTypeFromString($data);
echo 'File accessed using fopen on $file' . '<br />';
}
if ((!$data || !$type) && !ini_get('allow_url_fopen') ) { // only worth trying if remote file and !ini_get('allow_url_fopen')
file_get_contents_by_socket($file, $data); // needs full url?? even on local (never needed for local)
if ($data) { $type = _imageTypeFromString($data); }
echo 'File accessed using socket ' . '<br />';
}
if ((!$data || !$type) && !ini_get('allow_url_fopen') && function_exists("curl_init")) {
file_get_contents_by_curl($file, $data); // needs full url?? even on local (never needed for local)
if ($data) { $type = _imageTypeFromString($data); }
echo 'File accessed using cURL ' . '<br />';
}
if (!$data) { echo 'Could not access image file' . '<br />'; exit; }
echo 'Image type determined: ' .strtoupper($type) . '<br />';
// JPEG
if ($type == 'jpeg' || $type == 'jpg') {
$hdr = _jpgHeaderFromString($data);
if (!$hdr) { echo 'Error parsing JPG header' . '<br />'; exit; }
$a = _jpgDataFromHeader($hdr);
$channels = intval($a[4]);
echo 'Width: ' . $a[0]. '<br />';
echo 'Height: ' . $a[1]. '<br />';
echo 'Colorspace: ' . $a[2]. '<br />';
echo 'BPC (bits per channel): ' . $a[3]. '<br />';
echo 'Channels: ' . $channels. '<br />';
$j = strpos($data,'JFIF');
if ($j) {
//Read resolution
$unitSp=ord(substr($data,($j+7),1));
if ($unitSp > 0) {
$ppUx=_twobytes2int(substr($data,($j+8),2)); // horizontal pixels per meter, usually set to zero
if ($unitSp == 2) { // = dots per cm (if == 1 set as dpi)
$ppUx=round($ppUx/10 *25.4);
}
}
echo 'Resolution ppUx: ' . $ppUx. '<br />';
}
else echo 'JFIF not found in header' . '<br />';
// mPDF 6 ICC profile
$offset = 0;
$icc = array();
while (($pos = strpos($data, "ICC_PROFILE\0", $offset)) !== false) {
// get ICC sequence length
$length = _twobytes2int(substr($data, ($pos - 2),2)) - 16;
$sn = max(1, ord($data[($pos + 12)]));
$nom = max(1, ord($data[($pos + 13)]));
$icc[($sn - 1)] = substr($data, ($pos + 14), $length);
$offset = ($pos + 14 + $length);
}
// order and compact ICC segments
if (count($icc) > 0) {
echo 'ICC profile present' . '<br />';
ksort($icc);
$icc = implode('', $icc);
if (substr($icc, 36, 4) != 'acsp') {
// invalid ICC profile
echo 'ICC profile INVALID (no acsp flag)' . '<br />';
}
$input = substr($icc, 16, 4);
$output = substr($icc, 20, 4);
echo 'ICC profile Input: ' . $input. '<br />';
echo 'ICC profile Output: ' . $output. '<br />';
// Ignore Color profiles for conversion to other colorspaces e.g. CMYK/Lab
if ($input != 'RGB ' || $output != 'XYZ ') { echo 'ICC profile ignored by mPDF' . '<br />'; }
}
}
// PNG
else if ($type == 'png') {
//Check signature
if(substr($data,0,8)!=chr(137).'PNG'.chr(13).chr(10).chr(26).chr(10)) {
echo 'Error parsing PNG identifier<br />'; exit;
}
//Read header chunk
if(substr($data,12,4)!='IHDR') {
echo 'Incorrect PNG file (no IHDR block found)<br />'; exit;
}
$w=_fourbytes2int(substr($data,16,4));
$h=_fourbytes2int(substr($data,20,4));
$bpc=ord(substr($data,24,1));
$errpng = false;
$pngalpha = false;
$channels = 0;
echo 'Width: ' .$w . '<br />';
echo 'Height: ' .$h . '<br />';
echo 'BPC (bits per channel): ' .$bpc . '<br />';
$ct=ord(substr($data,25,1));
if($ct==0) { $colspace='DeviceGray'; $channels = 1; }
elseif($ct==2) { $colspace='DeviceRGB'; $channels = 3; }
elseif($ct==3) { $colspace='Indexed'; $channels = 1; }
elseif($ct==4) { $colspace='DeviceGray'; $channels = 1; $errpng = 'alpha channel'; $pngalpha = true; }
else { $colspace='DeviceRGB'; $channels = 3; $errpng = 'alpha channel'; $pngalpha = true; }
echo 'Colorspace: ' . $colspace. '<br />';
echo 'Channels: ' . $channels. '<br />';
if ($pngalpha) echo 'Alpha channel detected'. '<br />';
if ($ct < 4 && strpos($data,'tRNS')!==false) { echo 'Transparency detected'. '<br />'; $errpng = 'transparency'; $pngalpha = true;}
if ($ct == 3 && strpos($data,'iCCP')!==false) { echo 'Indexed plus ICC'. '<br />'; $errpng = 'indexed plus ICC'; }
if(ord(substr($data,26,1))!=0) { echo 'compression method not set to zero<br />'; $errpng = 'compression method'; } // only 0 should be specified
if(ord(substr($data,27,1))!=0) { echo 'filter method not set to zero<br />'; $errpng = 'filter method'; } // only 0 should be specified
if(ord(substr($data,28,1))!=0) { echo 'interlaced file not set to zero<br />'; $errpng = 'interlaced file'; }
$j = strpos($data,'pHYs');
if ($j) {
//Read resolution
$unitSp=ord(substr($data,($j+12),1));
if ($unitSp == 1) {
$ppUx=_fourbytes2int(substr($data,($j+4),4)); // horizontal pixels per meter, usually set to zero
$ppUx=round($ppUx/1000 *25.4);
}
echo 'Resolution ppUx: ' . $ppUx. '<br />';
}
// mPDF 6 Gamma correction
$gamma_correction = 0;
$gAMA = 0;
$j = strpos($data,'gAMA');
if ($j && strpos($data,'sRGB')===false) { // sRGB colorspace - overrides gAMA
$gAMA=_fourbytes2int(substr($data,($j+4),4)); // Gamma value times 100000
$gAMA /= 100000;
}
if ($gAMA) { $gamma_correction = 1/$gAMA; }
// Don't need to apply gamma correction if == default i.e. 2.2
if ($gamma_correction > 2.15 && $gamma_correction < 2.25) { $gamma_correction = 0; }
if ($gamma_correction) { echo 'Gamma correction detected'. '<br />'; }
// NOT supported at present
if (strpos($data,'sRGB')!==false) echo 'sRGB colorspace - NOT supported at present'. '<br />';
if (strpos($data,'cHRM')!==false) echo 'Chromaticity and Whitepoint - NOT supported at present'. '<br />';
if (($errpng || $pngalpha || $gamma_correction)) {
if (function_exists('gd_info')) { $gd = gd_info(); }
else {$gd = array(); }
if (!isset($gd['PNG Support'])) { echo 'GD library required for PNG image ('.$errpng.')'. '<br />';}
$im = imagecreatefromstring($data);
if (!$im) { echo 'Error creating GD image from PNG file ('.$errpng.')'. '<br />';}
$w = imagesx($im);
$h = imagesy($im);
if ($im) {
// Alpha channel set (including using tRNS for Paletted images)
if ($pngalpha) {
echo 'Alpha channel will be used by mPDF (including when tRNS present in Paletted images)<br />';
if ($colspace=='Indexed') { echo '...Generating Alpha channel values from tRNS (Indexed)<br />'; }
else if ($ct===0 || $ct==2) { echo '...Generating Alpha channel values from tRNS (non-Indexed)<br />'; }
else { echo '...Extracting Alpha channel<br />'; }
}
else { // No alpha/transparency set (but cannot read directly because e.g. bit-depth != 8, interlaced etc)
echo 'No alpha/transparency set (but cannot read directly because e.g. bit-depth != 8, interlaced etc)<br />';
// ICC profile
$icc = false;
$p = strpos($data,'iCCP');
if ($p && $colspace=="Indexed") {
$p += 4;
$n=_fourbytes2int(substr($data,($p-8),4));
$nullsep = strpos(substr($data,$p,80), chr(0));
$icc = substr($data, ($p+$nullsep+2), ($n-($nullsep+2)) );
// Test if file is gzcompressed
if (ord(substr($str, 0, 1)) == 0x1f && ord(substr($str, 1, 1)) == 0x8b) {
$icc = @gzuncompress($icc); // Ignored if fails
}
if ($icc) {
echo 'ICC profile present' . '<br />';
if (substr($icc, 36, 4) != 'acsp') { echo 'ICC profile INVALID (no acsp flag)' . '<br />'; $icc = false; } // invalid ICC profile
else {
$input = substr($icc, 16, 4);
$output = substr($icc, 20, 4);
echo 'ICC profile Input: ' . $input. '<br />';
echo 'ICC profile Output: ' . $output. '<br />';
// Ignore Color profiles for conversion to other colorspaces e.g. CMYK/Lab
if ($input != 'RGB ' || $output != 'XYZ ') { $icc = false; echo 'ICC profile ignored by mPDF' . '<br />'; }
}
}
// Convert to RGB colorspace so can use ICC Profile
if ($icc) { echo 'ICC profile and Indexed colorspace both present - need to Convert to RGB colorspace so can use ICC Profile<br />'; }
}
}
}
echo 'PNG Image parsed on second pass' . '<br />';
// SECOND PASS
imagealphablending($im, false);
imagesavealpha($im, false);
imageinterlace($im, false);
ob_start();
$check = @imagepng($im);
if (!$check) { echo 'Error creating temporary image object whilst using GD library to parse PNG image' . '<br />'; }
$data = ob_get_contents();
ob_end_clean();
if (!$data) { echo 'Error parsing temporary file image object created with GD library to parse PNG image' . '<br />'; }
imagedestroy($im);
//Check signature
if(substr($data,0,8)!=chr(137).'PNG'.chr(13).chr(10).chr(26).chr(10)) {
echo 'Error parsing PNG identifier<br />'; exit;
}
//Read header chunk
if(substr($data,12,4)!='IHDR') {
echo 'Incorrect PNG file (no IHDR block found)<br />'; exit;
}
$w=_fourbytes2int(substr($data,16,4));
$h=_fourbytes2int(substr($data,20,4));
$bpc=ord(substr($data,24,1));
$errpng = false;
$pngalpha = false;
$channels = 0;
echo 'Width: ' .$w . '<br />';
echo 'Height: ' .$h . '<br />';
echo 'BPC (bits per channel): ' .$bpc . '<br />';
$ct=ord(substr($data,25,1));
if($ct==0) { $colspace='DeviceGray'; $channels = 1; }
elseif($ct==2) { $colspace='DeviceRGB'; $channels = 3; }
elseif($ct==3) { $colspace='Indexed'; $channels = 1; }
elseif($ct==4) { $colspace='DeviceGray'; $channels = 1; $errpng = 'alpha channel'; $pngalpha = true; }
else { $colspace='DeviceRGB'; $channels = 3; $errpng = 'alpha channel'; $pngalpha = true; }
echo 'Colorspace: ' . $colspace. '<br />';
echo 'Channels: ' . $channels. '<br />';
if ($pngalpha) echo 'Alpha channel detected'. '<br />';
if ($ct < 4 && strpos($data,'tRNS')!==false) { echo 'Transparency detected'. '<br />'; $errpng = 'transparency'; $pngalpha = true;}
if ($ct == 3 && strpos($data,'iCCP')!==false) { echo 'Indexed plus ICC'. '<br />'; $errpng = 'indexed plus ICC'; }
if(ord(substr($data,26,1))!=0) { echo 'compression method not set to zero<br />'; $errpng = 'compression method'; } // only 0 should be specified
if(ord(substr($data,27,1))!=0) { echo 'filter method not set to zero<br />'; $errpng = 'filter method'; } // only 0 should be specified
if(ord(substr($data,28,1))!=0) { echo 'interlaced file not set to zero<br />'; $errpng = 'interlaced file'; }
$j = strpos($data,'pHYs');
if ($j) {
//Read resolution
$unitSp=ord(substr($data,($j+12),1));
if ($unitSp == 1) {
$ppUx=_fourbytes2int(substr($data,($j+4),4)); // horizontal pixels per meter, usually set to zero
$ppUx=round($ppUx/1000 *25.4);
}
echo 'Resolution ppUx: ' . $ppUx. '<br />';
}
//Gamma correction
$gamma_correction = 0;
$gAMA = 0;
$j = strpos($data,'gAMA');
if ($j && strpos($data,'sRGB')===false) { // sRGB colorspace - overrides gAMA
$gAMA=_fourbytes2int(substr($data,($j+4),4)); // Gamma value times 100000
$gAMA /= 100000;
}
if ($gAMA) { $gamma_correction = 1/$gAMA; }
// Don't need to apply gamma correction if == default i.e. 2.2
if ($gamma_correction > 2.15 && $gamma_correction < 2.25) { $gamma_correction = 0; }
if ($gamma_correction) { echo 'Gamma correction detected'. '<br />'; }
// NOT supported at present
if (strpos($data,'sRGB')!==false) echo 'sRGB colorspace - NOT supported at present'. '<br />';
if (strpos($data,'cHRM')!==false) echo 'Chromaticity and Whitepoint - NOT supported at present'. '<br />';
}
else { // PNG image with no need to convert alpha channels, bpc <> 8 etc.
//Scan chunks looking for palette, transparency and image data
$pal='';
$trns='';
$pngdata='';
$icc = false;
$p = 33;
do {
$n=_fourbytes2int(substr($data,$p,4)); $p += 4;
$type=substr($data,$p,4); $p += 4;
if ($type=='PLTE') {
//Read palette
$pal=substr($data,$p,$n); $p += $n;
$p += 4;
}
else if($type=='tRNS') {
//Read transparency info
$t=substr($data,$p,$n); $p += $n;
if ($ct==0) $trns=array(ord(substr($t,1,1)));
else if ($ct==2) $trns=array(ord(substr($t,1,1)),ord(substr($t,3,1)),ord(substr($t,5,1)));
else {
$pos=strpos($t,chr(0));
if(is_int($pos)) $trns=array($pos);
}
$p += 4;
}
else if ($type=='IDAT') {
$pngdata.=substr($data,$p,$n); $p += $n;
$p += 4;
}
else if ($type=='iCCP') {
$nullsep = strpos(substr($data,$p,80), chr(0));
$icc = substr($data, ($p+$nullsep+2), ($n-($nullsep+2)) );
// Test if file is gzcompressed
if (ord(substr($str, 0, 1)) == 0x1f && ord(substr($str, 1, 1)) == 0x8b) {
$icc = @gzuncompress($icc); // Ignored if fails
}
if ($icc) {
echo 'ICC profile present' . '<br />';
if (substr($icc, 36, 4) != 'acsp') { echo 'ICC profile INVALID (no acsp flag)' . '<br />'; $icc = false; } // invalid ICC profile
else {
$input = substr($icc, 16, 4);
$output = substr($icc, 20, 4);
echo 'ICC profile Input: ' . $input. '<br />';
echo 'ICC profile Output: ' . $output. '<br />';
// Ignore Color profiles for conversion to other colorspaces e.g. CMYK/Lab
if ($input != 'RGB ' || $output != 'XYZ ') { $icc = false; echo 'ICC profile ignored by mPDF' . '<br />'; }
}
}
$p += $n;
$p += 4;
}
else if($type=='IEND') { break; }
else if (preg_match('/[a-zA-Z]{4}/',$type)) { $p += $n+4; }
else { echo 'Error parsing PNG image data<br />'; }
}
while($n);
if (!$pngdata) { echo 'Error parsing PNG image data - no IDAT data found<br />';}
if ($colspace=='Indexed' && empty($pal)) { echo 'Error parsing PNG image data - missing colour palette<br />'; }
echo 'PNG Image parsed directly' . '<br />';
}
}
// GIF
else if ($type == 'gif') {
}
// BMP (Windows Bitmap)
else if ($type == 'bmp') {
}
// WMF
else if ($type == 'wmf') {
}
// UNKNOWN TYPE - try GD imagecreatefromstring
else {
if (function_exists('gd_info')) { $gd = gd_info(); }
else {$gd = array(); }
if (isset($gd['PNG Support']) && $gd['PNG Support']) {
$im = @imagecreatefromstring($data);
if ($im) { echo 'Image type not recognised, but image created from file using GD imagecreate' . '<br />'; }
else { echo 'Error parsing image file - image type not recognised, and not supported by GD imagecreate' . '<br />'; }
}
}
exit;
//==============================================================
function _fourbytes2int($s) {
//Read a 4-byte integer from string
return (ord($s[0])<<24) + (ord($s[1])<<16) + (ord($s[2])<<8) + ord($s[3]);
}
function _twobytes2int($s) { // equivalent to _get_ushort
//Read a 2-byte integer from string
return (ord(substr($s, 0, 1))<<8) + ord(substr($s, 1, 1));
}
function _jpgHeaderFromString(&$data) {
$p = 4;
$p += _twobytes2int(substr($data, $p, 2)); // Length of initial marker block
$marker = substr($data, $p, 2);
while($marker != chr(255).chr(192) && $marker != chr(255).chr(194) && $p<strlen($data)) {
// Start of frame marker (FFC0) or (FFC2) mPDF 4.4.004
$p += (_twobytes2int(substr($data, $p+2, 2))) + 2; // Length of marker block
$marker = substr($data, $p, 2);
}
if ($marker != chr(255).chr(192) && $marker != chr(255).chr(194)) { return false; }
return substr($data, $p+2, 10);
}
function _jpgDataFromHeader($hdr) {
$bpc = ord(substr($hdr, 2, 1));
if (!$bpc) { $bpc = 8; }
$h = _twobytes2int(substr($hdr, 3, 2));
$w = _twobytes2int(substr($hdr, 5, 2));
$channels = ord(substr($hdr, 7, 1));
if ($channels==3) { $colspace='DeviceRGB'; }
elseif($channels==4) { $colspace='DeviceCMYK'; }
else { $colspace='DeviceGray'; }
return array($w, $h, $colspace, $bpc, $channels);
}
function file_get_contents_by_curl($url, &$data) {
$timeout = 5;
$ch = curl_init($url);
curl_setopt($ch, CURLOPT_HEADER, 0);
curl_setopt($ch, CURLOPT_NOBODY, 0);
curl_setopt ( $ch , CURLOPT_RETURNTRANSFER , 1 );
curl_setopt ( $ch , CURLOPT_CONNECTTIMEOUT , $timeout );
$data = curl_exec($ch);
curl_close($ch);
}
function file_get_contents_by_socket($url, &$data) {
// mPDF 5.7.3
$timeout = 1;
$p = parse_url($url);
$file = $p['path'];
if ($p['scheme']=='https') {
$prefix = 'ssl://';
$port = ($p['port'] ? $p['port'] : 443);
}
else {
$prefix = '';
$port = ($p['port'] ? $p['port'] : 80);
}
if ($p['query']) { $file .= '?'.$p['query']; }
if(!($fh = @fsockopen($prefix.$p['host'], $port, $errno, $errstr, $timeout))) { return false; }
$getstring =
"GET ".$file." HTTP/1.0 \r\n" .
"Host: ".$p['host']." \r\n" .
"Connection: close\r\n\r\n";
fwrite($fh, $getstring);
// Get rid of HTTP header
$s = fgets($fh, 1024);
if (!$s) { return false; }
$httpheader .= $s;
while (!feof($fh)) {
$s = fgets($fh, 1024);
if ( $s == "\r\n" ) { break; }
}
$data = '';
while (!feof($fh)) {
$data .= fgets($fh, 1024);
}
fclose($fh);
}
//==============================================================
function _imageTypeFromString(&$data) {
$type = '';
if (substr($data, 6, 4)== 'JFIF' || substr($data, 6, 4)== 'Exif' || substr($data, 0, 2)== chr(255).chr(216)) { // 0xFF 0xD8
$type = 'jpeg';
}
else if (substr($data, 0, 6)== "GIF87a" || substr($data, 0, 6)== "GIF89a") {
$type = 'gif';
}
else if (substr($data, 0, 8)== chr(137).'PNG'.chr(13).chr(10).chr(26).chr(10)) {
$type = 'png';
}
/*-- IMAGES-WMF --*/
else if (substr($data, 0, 4)== chr(215).chr(205).chr(198).chr(154)) {
$type = 'wmf';
}
/*-- END IMAGES-WMF --*/
else if (preg_match('/<svg.*<\/svg>/is',$data)) {
$type = 'svg';
}
// BMP images
else if (substr($data, 0, 2)== "BM") {
$type = 'bmp';
}
return $type;
}
?>