Xelgen pdf - ը գեներացնող կոդը սա է
<?php
//============================================================+
// File name : example_011.php
// Begin : 2008-03-04
// Last Update : 2008-05-28
//
// Description : Example 011 for TCPDF class
// Colored Table
//
// Author: Nicola Asuni
//
// (c) Copyright:
// Nicola Asuni
// Tecnick.com s.r.l.
// Via Della Pace, 11
// 09044 Quartucciu (CA)
// ITALY
// www.tecnick.com
// [email protected]
//============================================================+
/**
* Creates an example PDF TEST document using TCPDF
* @package com.tecnick.tcpdf
* @abstract TCPDF - Example: Colored Table
* @author Nicola Asuni
* @copyright 2004-2008 Nicola Asuni - Tecnick.com S.r.l (www.tecnick.com) Via Della Pace, 11 - 09044 - Quartucciu (CA) - ITALY - www.tecnick.com - [email protected]
* @link http://tcpdf.org
* @license http://www.gnu.org/copyleft/lesser.html LGPL
* @since 2008-03-04
*/
require_once('tcpdf/config/lang/eng.php');
require_once('tcpdf/tcpdf.php');
// extend TCPF with custom functions
class MYPDF extends TCPDF {
//Load table data from file
public function LoadData($file) {
//Read file lines
$lines=file($file);
$data=array();
foreach($lines as $line)
$data[]=explode(';',chop($line));
return $data;
}
//Colored table
public function ColoredTable($header,$data) {
//Colors, line width and bold font
$this->SetFillColor(255,0,0);
$this->SetTextColor(255);
$this->SetDrawColor(128,0,0);
$this->SetLineWidth(.3);
$this->SetFont('','B');
//Header
$w=array(40,35,40,45);
for($i=0;$i<count($header);$i++)
$this->Cell($w[$i],7,$header[$i],1,0,'C',1);
$this->Ln();
//Color and font restoration
$this->SetFillColor(224,235,255);
$this->SetTextColor(0);
$this->SetFont('');
//Data
$fill=0;
foreach($data as $row) {
$this->Cell($w[0],15,$row[0],'LR',0,'L',$fill);
$this->Cell($w[1],15,$row[1],'LR',0,'L',$fill);
$this->Cell($w[2],15,$row[2],'LR',0,'L',$fill);
$this->Cell($w[3],15,$row[3],'LR',0,'L',$fill);
$this->Cell($w[4],15,$row[4],'LR',0,'L',$fill);
$this->Cell($w[5],15,$row[5],'LR',0,'L',$fill);
$this->Ln();
$fill=!$fill;
}
$this->Cell(array_sum($w),0,'','T');
}
}
// create new PDF document
$pdf = new MYPDF(PDF_PAGE_ORIENTATION, PDF_UNIT, PDF_PAGE_FORMAT, true);
// set document information
$pdf->SetCreator(PDF_CREATOR);
$pdf->SetAuthor("Nicola Asuni");
$pdf->SetTitle("TCPDF Example 011");
$pdf->SetSubject("TCPDF Tutorial");
$pdf->SetKeywords("TCPDF, PDF, example, test, guide");
// set default header data
$pdf->SetHeaderData(PDF_HEADER_LOGO, PDF_HEADER_LOGO_WIDTH, PDF_HEADER_TITLE, PDF_HEADER_STRING);
// set header and footer fonts
$pdf->setHeaderFont(Array(PDF_FONT_NAME_MAIN, '', PDF_FONT_SIZE_MAIN));
$pdf->setFooterFont(Array(PDF_FONT_NAME_DATA, '', PDF_FONT_SIZE_DATA));
//set margins
$pdf->SetMargins(PDF_MARGIN_LEFT, PDF_MARGIN_TOP, PDF_MARGIN_RIGHT);
$pdf->SetHeaderMargin(PDF_MARGIN_HEADER);
$pdf->SetFooterMargin(PDF_MARGIN_FOOTER);
//set auto page breaks
$pdf->SetAutoPageBreak(TRUE, PDF_MARGIN_BOTTOM);
//set image scale factor
$pdf->setImageScale(PDF_IMAGE_SCALE_RATIO);
//set some language-dependent strings
$pdf->setLanguageArray($l);
//initialize document
$pdf->AliasNbPages();
// add a page
$pdf->AddPage();
// ---------------------------------------------------------
// set font
$pdf->SetFont("dejavusans", "", 10);
//Column titles
$header=array('Country','Capital','Area (sq km)','Pop. (thousands)', 'a1', 'a2');
//Data loading
//$data=$pdf->LoadData('text.txt');
//$file_name1 = "'".$file_name."'";
$data=$pdf->LoadData($file_name);
// print colored table
$pdf->ColoredTable($header,$data);
// ---------------------------------------------------------
//Close and output PDF document
$pdf->Output("example_011.pdf", "I");
//============================================================+
// END OF FILE
//============================================================+
?>
$data=$pdf->LoadData($file_name); - ի
$file_name = "text.txt";
Ես չեմ կարող հասկանալ , ոնց կարող է WindowsXP - ում սա նորմալ աշխատի, իսկ Windows2000 Advanwced Server - ում չաշխատի
Մեջբերել
david-ի խոսքերից
Էջանիշներ