Podgląd pliku: / jacekk.info / codabar.phps


<?php
/***************************************************
 *             Kody kreskowe - Codabar             *
 ***************************************************
 * Wersja: 1.1                                     *
 * Autor: Jacek Kowalski (http://jacekk.info)      *
 *                                                 *
 * Strona WWW: http://jacekk.info/scripts/barcodes *
 *                                                 *
 * Utwór rozprowadzany na licencji                 *
 * http://creativecommons.org/licenses/by-nc/2.5/  *
 ***************************************************/

/* Kodowanie znaków UTF-8 */

if(trim($_GET['kod'], '0123456789+-:/.$')!='') {
    echo 
'Znaki inne niż cyfry i +-:/.$';
    die();
}

$code = array(
    
'SS' => '1011110000100001',
    
'BT' => '0',
    
'0' => '1010100001111',
    
'1' => '1010111100001',
    
'2' => '1010000101111',
    
'3' => '1111000010101',
    
'4' => '1011110100001',
    
'5' => '1111010100001',
    
'6' => '1000010101111',
    
'7' => '1000010111101',
    
'8' => '1000011110101',
    
'9' => '1111010000101',
    
'-' => '1010000111101',
    
'$' => '1011110000101',
    
':' => '1111010111101111',
    
'/' => '1111011110101111',
    
'.' => '1111011110111101',
    
'+' => '1011110111101111'
);


function 
gen_binary($kod) {
    global 
$code;
    
    
$ret '';
    
$kod str_split($kod);
    foreach(
$kod as $key => $val) {
        
$ret .= $code[$val].$code['BT'];
    }
    
    return 
$ret;
}
function 
print_code($kod$img) {
    global 
$b;
    
    
$now 0;
    
$kod str_split($kod);
    foreach(
$kod as $val) {
        if(
$val==1) {
            
imageline($img$now0$now40$b);
        }
        
$now++;
    }
}

$_GET['kod'] = $code['SS'].$code['BT'].gen_binary($_GET['kod']).$code['SS'];

$i imagecreate(strlen($_GET['kod']), 40);
$w imagecolorallocate($i255255255);
$b imagecolorallocate($i000);

print_code($_GET['kod'], $i);

header('Content-type: image/gif');
imagegif($i);
?>

Browse Code © 2010 by Jacek Kowalski